home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Media Share 9
/
MEDIASHARE_09.ISO
/
pascal
/
tplib21.zip
/
INSTALL.EXE
/
EXMATH.PAS
< prev
next >
Wrap
Pascal/Delphi Source File
|
1993-05-30
|
3KB
|
116 lines
(* Example program: MATH unit *)
PROGRAM EXMATH;
USES
STRINGS,MATH;
VAR
r,r1,r2: REAL;
s: STRING;
x: INTEGER;
PROCEDURE ExOpt1;
BEGIN
WriteLn('Enter a temperature in degrees Fahrenheit. The');
WriteLn('conversion functions will show the equivalent');
WriteLn('temperature on the Centigrade and Kelvin scales.');
WriteLn('Enter "Q" to exit.');
REPEAT
WriteLn;
Write('Temperature? ');
ReadLn(s);
IF UpperCase(s)='Q' THEN EXIT;
VAL(s,r,x);
IF x=0 THEN
BEGIN
WriteLn('Centigrade = ', FahrToCent(r):4:1);
WriteLn('Kelvin = ',
CentToKelv(FahrToCent(r)):4:1);
END
ELSE
WriteLn('Invalid entry - Try again.');
UNTIL FALSE;
END; { ExOpt1 }
PROCEDURE ExOpt2;
BEGIN
WriteLn('Enter some values in inches and observe the results');
WriteLn('from some of the conversion routines. Try using some');
WriteLn('very large values to see the conversion for miles.');
WriteLn('Enter "Q" to exit.');
REPEAT
WriteLn;
Write('Measurement? ');
ReadLn(s);
IF UpperCase(s)='Q' THEN EXIT;
VAL(s,r,x);
IF x=0 THEN
BEGIN
InchToFtIn(r,r1,r2);
WriteLn('InchToFtIn = ', r1:1:0, ''' ', r2:1:2,'"');
WriteLn('InchToYard = ', InchToYard(r):1:1);
WriteLn('InchToMile = ', InchToMile(r):1:1);
WriteLn('InchToMeter = ', InchToMeter(r):1:2);
END
ELSE
WriteLn('Invalid entry - Try again.');
UNTIL FALSE;
END; { ExOpt2 }
PROCEDURE ExOpt3;
BEGIN
WriteLn('Enter some weights in ounces and observe the result');
WriteLn('from each of the routines demonstrated here.');
WriteLn('Enter "Q" to exit.');
REPEAT
WriteLn;
Write('Ounces? ');
ReadLn(s);
IF UpperCase(s)='Q' THEN EXIT;
VAL(s,r,x);
IF x=0 THEN
BEGIN
OunceToLbOz(r,r1,r2);
WriteLn('OunceToLbOz = ', r1:1:0,' lb ',
r2:1:2,' oz.');
WriteLn('OunceToTon = ', OunceToTon(r):1:3);
WriteLn('OunceToGram = ', OunceToGram(r):1:1);
END
ELSE
WriteLn('Invalid entry - Try again.');
UNTIL FALSE;
END; { ExOpt3 }
BEGIN { ExMath }
WriteLn('EXMATH - MATH/MATH87 UNIT EXAMPLE PROGRAM');
WriteLn;
REPEAT
WriteLn;
WriteLn('Select the features you wish to try:');
WriteLn;
WriteLn(' 1. Temperature conversion.');
WriteLn(' 2. Linear measurements.');
WriteLn(' 3. Weight conversion.');
WriteLn;
Write('Enter option or zero to quit : ');
ReadLn(s);
s:=TrimL(s);
WriteLn;
CASE s[1] OF
'1': ExOpt1;
'2': ExOpt2;
'3': ExOpt3;
END;
UNTIL s[1]='0';
END.