Question

Вычислите сумму ряда s=sin(1)+sin(2)+…+sin(n), для n введенного с клавиатуры. Delphi

Answer 1

ответ

Program n1;

var s: real;

i,n: integer;

begin

s:=0;

readln(n);

for i:=1 to n do s:=s+sin(i);

writeln(s);

end.

Answer 2

Pascal, Delphi

const

 radian = pi/180;

var

 n, i:integer;

 r: double;

begin

 readln(n);

 r:=0;

 for i:=1 to n do

   r:=r+sin(i*radian);

 writeln(r:3:3);

end.

можно использовать встроенную в Delphi функцию DegToRad, но она делает тоже самое.  sin(i*radian)  = sin(DegToRad(i)).