-- Chapter 8 - Programming exercise 2 -- Centigrade to Farenheit temperature table -- -- This program generates a list of Centigrade and Farenheit -- temperatures with a note at the freezing point of water -- and another note at the boiling point of water. with Ada.Text_IO, Ada.Integer_Text_IO; use Ada.Text_IO, Ada.Integer_Text_IO; procedure CH08_2 is Centigrade, Farenheit : INTEGER; function Cent_To_Faren(Cent : INTEGER) return INTEGER is begin return (32 + Cent * 9 / 5); end Cent_To_Faren; begin Put("Centigrade to Farenheit temperature table"); New_Line(2); for Count in INTEGER range -2..12 loop Centigrade := 10 * Count; Farenheit := Cent_To_Faren(Centigrade); Put("C ="); Put(Centigrade,5); Put(" F ="); Put(Farenheit,5); if Centigrade = 0 then Put(" Freezing point of water"); end if; if Centigrade = 100 then Put(" Boiling point of water"); end if; New_Line; end loop; end CH08_2; -- Result of execution -- Centigrade to Farenheit 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