seppdroid/Digital-Research-Source-Code
1
0
Fork 0
mirror of https://github.com/SEPPDROID/Digital-Research-Source-Code.git synced 2025-10-23 08:24:18 +00:00
Code Issues Actions Packages Projects Releases Wiki Activity

Upload

Browse Source 
Digital Research
This commit is contained in:
Sepp J Morris
2020-11-06 18:50:37 +01:00
parent 621ed8ccaf
commit 31738079c4
8481 changed files with 1888323 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

35
SAMPLE CODE/PLI PROG SAMPLE CODE/TEST.PLI Normal file
View File

@@ -0,0 +1,35 @@
/***************************************************/
/* 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;