Синус

[kuy]

Написал код для задичи с условием:
Дано натуральное n, действительное х. вычислить:

Делаю проверку на калькуляторе и ответы не схоятся, по-разному синус щитается. Кто-то подскажет в чём проблема?

program Project2;
{$APPTYPE CONSOLE}
uses
  math;

var s,p,x : real;
    n,i : integer;
begin
write('Input x: '); readln(x);
write('Input n: '); readln(n);
s:=0;
for i:=1 to n do
 begin
p:=sin(power(x,i));
s:=s+p;
 end;
 writeln('sum = ',s:1:2);
readln;
end.

[val_nnm]

Вроде ваша программа должна работать правильно.
Возможно калькулятор у вас считает в градусах. А в Delphi sin принимает угол в радианах.

Маленькай P.S. преподы чаще любят нечто подбное (но оба варианта должны работать правильно)

program Project2;
{$APPTYPE CONSOLE}
uses
  math;
var s,x,k : real;
    n,i : integer;
begin
  write('Input x: '); readln(x);
  write('Input n: '); readln(n);
  s:=0;
  k := 1;
  for i:=1 to n do
  begin
    k := k * x;
    s:=s+sin(k);
  end;
  writeln('sum = ',s:1:2);
  readln;
end.