SIMSCRIPT II.5 Programming Language

SIMSCRIPT II.5 Programming Language
Program 1-2.
_______________________________________________________________________________
'' Program To Compute The Roots of a Quadratic Equation
'' of the Form AX**2 + BX + C = 0
read A,B,C
print 2 lines with A,B,C as follows
ROOTS OF THE QUADRATIC EQUATION WITH COEFFICIENTS:
A=***.** B=***.** C=***.**
if A eq 0
if B eq 0
if C eq 0
print 1 line as follows
TRIVIAL CASE, COEFFICIENTS ALL ZERO
else
print 1 line with C as follows
EQUATION STATES ***.** = 0
always
else
print 1 line with -C/B as follows
LINEAR, ONE ROOT ALPHA = ***.**
always
else
let X = B**2 - 4*A*C
if X ls 0
let IMAG = ( (-X)**0.5 )/(2*A)
let REAL = -B/(2*A)
print 2 lines with REAL,IMAG as follows
EQUATION HAS COMPLEX ROOTS
REAL PART = ***.** IMAGINARY PART = ***.**
else
let X = X ** 0.5
let ALPHA = (-B+X)/(2*A)
let BETA = (-B-X)/(2*A)
print 2 lines with ALPHA,BETA as follows
EQUATION HAS REAL ROOTS
ALPHA = ***.** BETA = ***.**
always
always
stop
end
_______________________________________________________________________________
1.22.2 Finding the Area of a Triangle
This program demonstrates nested if statements, using more complex logical expressions. The
program calculates the area and perimeter of a triangle with the lengths of the sides A, B, and C as
input data. The first if statement verifies that none of the sides is of zero or negative length. The
32