Ho creato il seguente programmino che dovrebbe servire a risolvere il parallelepipedo diofanteo.
Mandandolo in esecuzione mi da dopo 3 cicli si interrompe e mi da "line: 9 - subscript out of range" qualcuno può essermi d'aiuto, sono poco pratico.
5 CLS
10 FOR i = 1 TO 1000
20 FOR j = 1 TO 1000
30 FOR k = 1 TO 1000
35 PRINT i, j, k
40 IF sqrt(i ^ 2 + j ^ 2) <> INT(sqrt(i ^ 2 + j ^ 2)) THEN GOTO 110
50 IF sqrt(i ^ 2 + k ^ 2) <> INT(sqrt(i ^ 2 + k ^ 2)) THEN GOTO 110
60 IF sqrt(j ^ 2 + k ^ 2) <> INT(sqrt(j ^ 2 + k ^ 2)) THEN GOTO 110
70 IF sqrt(k ^ 2 + i ^ 2 + j ^ 2) <> INT(sqrt(k ^ 2 + i ^ 2 + j ^ 2)) THEN GOTO 110
80 OPEN "risultati.txt" FOR OUTPUT AS #1
90 PRINT #1, i, j, k
100 CLOSE #1
110 NEXT
120 NEXT
130 NEXT