SIMSCRIPT II.5 Programming Language

SIMSCRIPT II.5 Basic Concepts
Program 1-5.
_______________________________________________________________________________
''Program to Calculate Approximate Square Roots
read NUMBER
if NUMBER is not positive
print 1 line thus
CANNOT EVALUATE SQUARE ROOT: VALUE NOT POSITIVE
else
let SQRT = NUMBER/2.0
let DELTA = SQRT
until DELTA < (0.00001 * SQRT)
do
let SQRT = (SQRT + NUMBER/SQRT)/2.0
let DELTA = NUMBER/SQRT - SQRT
if DELTA is not positive
let DELTA = -DELTA '' USE THE ABSOLUTE VALUE
always
loop
print 1 line with NUMBER, SQRT thus
THE SQUARE ROOT OF *******.**** IS ****.*****
always
stop
end
_______________________________________________________________________________
35