This is the second disk of the PASCAL TUTOR system. It has the
Submitted By:
WEBMASTER
Rating:
(Not rated) (
Rate It)
(* Chapter 4 - Program 5 *)
program Temperature_Conversion;
var A1,A2,A3 : integer;
begin
Writeln('Centigrade to farenheight temperature table');
Writeln;
for A1 := -2 to 12 do begin
A2 := 10*A1;
A3 := 32 + A2*9 div 5;
Write(' C =',A2:5);
Write(' F =',A3:5);
if A2 = 0 then
Write(' Freezing point of water');
if A2 = 100 then
Write(' Boiling point of water');
Writeln;
end;
end.
