Program calcul_sinus;
var x:real;
(***********************************)
Function sinus (x:real) : real;
Var som, term1, term2, i:real;
Begin
som:=x;
term2:=x;
i:=1;
Repeat i:=i+2;
term1:=term2;
term2:=term2 * -sqr(x) / (i*(i-1));
som:=som+term2;
Until abs (term2-term1) <= 0.0001;
sinus:=som;
End;
(*****************P.P*****************)
Begin
Repeat
Writeln ('donner un réel x ');
Readln(x);
Until(- Pi <= x) and (x <= Pi);
Writeln ('sin(', x:1:2,') = ', sinus(x):10:10);
End.