Автор: Гость_viv 13.10.2004 12:41
Помогите пожалуйста разобраться с такой задачкой:
Дано вещественное х. Вычислить:
S=sinx+sinsinx+...+sinsin...sinx
Автор: godd 13.10.2004 13:06
Код
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.
Автор: Atos 14.10.2004 17:44
Одно маленькое дополнение -
Код
s:=0
;) Конечно, и так работает, но мало ли что