SIMSCRIPT II.5 Programming Language

SIMSCRIPT II.5 Programming Language
Program 1-4.
_______________________________________________________________________________
''Program to Compute the Maximum, Minimum and Average
'' of a Set of Numbers
read NUMBER
'' NUMBER OF DATA OBSERVATIONS
if NUMBER < 1
go to FINISH
otherwise
read VALUE
let MAX = VALUE
let MIN = VALUE
let SUM = VALUE
for COUNT = 2 to NUMBER by 1
do
read VALUE '' DATA VALUE
add VALUE to SUM
if VALUE > MAX
let MAX = VALUE
always
if VALUE < MIN
let MIN = VALUE
always
loop
print 3 lines with SUM / NUMBER, MAX, MIN thus
THE AVERAGE VALUE IS ***.****
THE MAXIMUM VALUE IS ***.****
THE MINIMUM VALUE IS ***.****
'FINISH'
stop
end
_______________________________________________________________________________
1.22.4 Computing Square Roots
The square root of a number is required in many calculations. In fact, in two of the preceding examples,
square roots were obtained using exponentiation. The following is an implementation of
Newton's method to approximate square roots.
The example demonstrates the use of a logical control phrase to control an iterative computation.
The logical condition specifies a relative precision of the estimated square root as a stopping
criterion. Note that the first statement within the loop calculates a new estimate for the square root,
using the last estimated value. This technique is fundamental to such iterative procedures. Note
also the explanatory comment appearing beside the statement to invert the sign of DELTA, should it
be negative.
34