Basic Pascal Tutorial/Chapter 2/Solution/de

From Lazarus wiki
(Redirected from Solution 2/de)
Jump to navigationJump to search
The printable version is no longer supported and may have rendering errors. Please update your browser bookmarks and please use the default browser print function instead.

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

 ◄   ▲   ► 

2Fa - Lösung

(Autor: Tao Yue, Übersetzung ins Deutsche) 


(* Author:    Tao Yue
   Date:      19 June 1997
   Description:
      Ermittlung der Summe und des Durchschnitts von fünf vordefinierten Zahlen
   Version:
      1.0 - original version
      2.0 - Daten von der Tastatur einlesen
*)

program SumAverage;

const
   NumberOfIntegers = 5;

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

begin    (* Main *)
   write ('Gib die erste Zahl ein: ');
   readln (A);
   write ('Gib die zweite Zahl ein: ');
   readln (B);
   write ('Gib die dritte Zahl ein: ');
   readln (C);
   write ('Gib die vierte Zahl ein: ');
   readln (D);
   write ('Gib die fünfte Zahl ein: ');
   readln (E);
   Sum := A + B + C + D + E;
   Average := Sum / 5;
   writeln ('Anzahl der Ganzzahlen = ', NumberOfIntegers);
   writeln;
   writeln ('Nummer1:', A:8);
   writeln ('Nummer2:', B:8);
   writeln ('Nummer3:', C:8);
   writeln ('Nummer4:', D:8);
   writeln ('Nummer5:', E:8);
   writeln ('================');
   writeln ('Summe:', Sum:12);
   writeln ('Durchschnitte:', Average:10:1);
end.
 ◄   ▲   ► 
Retrieved from "http://wiki.freepascal.org/index.php?title=Basic_Pascal_Tutorial/Chapter_2/Solution/de&oldid=153800"