35 lines
896 B
Plaintext
35 lines
896 B
Plaintext
|
/***************************************************/
|
|||
|
|
/* This program computes the largest of three */
|
|||
|
|
/* FLOAT BINARY numbers x, y, and z */
|
|||
|
|
/***************************************************/
|
|||
|
|
test:
|
|||
|
|
procedure options(main);
|
|||
|
|
declare
|
|||
|
|
(a,b,c) float binary;
|
|||
|
|
|
|||
|
|
put list ('Type Three Numbers: ');
|
|||
|
|
get list (a,b,c);
|
|||
|
|
put list ('The Largest Value is',max3(a,b,c));
|
|||
|
|
|
|||
|
|
/* this procedure computes the largest of x, y, and z */
|
|||
|
|
max3:
|
|||
|
|
procedure(x,y,z) returns(float binary);
|
|||
|
|
declare
|
|||
|
|
(x,y,z,max) float binary;
|
|||
|
|
|
|||
|
|
if x > y then
|
|||
|
|
if x > z then
|
|||
|
|
max = x;
|
|||
|
|
else
|
|||
|
|
max = z;
|
|||
|
|
else
|
|||
|
|
if y > z then
|
|||
|
|
max = y;
|
|||
|
|
else
|
|||
|
|
max = z;
|
|||
|
|
return(max);
|
|||
|
|
end max3;
|
|||
|
|
|
|||
|
|
end test;
|
|||
|
|
|
|||
|
|
|