3 REM **********************************
4 REM *** SIMPLIFICATION DE FRACTION *** 5 REM *** Par J.Charlier *** 6 REM ********************************** 7 MODE 1:INK 0,1:INK 1,24:BORDER 12:LOCATE 2,21:PRINT"SEPARER PAR UNE VIRGULE LE NUMERATEUR ET LE DENOMINATEUR" 10 :LOCATE 8,4:PRINT "SIMPLIFICATION DE FRACTION":LOCATE 7,5:PRINT"*==========================*" 30 LOCATE 15,10:PRINT "FRACTION X/Y" 40 WINDOW #2,11,31,13,20 45 INK 3,9:PAPER #2,3:CLS #2 50 INPUT #2, c1,d1 110 gg =c1 :hh=d1 120 IF gg=hh THEN 150 130 IF gg < hh THEN hh = hh - gg : GOTO 120 140 gg =gg -hh :GOTO 120 150 e1 =c1/gg :f1 =d1/gg 155 PRINT #2:IF c1=e1 AND d1=f1 THEN PRINT #2, "FRACTION IRREDUCTIBLE":GOTO 162 160 PRINT #2,"RESULTAT=" ; e1 ; "/" ;f1 162 LOCATE 2,25:PRINT "APPUYEZ SUR UNE TOUCHE":IF INKEY$="" THEN 162 163 GOTO 7 |