2

program temperature(output) ;

{Program to convert temperatures from Fahrenheit to Celsius. }

const

MIN = 32 ;

MAX = 50 ; CONVERT = 5 / 9 ;

var

fahren: integer ;

celsius: real ;

begin

writeln('Fahrenheit Celsius') ;

writeln('---------- -------') ;

for fahren := MIN to MAX do begin celsius := CONVERT * (fahren - 32) ; writeln(fahren: 5, celsius: 18: 2) ;

end ; end.

Compiling the Program

Now compile the program with pc, the Pascal compiler, by typing at the system prompt:

hostname% pc temp.p

Pascal names the compiled version of the program a.out by default.

8

Pascal 4.0 User’s Guide

Page 32
Image 32
HP SunSoft Pascal 4.0 manual Compiling the Program