Musterlösung zu "Idealgewicht"

MODULE Ideal;

IMPORT Display;

PROCEDURE ProgMain*;
VAR
    gewicht,groesse, faktor: REAL;
    geschlecht, ch: CHAR;

BEGIN
    Display. WriteStr ("Programm zur Berechnung des Idealgewichts");
    Display. WriteLn;
    Display. WriteStr ("Bitte Körpergröße in Zentimetern eingeben! ");
    Display. ReadReal (groesse, 4, ch);
    Display. WriteLn; 
    Display. WriteStr ("Bitte Geschlecht eingeben (m/w) ");
    Display. ReadChar (geschlecht);
    Display. WriteLn;
    IF geschlecht = "m"
        THEN faktor:= 0.95;
        ELSE faktor:=0.9; 
    END;
    gewicht:=(groesse-100)* faktor;
    Display. WriteLn;
    Display. WriteStr("Das Idealgewicht beträgt: ");
    Display. WriteReal(gewicht,3);

    REPEAT UNTIL Display.KeyPressed();
END ProgMain;

END Ideal.


Zurück zum Thema "Bedingte Anweisung"