Musterlösung zu "Fahrenheit"

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