Basic Pascal Tutorial/Chapter 2/Solution/fr

From Lazarus wiki
Jump to navigationJump to search

български (bg) Deutsch (de) English (en) français (fr) 日本語 (ja) 中文(中国大陆) (zh_CN)

Tutoriel de Pascal Objet : Entrée/sortie / Solution de l'exercice

(* Auteur:    Tao Yue
   Date:      19 June 1997
   Description:
      Trouve la somme et la moyenne de 5 nombre prédéfinis
   Version:
      1.0 - version originale
      2.0 - lecture des données au clavier
*)

program SumAverage;

const
   NumberOfIntegers = 5;

var
   A, B, C, D, E : integer;
   Sum : integer;
   Average : real;

begin    (* Main *)
   write ('Entrer le premier nombre: ');
   readln (A);
   write ('Entrer le second nombre: ');
   readln (B);
   write ('Entrer le troisième nombre: ');
   readln (C);
   write ('Entrer le quatrième nombre: ');
   readln (D);
   write ('Entrer le cinquième nombre: ');
   readln (E);
   Sum := A + B + C + D + E;
   Average := Sum / 5;
   writeln ('Nombre d''entiers = ', NumberOfIntegers);
   writeln;
   writeln ('Nombre1:', A:8);
   writeln ('Nombre2:', B:8);
   writeln ('Nombre3:', C:8);
   writeln ('Nombre4:', D:8);
   writeln ('Nombre5:', E:8);
   writeln ('================');
   writeln ('Somme:', Sum:12);
   writeln ('Moyenne:', Average:10:1);
end.
Sommaire