проблемы: разложение sin(x) в ряд и сортировка массива Опции

[greteon]

Просидел с простейшими программами...Так и не втыкнул как сделать...

Код

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;

делал по лекциям, не работает...
Укажите ошибки пожалуйста.

Сообщение отредактировано: greteon - 28.05.2007 0:30