ПОМОГИТЕ РЕЩИТЬ ЗАДАЧКУ ПО ЦИКЛАМ!

[КПСС]

зАДАЧКУ РЕШИТЬ НАДО!?

[КПСС]

5 задача!с циклами разобрать не смог....

[kommunist]

что документ не открывается

[Tayfun]

Что-то с кодировкой. Выложи задачи прямо в тему...

[КПСС]

У мя не получаеться выложить прям так....я наверно туплю но он не копирует почему-то!

y=sin x=x-x*x*x/3+x*x*x*x*x/5-x*x*x*x*x*x/7+...
При Х изменяющемся от 0,2 до 1 с шагом 0,1
Составить блок-схему алгоритма и программу для вычисления суммы членов бесконечного ряда с точностью до члена ряда, меньшего ε=0,001 при заданных значениях Х.
маленькое дополнение к заданию....

[Tayfun]

А на каком языке программирования-?

[КПСС]

Паскаль,но можно и на Делфи.

[Tayfun]

 
program mat_pos;
uses crt;
var
e,s,x:real;
t:integer;
begin
clrscr;
x:=0.2;
while x<=1.1 do begin
t:=1;e:=x;s:=0;
while (e/t)>0.001 do begin
t:=t+1;
if t mod 2<>0 then begin e:=e*x; s:=s+e/t end;
end;
writeln('X=',x:1:1,' SUMMA RYADA=',s:1:4);
x:=x+0.1;
end;
readkey;
end.

Кажись так...