[Pascal] Fonctions et procédures Fermé

Question

Bonjour à tous,
je n'arrive pas à résoudre cet ex d'info.....pouvez vous m'aidez!!!!


sachant que  sin(x)=x/1!  -  xxx/3!  +  xxxxx/5!  -  xxxxxxx/7!  +  x x x x x x x x x/9!  -
pour x proche de 0.
ecrire un programme pascal et une analyse modulaire qui permet de calculer la valeur approchée de sin(x)..

le calcul s'arrete quand la difference entre de termes consécutifs devient inferieure ou egale à 10 à la piussance -4
 la soluution doit comporter au moins une ft et une procédure.....

KX · Answer

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;

sory · Answer

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

much1707 · Answer

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

[Pascal] Fonctions et procédures

3 réponses

Discussions similaires