проблемы: разложение 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 - 27.05.2007 20:30

[мисс_граффити]

1. Общие вопросы по математике.
2. цикл по j забыл

!

Заголовок темы должен быть информативным!

Срочно переименуй.

[greteon]

2мисс_граффити
Не понял как переименовать...

1. Я сперва смотрел задачу из той темы...Она тоже выдаёт бредовые результаты на больших х.
2. Логику программы можете объяснить...

[мисс_граффити]

1. А какие границы применения этой формулы разложения? В каком интервале должен быть х?
2. http://algolist.manual.ru/sort/bubble_sort.php

[greteon]

Oграничено только возможностями pascal.
sin(x), который идёт по умолчанию считает павильно, ибо научен формулам приведения.

[мисс_граффити]

я про математику, а не паскаль.
там ограничение есть, при котором это разложение справедливо. я его не помню.

[greteon]

ограничение можно наверное обойти...