afficher la somme

Aller en bas

afficher la somme

Message  Admin le Dim 1 Mai - 17:05

ÉNONCÉ
Soit la somme Sn suivante:
Sn=1+3/22+5/33+7/44+…….+(2*n-1)/nn
Ecrire un programme pascal intitulé SOMME permettant de calculer et d'afficher la somme sn pour un entier n positif donné en utilisant la formule ci-dessus.
N.B:
La solution doit comporter au moins deux modules.

PASCAL
program somme;
uses wincrt;
var
n:integer;
s:real;
procedure saisie(var n:integer);
begin
writeln('saisir un entier positif');
repeat
readln(n);
until (n>0);
end;
function puis(n:integer):integer;
var
p,i:integer;
begin
p:=1;
for i:=1 to n do p:=p*n;
puis:=p;
end;
function som(n:integer):real;
var
i:integer;
s1:real;
begin
s1:=1;
for i:=2 to n do
s1:=s1+(2*i-1)/puis(i);
som:=s1;
end;
begin
saisie(n);
s:=som(n);
writeln('la somme est = :',s:6:2);
end.

Admin
Admin

Messages : 137
Date d'inscription : 29/12/2010

Voir le profil de l'utilisateur http://aidescolaire.yoo7.com

Revenir en haut Aller en bas

Revenir en haut


 
Permission de ce forum:
Vous ne pouvez pas répondre aux sujets dans ce forum