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"