Sharp MZ-700 Series Owner's Manual page 76

74
Example Now let's try using the RND function in a program which tests your ability to solve
for the area of a triangle of random size. Here, the RND function is used to deter-
mine the length of each of the three sides of the triangle, then you compute the area
of the triangle yourself and submit your answer to the computer for checking.
1 0
20
3 0
4 0
5 0
6 0
7 0
8 0
9 0
1 0 0
1 1 0
1 2 0
1 3 0
1 4 0
1 5 0
1 6 0
1 7 0
1 8 0
1 9 0
200
21 0
220
2 3 0
2 4 0
2 5 0
2 6 0
2 7 0
2 8 0
2 9 0
3 0 0
3 1 0
3 2 0
3 3 0
3 4 0
3 5 0
3 6 0
4 0
4 0
4 0
D I M A ( 3 ) , L $ ( 4 )
F O R J - 1 T O 4
R E A D L $ CJ) : N E X T J
F O R J = 1 T O 3
A ( J ) - : N T ( 2 0 * R N D ( 1 ) ) + 1
N E X T J
I F A ( 1 ) > = A ( 2 ) + A ( 3 ) G O T O
I F A ( 2 ) > = A ( 1 ) + A ( 3 ) G O T O
I F A ( 3 ) > = A ( 1 ) + A ( 2 ) G O T O
W = ( A ( 1 ) + A ( 2 ) + A ( 3 ) ) 0 2
T = W : F O R
J = 1
T O 3
T = T * ( W - A ( J ) ) : N E X T J
S S = S Q R ( T ) : S = I N T CSS)
I F S S - S > 0 . 5 T H E N S = S + 1
P R I N T
SEH9E1E3
P R I N T " S O L V E F O R T H E
F O L L O W I N G T R I A N G L E "
P R I N T " R O U N D Y O U R A N S W E R
N E A R E S T W H O L E N U M B E R "
P R I N T
A R E A O F T H E
T O T H E
P R I N T
P R I N T
; A ( 1 )
P R I N T
; A ( 2 )
P R I N T
; A ( 3 )
P R I N T
P R I N T
P R I N T
P R I N T
P R I N T
I N P U T
I F Y = S
4 0
I F Y < S
: G O T O
P R I N T
P R I N T
T A B ( 8 )
T A B ( 8 )
T A B ( 7 )
T A B ( 6 )
T A B ( 5 )
T A B ( 3 )
T A B ( 4 )
• • •
T A B ( 3 )
Y
T H E N
A "
0 S "
0 H
0
0
B 0
H
T A B ( 1 5 ) ; L S ( 1 )
T A B ( 1 5 ) ; L S ( 2 )
; T A B ( 1 5 ) ; L S ( 3 )
H
S O
• n n n n n n n n n
L S ( 4 )
P R I N T O K ! ! " : G O T O
T H E N P R I N T "
3 2 0
T O O L A R G E !
H O " ;
T O O S M A L L !
P R I N T T A B ( 2 4 )
G O T O 2 7 0
D A T A L E N G T H S
D A T A L E N G T H S
G L E A B C I S
S P C ( 2 5 ) : P R I N T
I
D E A B = , L E N G T H S
D E C A = , A R E A S O F
D E
T R
B C
:
A N