SIMSCRIPT II.5 Programming Language

Programming Language Concepts
Program 3-1.
_______________________________________________________________________________
'' Generate a Table of Mathematical Functions on a Separate Output Unit.
'' Program Reads Number of Lines per Page, Number of Table
'' Entries and Output Unit on which Results to be Displayed.
preamble
normally mode is integer
end
main
read PAGE.SIZE, TABLE.SIZE, REPORT.UNIT
call DISPLAY(PAGE.SIZE, TABLE.SIZE, REPORT.UNIT)
stop
end
routine DISPLAY( NO.LINES, TSIZE, UNIT.NO)
use UNIT.NO for output
let page.v = 1
let lines.v = NO.LINES
begin report
begin heading
if page is first
print 1 line as follows
Tabulation of Mathematical Functions
skip 3 output lines
always
print 1 line with page.v as follows
Page No. **
skip 2 output lines
print 1 line as follows
I SQRT(I) I SQ LOG(I)
skip 1 output line
end
'' HEADING SECTION
for J = 1 to TSIZE,
print 1 line with J, SQRT.F(REAL.F(J)), J**2, LOG.10.F(REAL.F(J))
as follows
** **.** **** *.***
end '' REPORT SECTION
return
end '' ROUTINE DISPLAY
_______________________________________________________________________________
In its MAIN routine, this program reads in control data and passes these data to the DISPLAY routine
that uses them in its REPORT section. PAGE.SIZE is used to indicate the number of lines per page,
TABLE.SIZE the number of entries in the Mathematical Table, and REPORT.UNIT the output unit
on which the report is to be produced.
127