Решите в паскале задачу пожалуйста!

Новые сообщения · Правила

Страница 1 из 1 1
Модератор форума: Berestovskiy

Форум ПРОГРАММИСТОВ » ПРОГРАММИРОВАНИЕ » Паскаль » Решите в паскале задачу пожалуйста!

1. Данонатуральне n, дійсне x. Обчислити sinx+sin2x+…+sinnx

№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 ]

спасибо)

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

Форум ПРОГРАММИСТОВ » ПРОГРАММИРОВАНИЕ » Паскаль » Решите в паскале задачу пожалуйста!

Страница 1 из 1
1

прикладная математика