Exercice 5:
Écrire un programme qui permet de faire la somme de 5 réels.
Algorithme:
0) Début Somme
1) [S ← 0] pour i de 1 à 5 faire
Ecrire(" Donner un réel : "), lire(x)
S ← S + x
FinPour
2) Ecrire("La somme est ", S)
3) Fin Somme
T.D.O (Tableau de déclaration des objets)
Objet | Type/Nature | Rôle |
---|---|---|
x s i |
réel réel Entier |
réel à saisir somme à calculer compteur |
Traduction en Pascal:
program somme ;
uses wincrt ;
var
x,s : real ;
i:integer ;
begin
s:=0 ;
for i:=1 to 5 do
begin
write(' Donner un réel : ') ;
readln(x);
s:= s + x ;
end ;
writeln('La somme est ', s:5:2) ;
End.