La fonction peut surement être amélioré mais voici ce que je te propose :

const ecart=0.0001;

function Sin(x:real):real;
var n:integer; y,facto,result2:real;
begin
n:=1; result:=x; result2:=0; y:=x; facto:=1;
while abs(result2-result)>ecart do
      begin
      result2:=result;
      y:=y*sqr(x);
      n:=n+2;
      facto:=facto*(n-1)*n;
      if odd(n div 2) then result:=result-y/facto
                      else result:=result+y/facto;
      end;
end;

Je veux que vous envoyez des cours et des éxercices de pascal borland 7.

Salut mon frére
je ne compris pas la langue français trés bien
deuxiement
j'ai un exercice que je l'ai déjà fait mais il existe trop d'erreurs
alors je vous donne l'exercice et j'attends la réponse svp

soit un tableau T qui conient les notes des stagiaires
ecrire un programme qui permet de :
1)-calculer les moyénnes general des stagiaires
2)-calculer les notes moyénnes des modules
3)-chercher les meilleurs note pour un module donnée -----> max de ligne
4)-chercher la meilleur note du semestre pour quel stagiaire et quel module

j'attends bien vos réponses , Merci d'avance !
Langage pascal bien sur
voila mon participation


Code :

programm moy;
function som(t)
begin
s:=s+[i,j];
end;
procedure(t:array;vc:araay[1..3]);
begin
s:=som(t);
mg=s/n;
vc[j]:=mg;
Je suis débutent