Musterlösung zu "Rechne"

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.

Weitere Verbesserungsmöglichkeit:

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