Foren: Forum of Decimal BASIC (Thread #42060)

PROGRAM TO FIND THE GREATEST COMMON DIVISOR (2020-03-22 18:57 by (del#106415) #84601)

!PROGRAM TO FIND ONLY THE GREATEST COMMON DIVISOR
CLEAR
INPUT PROMPT "HOW MANY NUMBERS? (2,3,4...) = " :G
DIM Z(G)
CLEAR
LET B = 999999999
FOR K = 1 TO G
INPUT PROMPT "NUMBER "&STR$(K)&" = ":L
LET Z(K) = L
IF Z(K) < B THEN LET B = Z(K)
NEXT K
LET E = 1
FOR C = 1 TO B
FOR D = 1 TO G
IF MOD(Z(D) , C ) = 0 THEN
LET E = E + 1
ELSE
LET E = E -1
END IF
NEXT D
IF E = G THEN
LET F = C
ELSE
LET E = 0
END IF
NEXT C
PRINT
PRINT "G.C.D. = ";F
END

Reply to #84601×

You can not use Wiki syntax
You are not logged in. To discriminate your posts from the rest, you need to pick a nickname. (The uniqueness of nickname is not reserved. It is possible that someone else could use the exactly same nickname. If you want assurance of your identity, you are recommended to login before posting.) Anmelden