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.
UHJvZ3JhbSBjYWxjdWxfc2ludXM7CnZhciB4OnJlYWw7CigqKioqKioqKioqKioqKioqKioqKioqKioqKioqKioqKioqKikKRnVuY3Rpb24gc2ludXMgKHg6cmVhbCkgOiByZWFsOwpWYXIgc29tLCB0ZXJtMSwgdGVybTIsIGk6cmVhbDsKQmVnaW4Kc29tOj14Owp0ZXJtMjo9eDsKaTo9MTsKUmVwZWF0IGk6PWkrMjsKdGVybTE6PXRlcm0yOwp0ZXJtMjo9dGVybTIgKiAtc3FyKHgpIC8gKGkqKGktMSkpOwpzb206PXNvbSt0ZXJtMjsKVW50aWwgYWJzICh0ZXJtMi10ZXJtMSkgPD0gMC4wMDAxOwpzaW51czo9c29tOwpFbmQ7CigqKioqKioqKioqKioqKioqKlAuUCoqKioqKioqKioqKioqKioqKQpCZWdpbgpSZXBlYXQKV3JpdGVsbiAoJ2Rvbm5lciB1biByw6llbCB4ICcpOwpSZWFkbG4oeCk7ClVudGlsKC0gUGkgPD0geCkgYW5kICh4IDw9IFBpKTsKV3JpdGVsbiAoJ3NpbignLCB4OjE6MiwnKSA9ICcsIHNpbnVzKHgpOjEwOjEwKTsKRW5kLg==