Basic Pascal Tutorial/Chapter 2/Solution/de

From Lazarus wiki
Revision as of 16:12, 8 May 2018 by Genosse (talk | contribs) (Created page with "{{Solution 2}} {{TYNavigator|Programming_Assignment_2|Sequential_control}} == 2Fa - Lösung == ''(Autor: Tao Yue, Übersetzung ins Deutsche)'' <syntaxhighlight> (* Author:...")
(diff) ← Older revision | Latest revision (diff) | Newer revision → (diff)
Jump to navigationJump to search

български (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.
 ◄   ▲   ►