Matematické Fórum

Ahoj, píšu program, který pomocí Taylorova rozvoje spočte hodnotu funkce sin pro nějaký úhel, který zadá uživatel. Uživatel také zadá s jakou to chce přesností. Přesnost honodtím tak, že naše hodnota je přesná pokud součet posledních dvou prvků součtu je menší než epsilon. Můj kód vypadá takto:

Proč mi to prosím nefuguje?

program taylor;

var pomoc:real;
    alfa:integer;
    i:integer;
    x:real;
    epsilon:real;
    suma:real;

    begin

      Writeln('Zadejte velikost uhlu alfa ve stupnich:');
      Readln(alfa);
      Writeln('Zadejte velikost povolene chyby: ');
      Readln(epsilon);


      x:=(alfa*pi/180);

      pomoc:=x;
      suma:=x;
      i:=2;

      while pomoc-pomoc*((i-1)*(i-1)-(i-1))/(x*x)>=epsilon do
            begin
              If  i mod 2 = 1 then begin
                pomoc:=abs(pomoc)*(x/i)*(x/(i-1));
                  If i mod 4 = 3 then pomoc:=-pomoc;
                suma:=suma + pomoc;

              end;
              i:=i+1
            end;
            writeln(suma:2:5);
            readln;

    end.