Taanvanez
6 год назад
Дано действительное число x. Вычислить выражение(пример на фото)
program z3_23;
uses crt;
var i,k,z: integer;
x,s,s1,s2:real;
Begin
ClrScr;
Write('x = ');
Read(x);
s1: = x; s2: = 1;z: = 1;k: = 1;
For i: = 1 to 7 do
begin
s: = s+z*s1/s2;
s1: = s1*x*x;
s2: = s2*(k+1)*(k+2);
z: = -z;
k: = k+2;
end;
write('s = ',s:5:6);
Readkey;
end.
For i: = 1 to 7 do-заменить на while вот это нужно
ОТВЕТЫ
Феофилактович
Aug 6, 2019
Uses crt;
var
k: integer;
x, s, a: real;
begin
ClrScr;
Write(x=);
Readln(x);
a := x;
s := a;
k := 3;
while k lt; 13 do
begin
a := a * (-1) * x * x / k / (k - 1);
s := s + a;
k := k + 2;
end;
writeln(s=, s:5:6);
Readkey;
end.
var
k: integer;
x, s, a: real;
begin
ClrScr;
Write(x=);
Readln(x);
a := x;
s := a;
k := 3;
while k lt; 13 do
begin
a := a * (-1) * x * x / k / (k - 1);
s := s + a;
k := k + 2;
end;
writeln(s=, s:5:6);
Readkey;
end.
52
