|
DataMuseum.dkPresents historical artifacts from the history of: Bogika Butler |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about Bogika Butler Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - download
Length: 640 (0x280) Types: TextFile Names: »CELSIUS.PAS«
└─⟦f983c2ef3⟧ Bits:30004681 Pascal opgaver (Butler) └─ ⟦this⟧ »CELSIUS.PAS«
PROGRAM celsius; VAR celsius, fahrenheit, reamur : REAL; BEGIN WRITE(CLRHOM); WRITELN('Programmet udskriver REAMUR- og FAHRENHEIT-gradtallene,'); WRITELN('når man indtaster gradtallet for CELSIUS'); WRITELN; WRITE('Indtast CELSIUS: '); READLN(celsius); reamur := celsius * 0.8; fahrenheit := celsius * 1.8 + 32; WRITELN; WRITELN('Celsius: ', celsius : 7 : 2); WRITELN('Reamur: ', reamur : 7 : 2); WRITELN('Fahrenheit: ', fahrenheit : 7 : 2); WRITELN; END. «eof»