RosettaCodeData/Task/Trabb-Pardo-Knuth-algorithm/Sinclair-ZX81-BASIC/trabb-pardo-knuth-algorithm...

13 lines
247 B
Plaintext

10 DIM A(11)
20 PRINT "ENTER ELEVEN NUMBERS:"
30 FOR I=1 TO 11
40 INPUT A(I)
50 NEXT I
60 FOR I=11 TO 1 STEP -1
70 LET Y=SQR ABS A(I)+5*A(I)**3
80 IF Y<=400 THEN GOTO 110
90 PRINT A(I),"TOO LARGE"
100 GOTO 120
110 PRINT A(I),Y
120 NEXT I