SIMSCRIPT II.5 Programming Language

Advanced Topics
Program 6-4.
_______________________________________________________________________________
preamble
normally, mode is integer
define DATA as a real, 2-dimensional array
monitored on the right and the left
define M and N as variables
end
main
read N and M''THE ARRAY BOUNDS
reserve DATA(*) as N by M''RESERVE THE ARRAY
until mode is alpha,
read I,J,DATA(I,J)
for I = 1 to N,
for J = 1 to M
do ''ASSIGN DEFAULT VALUES
if DATA(I,J) eq 0
if J greater than I
let DATA(I,J) = 1
else
let DATA(I,J) = -1
always
always
loop
skip one field''THE ALPHA DELIMITER
until mode is alpha
do
read I,J
print 1 line with I,J,DATA(I,J) like this
THE VALUE OF DATA(**,**) IS ****.**
loop
stop
end
function DATA(L,K)
define VALUE as a real variable
''THE FETCHING OF THE VALUE DATA(L,K) IS INHIBITED
''UNTIL THE SUBSCRIPTS ARE VERIFIED
if L less than 1
or L greater than N
or K less than 1
or K greater than M
print 1 line with L,K thus
INVALID SUBSCRIPTS *** AND ***
stop
otherwise
move to VALUE''THE VALUE OF DATA(L,K) IS FETCHED
return with VALUE
end
285