Anonymní profil Hans – Programujte.com

Děkuji moc, velice jste mi pomohl :)

Ahojte,

procvičoval jsem si některé příklady a vrhnul jsem se na funkce e^x, sin a cos. Příklad "e^x" jsem udělal během chvilky, tak jsem hned skočil na další, na sinus. Bohužel, jsem už v koncím a nevím si rady jak dál.

Předem děkuji za rady.
 

program program43;
const EPS = 0.00001;
var x,y,soucet,poradi,clen: real;

begin

    readln(x);

    soucet:=x;
    clen:=x;
    poradi:=0;

    repeat
      poradi:=poradi+1;
      clen:=-clen* sqr(x)/(2*poradi*(2*poradi+1));
      soucet:=soucet+clen;
    until abs(clen) < EPS;

    writeln('Vysledek sin: ',soucet:0:10);

    y:=sin(x);
    writeln('Funkce sin (porovnani): ',y:0:10);

    readln();
end.