MODULE Rechne;
IMPORT Display;
PROCEDURE ProgMain* ;
VAR
zahl1, zahl2, ergebnis: INTEGER;
ch: CHAR;
BEGIN
Display. WriteStr ("Bitte gib Zahl 1 ein: ");
Display. ReadInt (zahl1,5,ch);
Display. WriteLn;
Display. WriteStr ("Bitte gib Zahl 2 ein: ");
Display. ReadInt (zahl1,5,ch);
Display. WriteLn;
ergebnis := zahl1 + zahl2;
Display. WriteStr ("Die Summe der beiden Zahlen ist ");
Display. WriteInt (ergebnis, 10);
Display. WriteStr (".");
Display. WriteLn;
Display. ReadChar (ch);
END ProgMain;
END Rechne.
Die beiden Zahlen werden noch einmal mit ausgegeben, etwa in der Form
"Die Summe der beiden Zahlen 17 und 12 ist 29."
Der entsprechende Teil des Quelltextes verändert sich damit zu
Display. WriteStr ("Die Summe der beiden Zahlen ");
Display. WriteInt (zahl1, 10);
Display. WriteStr (" und ");
Display. WriteInt (zahl2, 10);
Display. WriteStr (" ist ");
Display. WriteInt (ergebnis, 10);
Display. WriteStr (".");
Zurück zum Thema Variable