Код
function Mysin(x:real;eps:real): real;
var add,sum:real;
i:integer;
begin
add:=x;
sum:=0;
i:=0;
repeat
sum:=sum+add;
add:=-add*x*x/(2*i+2)/(2*i+3);
i:=i+1;
until abs(add/sum)<=eps;
mysin:=sum;
end;
Вычисляет правильно малые значения параметра х, а при больших значения(45 рад) выдаёт большие числа... как внедрить формулу приведения с отбрасыванием 2пn;
Код
procedure babble(var x:matrix;n:integer);
var
tmp:real;
i,j:integer;
begin
for i:=1 to n do
if x[j]>x[j+1] then
begin
tmp:=x[j+1];
x[j+1]:=x[j];
x[j]:=tmp;
end;
end;
делал по лекциям, не работает...
Укажите ошибки пожалуйста.