mirror of
https://github.com/SEPPDROID/Digital-Research-Source-Code.git
synced 2025-10-23 00:14:25 +00:00
33 lines
896 B
Plaintext
33 lines
896 B
Plaintext
/*****************************************************/
|
||
/* This program evaluates a polynomial expression */
|
||
/* using FIXED DECIMAL data. */
|
||
/*****************************************************/
|
||
decpoly:
|
||
procedure options(main);
|
||
|
||
%replace
|
||
true by '1'b;
|
||
declare
|
||
(x,y,z) fixed decimal(15,4);
|
||
|
||
do while(true);
|
||
put skip(2) list('Type x,y,z: ');
|
||
get list(x,y,z);
|
||
|
||
if x=0 & y=0 & z=0 then
|
||
stop;
|
||
|
||
put skip list(' 2');
|
||
put skip list(' x + 2y + z =',P(x,y,z));
|
||
end;
|
||
|
||
P:
|
||
procedure (x,y,z) returns (fixed decimal(15,4));
|
||
declare
|
||
(x,y,z) fixed decimal(15,4);
|
||
return (x * x + 2 * y + z);
|
||
end P;
|
||
|
||
end decpoly;
|
||
|
||
|