1000 REM ============================================================== 1010 REM dividi.bas 1020 REM Divide esclusivamente valori positivi. 1030 REM ============================================================== 1040 REM 1050 INPUT "Inserisci il primo valore "; X 1060 INPUT "Inserisci il secondo valore "; Y 1070 LET Z = 0 1080 LET I = X 1090 IF I < Y THEN GOTO 1130 1100 LET I = I - Y 1110 LET Z = Z + 1 1120 GOTO 1090 1130 PRINT X; "/"; Y; "="; Z 1140 END 1150 REM ==============================================================