Fractions pour Sharp PC1500 ( pas de programme )
tir du magazine Hebdogiciel N5

	Ncessite l'extension PETOOLS.

	Programme ducatif? Etes-vous sr de savoir combien font 12/5+6/8-14/7?
	Multiplication, division, addition, soustraction de fractions et multiplication du rsultat.

Programme :
5 REM ---multiplication addition division soustraction de 2 fractions---
10 CLEAR
15 TEXT:COLOR 0
20 CSIZE 1
30 INPUT "A1";A1
31 INPUT "A2";A2
32 INPUT "B1";B1
33 INPUT "B2";B2:O=B2
34 INPUT "signe ";A$
35 GOSUB 4000
100 REM ---rduction mme dniminateur---
104 IF A$="/" GOTO 500
105 IF A$=":" GOTO 500
106 IF A$="*" GOTO 600
110 W1=A1*B2
111 W2=A2*B2
112 V1=B1*A2
113 V2=B2*A2
115 TEXT:LF 2
118 A1=W1:A2=W2:B1=V1:B2=V2
120 GOSUB 4000:GOTO 200
200 IF A$="+" GOTO 10000
210 IF A$="-" GOTO 10020
500 A$="*":B2=B1:B1=O:TEXT:LF 2:GOSUB 4000:GOTO 600
600 S1=A1*B1:S2=A2*B2:GOSUB 20000:GOTO 10100
4000 CSIZE 1:LPRINT A1;"   ";B1
4500 LPRINT "    ";A$;"     ";"="
5000 LPRINT A2;"  ";B2
6000 GRAPH:GLCURSOR (2,23):LINE (2,23)-(16,23)
7000 GLCURSOR (33,23):LINE (33,23)-(45,23)
7500 TEXT:RETURN
10000 REM -addition des 2 fractions-
10010 S1=A1+B1:S2=A2:GOSUB 20000:GOTO 10100
10020 S1=A1-B1:S2=A2:GOSUB 20000:GOTO 10100
10100 WAIT 0:FOR I=50 TO 2 STEP -1
10200 Q1=S1/I:Q2=S2/I:P1=Q1-INT Q1:P2=Q2-INT Q2
10300 IF (P1=0) GOSUB 20500
10400 NEXT I
10500 GOTO 28000
20000 TEXT:CSIZE 1:TEXT:LF 2
20001 CSIZE 1:LPRINT "   ";S1
20002 CSIZE 1:LPRINT "  "
20003 CSIZE 1:LPRINT "   ";S2
20004 GRAPH:GLCURSOR (15,23):LINE -(15,23)-(45,23)
20005 RETURN
20500 IF (P2=0) LET S1=Q1:S2=Q2:GOSUB 20000:GOTO 20600
20600 IF S2=1 GOTO 20700
20601 RETURN
20700 TEXT:CSIZE 1:LF 5:LPRINT " =>";S1:GOTO 28005
28000 COLOR 3:GRAPH
28001 GLCURSOR (0,-20):LINE (0,-20)-(55,-20)-(55,25)
28002 GLCURSOR (0,-20):LINE (0,-20)-(0,25)-(55,25):TEXT:LF 3:END
28005 GRAPH:COLOR 3
28006 GLCURSOR (0,0):LINE -(0,0)-(35,00)-(35,25)-(0,25)-(0,0):TEXT:LF 2:END