MODULE Fahrenheit;
IMPORT Display;
PROCEDURE ProgMain* ;
VAR
celsius: REAL;
ch: CHAR;
BEGIN
Display. WriteStr(" Umrechnung Celsius -> Fahrenheit");
Display. WriteLn;
Display. WriteStr(" °°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°");
Display. WriteLn;
Display. WriteStr ("Bitte geben Sie die Celsiusgrade an: ");
Display. ReadReal (celsius, 4,ch);
Display. WriteLn;
celsius := 9/5*celsius+32;
Display. WriteStr ("Das sind ");
Display. WriteReal (celsius, 10);
Display. WriteStr (" °F.");
Display. ReadChar (ch);
END ProgMain;
END Fahrenheit.
Zurück zum Thema Variable