|
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: »FAHRENHE.PAS«
└─⟦f983c2ef3⟧ Bits:30004681 Pascal opgaver (Butler) └─ ⟦this⟧ »FAHRENHE.PAS«
PROGRAM fahrenhe; VAR celsius, fahrenheit, reamur : REAL; BEGIN WRITE(CLRHOM); WRITELN('Programmet udskriver CELSIUS- og REAUMUR-gradtallene,'); WRITELN('når man indtaster gradtallet for FAHRENHEIT'); WRITELN; WRITE('Indtast FAHRENHEIT: '); READLN(fahrenheit); celsius := (fahrenheit - 32) / 1.8; reamur := celsius * 0.8; WRITELN; WRITELN('Fahrenheit: ', fahrenheit : 7 : 2); WRITELN('Celsius: ', celsius : 7 : 2); WRITELN('Reamur: ', reamur : 7 : 2); WRITELN; END. «eof»