Новые сообщения · Правила  
  • Страница 1 из 1
  • 1
Модератор форума: 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 из 1
  • 1
Поиск: