Sharp MZ-700 - Page 76

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 D I M A C3) . L $ (4)
20 FOR 0=1 T O 4
30 READ L$ C0) :NEXT 0
4 0 F OR 0 =1 TO 3
50 A ( 0) =I NT C20* RND C1 ) ) +1
60 NEXT 0
7 0 IF A C 1) > = A C 2) +A (3) GOTO 4 0
80 I F A C2) > = A C 1) +A C3) GOTO 4 0
90 I F A C 3) >=A C1) + A C2) GO T O 4 0
1
00 W= CA C1) +A (2) +A C3) ) / 2
11 0 T=W :FOR 0=1 T O 3
1 2 0
T=T* CW -A ( 0) ) :NEXT 0
1 30 SS=SQR CT ) : S = I NT CSS)
14 0 I F SS - 8>0. 5 THEN S = S+1
15 0 PR I NT " ~DODO "
16 0 PR I NT SOLVE FOR THE AREA OF THE
FOLLOWING TRI ANG LE
11
1 70 PRINT ROUND YOUR ANSWER T O THE
N E AR E ST WHO LE NUMB ER ~
18 0 PRINT
1 9 0 PRINT TAB C 8) " A "
2 0 0
PR I N T TA B C 8) " !ZliSJ "
; A C 1)
; TAB C1 5) ; L$ C1 )
2 1 0
PR I N T TA B C 7)
1
'
!Zl ISl " ; T AB C 1 5) ; L $ C 2)
; A C2)
220 PRINT TAB C 6) "!Zl ISJ " ;T A B C15) ;L$ (3)
; A C3)
230 PRINT TAB C5) "!Zl
24 0 PR INT TAB C3) " B !Zl
ISJ C "
250 PRI N T T ABC4) "DDDDDDDDDD "
260 PR I N T " ODD "
270 PRINT TAB C 3) ; L $ (4)
280 INPUT Y
290 IF Y = S THE N P RINT
40
OK !! " : GOTO
3 00 IF Y<S THEN PRINT TOO SMA LL! "
:
GOTO 320
3 1 0 PRINT T OO L A RGE! "
3 20 PR I N T " DD " ;
330 PRINT TAB C2 4 ) ; S P C C 25 ) :P RIN T "D " ;
34 0 GO T O 27 0
350 DAT A LEN G TH SIDE AB =. LEN G TH SIDE BC=
360 DA T A LE NGT H SIDE CA = , AR E AS O F TRIAN
GLE ABC IS
74 -------------------------------------------------------------------