Seite 12 von 12
BASIC-Tip: Zahlen größer als 1038
von Henning Räder
Mit Faszination habe ich vor kurzem ein simples BASIC-Programm entdeckt, das in der Lage ist, Zahlen größer als 1038 darzustellen. Das Originalprogramm stammt aus ZX-USER CLUB 3/4 S. 10 von Herrn O. Völkers aus Osnabrück und ist in ZX81-BASIC geschrieben.
Ich habe es für den KC 85/4 umgeschrieben; es funktioniert einwandfrei:
10 PRINT"Fakulteat - nach einem ZX81-Programm von O. Voelkers" 20 PRINT; 30 PRINT"von "; 40 INPUT N 50 PRINT N;-"; 60 F=0 70 FOR X=1 TO N 80 F=F+LN(X) 90 NEXT N 100 F=F/LN(10) 110 IF F<37 THEN PRINT INT(10^F+0.5) 120 IF F>37 THEN PRINT 10^(F-INT(F));"E+";INT(F) 130 GOTO 20
Beispieleingaben:
von 3 = 6 von 17 = 3.5568744E+14 von 69 = 1.7112246E+98 von 176 = 1.9790318E+320