home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Collection of Hack-Phreak Scene Programs
/
cleanhpvac.zip
/
cleanhpvac
/
PASANS.ZIP
/
CH05_3.PAS
< prev
next >
Wrap
Pascal/Delphi Source File
|
1991-02-04
|
2KB
|
59 lines
(* Chapter 5 - Programming exercise 3 *)
(**************************************************************)
(* Centigrade to Farenheight temperature conversion *)
(* *)
(* This program generates a list of temperature conversions *)
(* with a note at the freezing point of water, and another *)
(* note at the boiling point of water. *)
(**************************************************************)
program Temperature_Conversion;
var Count,Centigrade,Farenheight : integer;
function Convert(In_Temp : integer) : integer;
begin
Convert := (32 + In_Temp * 9 div 5);
end;
begin
Writeln('Centigrade to farenheight temperature table');
Writeln;
for Count := -2 to 12 do begin
Centigrade := 10*Count;
Farenheight := Convert(Centigrade);
Write(' C =',Centigrade:5);
Write(' F =',Farenheight:5);
if Centigrade = 0 then
Write(' Freezing point of water');
if Centigrade = 100 then
Write(' Boiling point of water');
Writeln;
end;
end.
{ Result of execution
Centigrade to farenheight temperature table
C = -20 F = -4
C = -10 F = 14
C = 0 F = 32 Freezing point of water
C = 10 F = 50
C = 20 F = 68
C = 30 F = 86
C = 40 F = 104
C = 50 F = 122
C = 60 F = 140
C = 70 F = 158
C = 80 F = 176
C = 90 F = 194
C = 100 F = 212 Boiling point of water
C = 110 F = 230
C = 120 F = 248
}