Задача Delphi - Помощь студентам

Dascha · 15.05.2012, 19:49

Помогите решить
Даны натуральное n, действительное x. Вычислить sin x + sin(sin x) + ... + sin sin... sin x
(x=2.5 , n=5)

Stilet · 15.05.2012, 20:38

Наработками похвастаешся?

Mad_Cat · 15.05.2012, 21:56

Код:

var x,sum:double;
i,n:byte;
begin
x:=2.5;
sum:=sin(x);
n:=5;
For i:=1 to n-1 do
sum:=sum+sin(sum);
showmessage(floattostr(sum));
end;

15.05.2012, 19:49	#1
Dascha Новичок Джуниор Регистрация: 15.05.2012 Сообщений: 1	Задача Delphi Помогите решить Даны натуральное n, действительное x. Вычислить sin x + sin(sin x) + ... + sin sin... sin x (x=2.5 , n=5)

15.05.2012, 20:38	#2
Stilet Белик Виталий :) Старожил Регистрация: 23.07.2007 Сообщений: 57,097	Наработками похвастаешся? I'm learning to live...

15.05.2012, 21:56	#3
Mad_Cat Made In USSR! Старожил Регистрация: 01.09.2010 Сообщений: 3,657	Код: `var x,sum:double; i,n:byte; begin x:=2.5; sum:=sin(x); n:=5; For i:=1 to n-1 do sum:=sum+sin(sum); showmessage(floattostr(sum)); end;` "...В жизни я встречал друзей и врагов.В жизни много всего перевидал.Солнце тело мое жгло, ветер волосы трепал,но я смысла жизни так и не узнал..." (c) Юрий Клинских aka "Хой"