|
DataMuseum.dkPresents historical artifacts from the history of: CP/M |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about CP/M Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - download
Length: 768 (0x300)
Types: TextFile
Names: »WORK.PAS«
└─⟦08ea08c61⟧ Bits:30003924 PolyPascal programmer
└─ ⟦this⟧ »WORK.PAS«
program celsius;
var
cels, ream, fahr : real;
i : integer;
bla : string(.15.);
begin
write(clrhom);
writeln('Programmet omregner celsiusgrader');
writeln('til reamur og fahrenheit ved indtastning');
writeln('af celsiusgrader');
writeln;
(*write('Indtast celsiusgrader: ')*)
(*readln(cels)*)
writeln;
writeln('Celsius: Reamur: Fahrenheit:');
cels:=1; bla:=' ';
for i := 1 to 100 do
begin
ream:=cels*0.8; fahr:=cels*1.8 +32;
writeln(cels : 6 : 2,bla,ream : 6 : 2,bla,fahr : 6 : 2);
cels:=cels+1;
end;
end.
«eof»