Задача на циклы Опции

[Гость_viv]

Помогите пожалуйста разобраться с такой задачкой:
Дано вещественное х. Вычислить:
S=sinx+sinsinx+...+sinsin...sinx

[godd]

Код

var i,j,n:byte;
    x,s:real;
begin
write('X=');
readln(x);
write('Количество проходов цикла n=');
readln(n);
for i:=1 to n do
    begin
    x:=sin(x);
    for j:=1 to i do write('sin(');
    write('x');
    for j:=1 to i do write(')');
    if i<>n then write('+');
    s:=s+x;
    end;
writeln('=',s:1:10);
writeln('Press Enter');
readln;
end.

Сообщение отредактировано: godd - 13.10.2004 9:13

[Atos]

Одно маленькое дополнение -

Код

s:=0

;) Конечно, и так работает, но мало ли что