Sinus - Паскаль, Turbo Pascal, PascalABC.NET

aless23 · 19.12.2011, 23:48

Прошу помочь реализовать данное уравнение на Pascal
При решении,в каждом последующем шаге будет увеличиваться x

sin x + sin x^2 + ... + sin x^n

пожалуйста!...заранее очень благодарен!!

Mad_Cat · 19.12.2011, 23:50

ты второй с этой прогой сегодня

Код:

s:=0;
p:=1;
for i:=1 to n do begin
p:=p*(x);
s:=s+sin(p);
end;

aless23 · 19.12.2011, 23:54

Спасиииибоооо!!!!!))

19.12.2011, 23:48	#1
aless23 Пользователь Регистрация: 04.04.2011 Сообщений: 19	Sinus Прошу помочь реализовать данное уравнение на Pascal При решении,в каждом последующем шаге будет увеличиваться x sin x + sin x^2 + ... + sin x^n пожалуйста!...заранее очень благодарен!!

19.12.2011, 23:50	#2
Mad_Cat Made In USSR! Старожил Регистрация: 01.09.2010 Сообщений: 3,657	ты второй с этой прогой сегодня Код: `s:=0; p:=1; for i:=1 to n do begin p:=p*(x); s:=s+sin(p); end;` "...В жизни я встречал друзей и врагов.В жизни много всего перевидал.Солнце тело мое жгло, ветер волосы трепал,но я смысла жизни так и не узнал..." (c) Юрий Клинских aka "Хой"

19.12.2011, 23:54	#3
aless23 Пользователь Регистрация: 04.04.2011 Сообщений: 19	Спасиииибоооо!!!!!))