PRVOCIS

Program zjišťuje, zda je zadané číslo prvočíslem. Přitom ukazuje, kolik času ještě zbývá do konce výpočtu.

Zdrojový kód (184 B)


CLRT
PRINT"CISLO
INPUT N
IF N<3+9FPART .5N GOTO 3
IF =FPART .5NFPART N⌈3 GOTO 2
P=E9
T=5
X=√N
LABEL 1
M=1+INT (.0378(X-T
IF 0≠INT MP-1+FPART M GOTO 4
CLRT
PRINT"ZBYVA
PRINT M
P=M
LABEL 4
IF =FPART (N/T)FPART (N/(T+2 GOTO 2
T=T+6
IF T<=X GOTO 1
LABEL 3
CLRT
PRINT"PRVOCISLO
END
LABEL 2
CLRT
PRINT"DELITELNE