Исправьте ошибку в программе

[xxxartikxxx]

должен находить sin(x)

код:

program sin;
 uses crt;
 var
 y,x2,x,dy,eps,i:real;
 begin
 write('x=');
 readln(x);
 eps:=x-6;
 x:=(x*Pi)/180;
 y:=x;
 dy:=x;
 x2:=x*x;
 i:=1
 while abs(dy) > eps do
 begin
 i:i+2;
 dy:=-dy*x2/(i*(i-1));
 y:=y+dy
 end;
 write('sin=',y:5:2);
 end.

[Nik Raider]

должен находить sin(x)

А почему бы не использовать функцию sin()?

[Sciv]

Насколько понимаю, у Вас разложение синуса в ряд Тейлора?
Тогда у Вас ошибка не столько в задаче, сколько в самой математике (хотя и в программе полно).

program sinus;
uses crt;
var
x2,x,dy,eps:real;
fakt,i,z: integer;

begin
  write('x=');
  readln(x);
  eps:=x-6;
  x:=(x*Pi)/180;
  dy:=0;
  x2:=x;
  i:=1;
  z:=1;
  fakt:=1;
  while abs(z*x2/fakt) >= eps do begin
    dy:=dy+z*x2/fakt;
    i:=i+2;
    fakt:=fakt*i*(i-1);
    z:=z*(-1);
  end;
  write('sin=',dy:5:2);
end.

Как-то так. Не проверял.

Причем вынужден заметить, что вот из-за этого условия цикл вычисления может вообще стать непрерывным:

eps:=x-6;

А так как исходное задание Вы выложить поленились, предоставив нам догадываться, что эта программа делает, то сами и исправляйте этот эпсилон. Может он по заданию вообще руками вводится или константой задан?

[xxxartikxxx]

я немного изменил и у меня вышло такое:

код:

Program program1;
uses crt;
var x,y,x2,dy,eps,i:real;
begin
write('x=');
readln(x);
eps := 1e-6;
x :=(x*Pi)/180;
y := x;
dy := x;
x2 := x * x;
i := 1;
while abs(dy) > eps do
begin
i := i + 2;
dy := -dy * x2 / (i * (i - 1));
y := y + dy
end;
write('sin= ',y:5:2);
end.

[xxxartikxxx]

У меня только один вопрос как sin (x) оформить функцией?

[Sciv]

Так и оформить:

y:=sin(x);
writeln(y:2:2);

P.S. А Вы вообще мой ответ читали? Там у каждого члена ряда разные знаки, а в Вашей программе этого точно нет.