MERA-400 oblicza liczby pierwsze
Nauka obsługi emulatora EM400 zachęciła mnie do przetestowania języka BASIC osadzonego w systemie CROOK.
Jak zwykle (nie lubię „HELLO WORLD”) na pierwszy ogień poszło poszukiwanie liczb pierwszych, bo tu zaraz widać jak żwawy jest króliczek doświadczalny.
Poniżej listing w języku BASIC-CROOK.
PROG SITO
10 REM ——————————-
12 REM Liczby pierwsze AtariFan 260904
14 REM ——————————-
16 PRINT „Do jakiej liczby (0=koniec)?”;
18 INPUT I
20 IF I=0 THEN 40
22 FOR X=1 TO I
24 Z=X/2
26 IF Z=INT(Z) GOTO 38
28 FOR Y=2 TO SQR(X)
30 Z=X/Y
32 IF Z=INT(Z) GOTO 38
34 NEXT Y
36 PRINT X;
38 NEXT X
40 END
