Qbasic - Program za izračunavanje najmanjeg z. sadržioca (za više od 2 broja)

• 0Niko još nije pohvalio poruku.
  Registruj se da bi pohvalio/la poruku!

Napisano: 07 Avg 2018 13:13

Treba mi program za izračunavanje najmanjeg zajedničkog sadržioca za više od 2 broja.
Znam kako napraviti taj program u qbasicu za 2 broja, ali mi ne ide u programiranju tog programa za više od 2 broja.
KOD PROGRAMA DO SADA:
CLS INPUT "PRVI BROJ: "; a INPUT "DRUGI BROJ: "; b m = a n = b WHILE a <> 0     r = b MOD a     b = a     a = r WEND l = (m * n) / b PRINT "NAJMANJI ZAJEDNIČKI SADRŽILAC: "; l END
PRIMJER TAKVOG PROGRAMA: LINK <<--
Moze li neko pomoci?

• 1Ovo se svidja korisniku: branko62
  
  Registruj se da bi pohvalio/la poruku!

Našao sam način kako napraviti program za izračunavanje najmanjeg zajedničkog sadržioca za više od dva broja (u ovom kodu je za 4 broja), pa koga intresuje, evo kod:
DECLARE SUB BR (A,B,C,D) CLS INPUT "BROJEVI: ", x, y, z, s CALL BR(x, y, z, s) END SUB BR (A, B, C, D)     FOR i = 1 TO A         IF A MOD i = 0 AND B MOD i = 0 THEN hcf1 = i     NEXT i     lcm1 = (A * B) / hcf1     FOR i = 1 TO C         IF C MOD i = 0 AND D MOD i = 0 THEN hcf2 = i     NEXT i     lcm2 = (C * D) / hcf2     FOR i = 1 TO lcm1         IF lcm1 MOD i = 0 AND lcm2 MOD i = 0 THEN hcf3 = i     NEXT i     lcm3 = (lcm1 * lcm2) / hcf3     FOR i = 1 TO A         IF A MOD i = 0 AND B MOD i = 0 AND C MOD i = 0 AND D MOD i = 0 THEN hcf = i     NEXT i     PRINT "HCF: ", hcf     PRINT "LCM: ", lcm3 END SUB
*OZNAKE:
HCF - Highest Common Factor (najveći zajednički faktor)
LCM - Least Common Multiple (najmanji zajdnički sadržilac)