Sharp PC-E500/E500S Technikersoftware

GCMLCM.112

G.G.T & K.G.V.

GCMLCM.112 (853 Bytes)

10 ' GCMLCM.112 (G.C.M & L.C.M)
20 CLEAR :MERGE "G:COMN.00$"
30 ON ERROR GOTO *ERR
40 Q8$=" (1~9999999999)=":DEFDBL P-R
50 GOSUB 900:P1=&1:PRINT "a";Q8$;" ";:INPUT P1:P1=ABS P1
60 IF P1<&1 OR P1-INT P1<>0 OR P1>=1E+10 THEN 50
70 GOSUB 900:PRINT "a";Q8$;P1:LOCATE 1,2:Q1=&1:PRINT "b";Q8$;" ";:INPUT Q1:Q1=ABS Q1
80 IF Q1<&1 OR Q1-INT Q1<>0 OR Q1>=1E+10 THEN 70 ELSE GOSUB 150:GOSUB *DPC
100 IF P1>=Q1 THEN R2=P1:P3=Q1 ELSE R2=Q1:P3=P1
110 Q3=R2-INT (R2/P3)*P3
115 IF Q3 THEN R2=P3:P3=Q3:GOTO 110
120 R4=P1/P3*Q1
130 GOSUB 150:LOCATE 1,2:PRINT "G.C.M.=";P3:LOCATE 1,3:PRINT "L.C.M.=";R4
140 GOSUB *REK:GOTO 50
150 GOSUB 900:PRINT "a=";P1
160 LOCATE 21,1:PRINT "b=";Q1:RETURN
900 CLS :LOCATE 10,0:PRINT "*  G.C.M. & L.C.M.  *":LOCATE 1,1:RETURN
1000 *ERR IF ERL =50 OR ERL =70 RESUME ERL
1010 GOSUB 900:GOSUB *DPA:GOSUB *REK:RESUME 50

Generated by (c) Casio FX-850P/FX-880P Notepad 2.02

(c) by mani.becker@web.de - http://blog.manib.bplaced.net