Primtal Checker anteckningar (2 / 4 steg)
Steg 2: Skriv text, eller klistra in koden till anteckningar
utanför
färg 0a
avdelning Prime_Number_Checker_v.1.2
: setv
CLS
ECHO retur det nummer du vill kolla
/p värdet =
Ange/a cvalue = % value % * 1
CLS
om % cvalue % equ 0 echo "% value %" är en ogiltig indata. Ange ett positivt heltal (1 - oändlig)
om % cvalue % gtr 0 goto setvb
pausa
gå till setv
: setvb
Ange/a dvalue = (%value%/2) + 1
Ange fvalue = 1
Ange svalue = 2
ECHO bearbetning... Snälla vänta
gå till setp
: setf
Ange/a fvalue = % fvalue % + 1
gå till setp
: ställer in
Ange fvalue = 1
Ange/a svalue = % svalue % + 1
gå till setp
: setp
Ange/a pvalue = % fvalue % * % svalue %
: checka
om % värde % equ 1 goto unika
om % svalue % equ värde % goto checkc
: checkb
om % pvalue % equ värde % gå till komposit
om % fvalue % lss % dvalue % goto setf
om % svalue % lss % dvalue % goto anger
gå till prime
: checkc
om % fvalue % equ 1 goto prime
gå till checkb
: unik
CLS
ECHO numret är unik
Val/c EX /m "genom att trycka på E _Enter ett annat nummer eller X till e_Xit"
om % ERRORLEVEL % equ 1 goto setv
om % ERRORLEVEL % equ 2 avslutar
: komposit
CLS
ECHO % svalue % x % fvalue % = % pvalue %
ECHO är sammansatta
Val/c EX /m "genom att trycka på E _Enter ett annat nummer eller X till e_Xit"
om % ERRORLEVEL % equ 1 goto setv
om % ERRORLEVEL % equ 2 avslutar
: prime
CLS
ECHO är prime
Val/c EX /m "genom att trycka på E _Enter ett annat nummer eller X till e_Xit"
om % ERRORLEVEL % equ 1 goto setv
om % ERRORLEVEL % equ 2 avslutar