|
|
|
|
Boujour a tous et merci de m'aider sur ce sujet , voila g un exercice de programmation en pascal; voila l'éxo:
-programme permetant de faire le calcul suivant:
(1/1!) + (2/2!) + (3/3!) +.......+ (n/n!) ,avec n lu.
donc voila j'ai commencer et voici mon idée mais elle ne marche pas :
program exo_facto;
var h,n:integer;
s:real;
begin
for n:=1 to n do
for h:= 1 to n do
s:=s+1/h
writeln(s);
readln;readln;
end.
merci de vos réponses..
Configuration: Windows XP Firefox 3.0.5
Petits rappels mathématiques :
program exo_facto;
var i,n,facto:integer; e:real;
begin
write('n = '); readln(n); // à ne pas oublier pour que ça marche
facto:=1; e:=1; // initialisation n=0
for i:=1 to (n-1) do
begin
facto:=facto*i; // facto = i!
e:=e+1/facto;
end;
writeln('e ~ ',e:0:15); // pour n grand e=exp(1)
writeln; write('Fin du programme. Appuyer sur Entree'); readln;
end.
La confiance n'exclut pas le contrôle |
Ajouter supprimer des programmes Animation 3d program Exercice programation lineaire avec solution Fin programme explorer.exe Language de programmation pascal Palyndrome prog pascal Pascal le grand frere streaming Program too big to fit in memory Programmation linux thread Programmation pascal Programme crypto Programme download musique Programme gratuit retouche photo Programme msn webcam Programme pascal qui donne si une année et bisecstile ou millésime Programme pirater hotmail possible Programmer l'arret de l'ordinateur Vista ajout et suppression de programme
