[Pascal] Fonctions et procédures
rose14
Messages postés
20
Date d'inscription
Statut
Membre
Dernière intervention
-
much1707 -
much1707 -
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.....
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.....
A voir également:
- [Pascal] Fonctions et procédures
- Turbo pascal - Télécharger - Édition & Programmation
- Fonction si et - Guide
- My pascal - Télécharger - Édition & Programmation
- Dev pascal - Télécharger - Édition & Programmation
- Codes secrets Android : accéder aux fonctions cachées - Guide
3 réponses
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;
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
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
premierement 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