MODULE LinGleich;
IMPORT Display;
PROCEDURE ProgMain*;
VAR a, x, b: REAL;
ch: CHAR;
BEGIN
Display. WriteStr ("Programm zur Berechnung der Lösung einer linearen Gleichung ax = b");
Display. WriteLn;
Display. WriteStr ("Bitte a eingeben: ");
Display. ReadReal (a, 5, ch);
Display. WriteLn;
Display. WriteStr ("Bitte b eingeben: ");
Display. ReadReal (b, 5, ch);
Display. WriteLn;
Display. WriteStr ("Die Gleichung ");
Display. WriteReal (a,1);
Display. WriteStr (" * x = ");
Display. WriteReal (b,1);
IF a = 0
THEN
IF b = 0
THEN Display. WriteStr (" hat die Lösung x = 0");
ELSE Display. WriteStr (" ist nicht lösbar!");
END;
ELSE Display. WriteStr (" hat die Lösung x = ");
Display. WriteReal (b/a, 1);
END;
REPEAT UNTIL Display.KeyPressed();
END ProgMain;
END LinGleich.
Zurück zum Thema Bedingte Anweisung