===== PascalABC.NET =====
begin
var x := ReadReal;
var y := x - x * x / 3 + x ** 6 / 4;
Println(y);
y := 3 ** (-x) + cos(x) - Sin(x * x);
Println(y);
y := (x ** 3 + 9 * x + 12) / (x * x - 6 * x + 15);
Println(y);
y := x + 12 * Sin(2 * x) + Abs(x ** 3 + x ** 5);
Print(y)
end.
Function F(x,eps:double):double;
var
s0,s1,sgn,d:real;
begin
s1:=x; d:=1; sgn:=1;
repeat
s0:=s1; d:=d+1; sgn:=-sgn;
s1:=s0+sgn*x/d
until abs(s1-s0)<=eps;
f:=s1
end;
var
x:double;
begin
x:=-0.5;
while x<=0.5 do begin
Writeln(x:4:1,F(x,1e-7):14:7);
x:=x+0.1
end
end.
<u>Результат</u>
-0.5 -0.3465736
-0.4 -0.2772589
-0.3 -0.2079442
-0.2 -0.1386295
-0.1 -0.0693148
0.0 0.0000000
0.1 0.0693148
0.2 0.1386295
0.3 0.2079442
0.4 0.2772589
0.5 0.3465736
513₁₀ → X₁₆
513 | 1
32 | 0
2 | 2
0 |
513₁₀ = 201₁₆
600₁₀ → X₁₆
600 | 8
37 | 5
2 | 2
0 |
600₁₀ = 258₁₆
2010₁₀ → X₁₆
2010 | 10 (А)
125 | 13 (D)
7 | 7
0 |
2010₁₀ = <span>7DA</span>₁₆
Var
i, n: integer;
a, s: real;
begin
readln(n);
a := 1;
s := a;
for i := 2 to n do
begin
a := a * -(i - 1) / i;
s := s + a;
end;
writeln(s:10:6);
end.