цикл for(паскаль)

[Артл]

Даны натуральное x ,действительно число n . Вычислить: S=sinx+sin sinx+ ... +sin sin sinx +sin sin ... sinx это все вместе n раз

uses crt;
var x,y:real;
    n,i:integer;
begin
clrscr;
write('x=');readln(x);
write('n=');readln(n);
y:=sin(x);
for i:=2 to n do
y:=y+sin(y);
write('Y=',y:0:4);
readln
end.

вот так сделано, но препод сказал что не правильно, подскажите что не так?

[rubius2008]

правильно сказал. у тебя получается:
sin(x)+sin(sin(x))+sin(x)+sin(sin(x ))+sin(sin(x)+sin(sin(x)))+...
Поправь

y:=0;
for i:=1 to n do begin
y:=y+sin(x);
x:=sin(x);
end;
write('Y=',y:0:4);

[Артл]

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

[compres]

я понял что не догнал

[Артл]

может у меня правильно все, а препод не понял, если тут записали по-другому и также получается

[rubius2008]

Сообщение от Артл

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

точно не такие же, не знаю как вы проверяли. допустим при x=2 уже начиная с n=2, идет расхождение

x=2
n | правильная формула | ваша формула

1   0,909297427  0,909297427
2   1,69836977    1,818594854
3   2,690243309  2,72789228
4   3,12642346    3,637189707
5   3,141592072   4,546487134
6   3,141592654   5,455784561
7   3,141592654   6,365081988
8   3,141592654   7,274379415
9   3,141592654   8,183676841
10  3,141592654   9,092974268