Сделать программку 3-мя различными методами

1)
var x,xn,s:real; n,i,z:integer;
begin
write('x = ');
readln(x);
n:=20;
xn:=x;
s:=x;
z:=1;
for i:=1 to n do
begin
xn:=xn*x*x;
z:=-z;
s:=s+z*(i+1)*xn/(2*i+1);
end;
writeln('s = ',s);
end.

2)
var x,xn,s:real; n,i,z:integer;
begin
write('x = ');
readln(x);
n:=20;
xn:=x;
s:=x;
z:=1;
i:=0;
while ilt;n do
begin
i:=i+1;
xn:=xn*x*x;
z:=-z;
s:=s+z*(i+1)*xn/(2*i+1);
end;
writeln('s = ',s);
end.

3)
var x,xn,s:real; n,i,z:integer;
begin
write('x = ');
readln(x);
n:=20;
xn:=x;
s:=x;
z:=1;
i:=0;
repeat
i:=i+1;
xn:=xn*x*x;
z:=-z;
s:=s+z*(i+1)*xn/(2*i+1);
until igt;=n;
writeln('s = ',s);
end.

Пример:
x = 1.5
s = 5.8792000810381370E+006

Максим Бубашвили 2019-09-06 04:09:22

А можно в C++?

Витек Квасенков 2019-09-06 04:10:32

Можно. Но язык программирования нужно указывать в вопросе.

Боря Семеренко 2019-09-06 04:19:12

Простите, щас сделаю

Виктор Мощагин 2019-09-06 04:23:01

Все я переработал собственный вопрос, помогите пожалуйста

О проекте

Сделать программку 3-мя различными методами

Добро пожаловать!