Sharp PC-1403 - Page 236

340: L = INT Cl• 1 000 +.5) / l
000 : R E TURN
350: L = IN T Cl • 1 0 00 0 00)/1
000000:R E TU R N
3 6 0 : PAUSE " Po i n t •;s T R$
(I + t ) ;BS (0):RETU RN
3 7 0 : LPR I NT " P o i nt • ; sTR$
( I+ l ) ; B$(0 ) :RETURN
962 B ytes
R ETURN
270 : S =L :L = K : GOSUB 35 0
2s 0 : K=L :L P R I N T • ; s T R$
0+"- " +S T R$ p + • - •+
S T R$ G I
290: L PR I N T • A = • ; USING
• tttttttt tt tt tt ttttttUU . tt tt tt " ; A
3 0 0:LPRINT •B= "iB :
L P RINT "C= • ; c :
L PRIM T ' · ' H = • ; J:
L PRIN T USING "U tt ttttlU
utttttttttt . uttuu1u • ;•s= •
; S: GOTO 1 2 0
31 0 : LPRIN T • •:L P RIN T " *T
S •= • ; USING •tt ttttUUUtt
U . U tt U tt " i K:EN D
3 2 0 : " C" : K =0 : U SING : PAUS E
• * *T S C L EAR**" :
E N D
230
1 90 : C =X :I F A > X LET X = A
200:IF B > X L E T X = B
210 : I = (A +B+C )1 2 : S =S Q R C I
* ( I - A > • < I-B >•<I - C ))
2 2 0:J= INT ((2 • S /X) * 1 0 n 3
)1 10A3 : L= X : GOS U B 3 4 0
230: X =L : S = X •J 12 : K = K +S : L=
A:GOSUB 340
240 : A=L : L=B:GOSUB 340
250 : B=L : L=C:GO S UB 34 0
26 0: C=L :L =S:GOSUB 35 0
GOSUB 3 3 0
• PROGRAM LIST
10:"A" : USING :CLE AR
~.JAIT 0
20 : INP U T "Nu m bers = " ; N
30 : IF N < t BEEP 2 : GO TO 2
0
40:DI M XCN - 1 ) ,YCN -1 ) , B$
( 0 )
50 : F O R I=0 TO N - 1
6 0:B$ ( 0 ) = " z = " :GO SU B 3 60
7 0:I N PUT X( I ) :B$ ( 0 ) ="z=
"+S T R $ X ( I ) : GQ SUB 3
70:GOTO 90
80:N=I:END
90 : BS C 0 ) ="y= " :G O SUB 3 60
: I N P U T Y d )
100 : B$ ( 0 ) = " y= "+STR$ 'r' ( I
) : GOSUB 370: N E XT I
110 : BEEP 1: UJD
120 : "B' : USING :I N P U T "P o
int=•;o,"Po i nt=• ; p~ ·
Point = " ; Q : GOTO 140
13 0 : GOTO 3 10
140:IF (0(1)+(0) N) + ( P { 1)
+CP>N)+(Q(l ) + ( Q }N)<>
0 GOTO 120
150 : C=X(0 - 1 ) : D= Y(0 - 1) : E =
X(P-l ) :F= 'r'( P - l) :G= X(
G!-l ) :H = Y(Q -1 )
160:X=E - C: Y =F - D: GOSU B 3 3
0
170 : A = X : X =G - E : Y = H -F:
GOSUB 330
180:B =X : X= C-G: Y= D- H :