Vypočet SIN pomocí mocniné řady – Pascal – Fórum – Programujte.com

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.

#1 Hans
Program je dobře, pouze musíš počítat s hodnotu argumentu v radiánech (ne ve stupních)

Tedy když zadáš úhel ve stupních, pak stačí doplnit řádek (za načtení x - readln(x))

x := x*pi/180;

a už to bude pracovat perfektně

Ještě jedna malá poznámka k přehlednosti. Aby ten kdo bude program používat věděl co se po něm chce, bylo by dobré mu to na začátku sdělit.

Tedy na začátek napsat:

WriteLn(' Program na vypocet funkce sinus');

Write(' Zadej hodnotu uhlu ve stupnich ');

ReadLn(x);

Děkuji moc, velice jste mi pomohl :)