Musterlösung zu "Lineare Gleichung"

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