Новые сообщения · Правила  
Страница 1 из 11
Модератор форума: Berestovskiy 
Форум ПРОГРАММИСТОВ » ПРОГРАММИРОВАНИЕ » Паскаль » Решите в паскале задачу пожалуйста!
Решите в паскале задачу пожалуйста!
1.          Данонатуральне n, дійсне x. Обчислити    sinx+sin2x+…+sinnx

24
1 | Автор: ryaba | 2013-09-29, 21:14   |  Репутация: [ + 0 ]
program Zadacha;
uses crt;
var i,n,x:integer;
s:real;
begin
clrscr;
writeln('Vvedite x,n');
readln(x,n);
s:=0;
for i:=1 to n do
S:=s+sin(i*x);
writeln('s = ',s:5:10);
readkey;
end.


Тот, кто смеется последним, просто не врубился сразу.)
2 | Автор: Ifrit | 2013-09-30, 10:23   |  Репутация: [ + 12 ]
спасибо)

24
3 | Автор: ryaba | 2013-09-30, 17:53   |  Репутация: [ + 0 ]


24
3 | Автор: ryaba | 2013-09-30, 17:53   |  Репутация: [ + 0 ]
Форум ПРОГРАММИСТОВ » ПРОГРАММИРОВАНИЕ » Паскаль » Решите в паскале задачу пожалуйста!
Страница 1 из 11
Поиск: