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:

  1. CLS
  2. INPUT "PRVI BROJ: "; a
  3. INPUT "DRUGI BROJ: "; b
  4. m = a
  5. n = b
  6. WHILE a <> 0
  7.     r = b MOD a
  8.     b = a
  9.     a = r
  10. WEND
  11. l = (m * n) / b
  12. PRINT "NAJMANJI ZAJEDNIČKI SADRŽILAC: "; l
  13. 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:

  1. DECLARE SUB BR (A,B,C,D)
  2. CLS
  3. INPUT "BROJEVI: ", x, y, z, s
  4. CALL BR(x, y, z, s)
  5. END
  6. SUB BR (A, B, C, D)
  7.     FOR i = 1 TO A
  8.         IF A MOD i = 0 AND B MOD i = 0 THEN hcf1 = i
  9.     NEXT i
  10.     lcm1 = (A * B) / hcf1
  11.  
  12.     FOR i = 1 TO C
  13.         IF C MOD i = 0 AND D MOD i = 0 THEN hcf2 = i
  14.     NEXT i
  15.     lcm2 = (C * D) / hcf2
  16.  
  17.     FOR i = 1 TO lcm1
  18.         IF lcm1 MOD i = 0 AND lcm2 MOD i = 0 THEN hcf3 = i
  19.     NEXT i
  20.     lcm3 = (lcm1 * lcm2) / hcf3
  21.  
  22.     FOR i = 1 TO A
  23.         IF A MOD i = 0 AND B MOD i = 0 AND C MOD i = 0 AND D MOD i = 0 THEN hcf = i
  24.     NEXT i
  25.  
  26.     PRINT "HCF: ", hcf
  27.     PRINT "LCM: ", lcm3
  28.  
  29. 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 956 korisnika na forumu :: 64 registrovanih, 5 sakrivenih i 887 gosta   ::   [ Administrator ] [ Supermoderator ] [ Moderator ] :: Detaljnije

Najviše korisnika na forumu ikad bilo je 3466 - dana 01 Jun 2021 17:07

Korisnici koji su trenutno na forumu:
Korisnici trenutno na forumu: Aleksandar Tomić, Apok, ArchaBasha, Asparagus, baltazar01, Black Luster Soldier, bojcistv, boromir, Botovac, burevestnik, Cigi, Ciri1994, Clouseau, Czrweni, darionis, Demi87, dexteroza, doom83, Dorcolac, Draganeli, Electron, gasha, GeoM, Haris, ISOF, ivan_8282, kunktator, kybonacci, lesa, LostInSpaceandTime, mercedesamg, metallac777, milanpb, MiloradKomadic, MilosKop, mishkooo, Mićko, Mrav Obrad, Mskok, niksa517, operniki, panzermilan45, pein, Povratak1912, predragc, PrincipL, sabros, SamostalniReferent, Simulink11000, Sićko, Skok23, spalev, Stoilkovic, strn, synergia, tubular, Tumansky, ujke, VaRvArI 85, XBMC, YugoSlav, Zanim98, ZlatniRez, |_MeD_|