[Pascal] Fonctions et procédures
Fermé
rose14
Messages postés
20
Date d'inscription
vendredi 25 juillet 2008
Statut
Membre
Dernière intervention
13 juin 2009
-
30 août 2008 à 10:02
much1707 - 26 avril 2009 à 22:20
much1707 - 26 avril 2009 à 22:20
A voir également:
- [Pascal] Fonctions et procédures
- Fonction si et - Guide
- Turbo pascal download - Télécharger - Édition & Programmation
- My pascal - Télécharger - Édition & Programmation
- Codes secrets Android : accéder aux fonctions cachées - Guide
- Ces codes secrets vous donnent accès aux fonctions cachées de votre smartphone Android - Guide
3 réponses
KX
Messages postés
16736
Date d'inscription
samedi 31 mai 2008
Statut
Modérateur
Dernière intervention
17 mai 2024
3 015
30 août 2008 à 12:49
30 août 2008 à 12:49
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
26 avril 2009 à 22:20
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