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

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

Napisano na dan: 7.8.2018

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

Idi na vrh

Poslao: 07 Avg 2018 20:55
Idi na vrh
offline
  • Pridružio: 11 Okt 2014
  • Poruke: 362

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?



Registruj se da bi učestvovao u diskusiji. Registrovanim korisnicima se NE prikazuju reklame unutar poruka.
Poslao: 07 Avg 2018 21:00
Idi na vrh
offline
  • Pridružio: 11 Okt 2014
  • Poruke: 362

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)



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

Ko je trenutno na forumu
 

Ukupno su 1894 korisnika na forumu :: 141 registrovanih, 8 sakrivenih i 1745 gosta   ::   [ Administrator ] [ Supermoderator ] [ Moderator ] :: Detaljnije

Najviše korisnika na forumu ikad bilo je 8086 - dana 18 Jan 2026 07:11

Korisnici koji su trenutno na forumu:
Korisnici trenutno na forumu: Abebe Bikila, amonsrb, Ares12356, babaroga, bb929, Bbbggg1979, bestguarder, Bobrock1, bojan581, bojankrstc, boromir, Botovac, Branko Matić, BSD, Burovnyak, C-Gun, ccoogg123, cemix, cifra, Coficab, Crazzer, damirZR, darkojovxp, Darth Wader, Daxi184, dekan.m, Denaya, DezurniOperativni, djboj, Djokislav, djordjemiklusev, Dolinc, draganl, DrMrPr, dskrlec33, Dukelander, dusan60, dusanobr, Dzambas, Dzoni2412, Electron, franina, ghoost, Giskard, goflja76, gorankuba, goranperović66, halkin gol, IvanMiletic, Ivoo, Jan, jeen yuhs, Jester, Jomini, JOntra, Jose, Kajzer Soze, Kobrim, krca73, KRCO95, Kubovac, kunktator, kuntakinte, kybonacci, LG, ljuba, Ljusa, m-e-t-a-k, Manjane, Marija88, Marko Marković, MarkoDzimi, Mastrum Ridkali, mean_machine, Mihajlo, miki kv, mikki jons, mikrimaus, milanpb, Milometer, milos.cbr, Mis uz pusku, moldway, N.e.m.a.nj.a., Niki2024, niksa517, novator, omen, opt1, Pale2025, Papadubi, pein, peradetlić, Pero, Petarvu, Pilence, PrincipL, R_038, redstar72, repac, Robin, S.Palestinac, sap, saputnik plavetnila, sasa76, ShtagodShtagod, sickmouse, Simonsen23, Singidunumac, Slingshot, smuk, sparkie, stegonosa, Strasni JA, styg, tacija, tanakadzo, TRAVUNIJA, Tribal, trpche, VBoss, vdeki, Velizar Laro, Viktor Petrenko, vobo, vojnik švejk, Vojvoda011, Volkcho, Vzor50, wize, Wrangler, x9, yufighter, Zdilar, zdrebac, zeka013, ziggga, zlaya011, zoran77, Šraf, 1453