Qbasic - Kako rezultat prikazati kao razlomak?

Qbasic - Kako rezultat prikazati kao razlomak?

offline
  • Pridružio: 11 Okt 2014
  • Poruke: 362

Kako decimalan rezultat prikazati kao razlomak u Qbasic-u ?



Registruj se da bi učestvovao u diskusiji. Registrovanim korisnicima se NE prikazuju reklame unutar poruka.
offline
  • PHP developer
  • Pridružio: 22 Mar 2006
  • Poruke: 3760
  • Gde živiš: 127.0.0.1

[Link mogu videti samo ulogovani korisnici]



offline
  • Pridružio: 11 Okt 2014
  • Poruke: 362

Našao sam način i ovo radi u Q-basicu:

IF x<> INT(x) THEN
FOR top = 1 TO 100000000000
FOR btm = 1 TO 100000000000
IF top / btm = x THEN GOTO prnt
NEXT
NEXT
END IF
prnt: PRINT "REZULTAT: "; STR$(top) + "/" + STR$(btm)

offline
  • Pridružio: 15 Apr 2012
  • Poruke: 141

amar54k ::Našao sam način i ovo radi u Q-basicu:

IF x<> INT(x) THEN
FOR top = 1 TO 100000000000
FOR btm = 1 TO 100000000000
IF top / btm = x THEN GOTO prnt
NEXT
NEXT
END IF
prnt: PRINT "REZULTAT: "; STR$(top) + "/" + STR$(btm)


Resenje je sa aspekta vremenske slozenosti neefikasno, jer koristi 2 ugnjezdjenje for petlje koje treba da odrade velik broj iteracija. Tako da je resenje iz linka sa aspekta efikasnosti bolje.

Ko je trenutno na forumu
 

Ukupno su 694 korisnika na forumu :: 36 registrovanih, 2 sakrivenih i 656 gosta   ::   [ Administrator ] [ Supermoderator ] [ Moderator ] :: Detaljnije

Najviše korisnika na forumu ikad bilo je 15694 - dana 01 Feb 2026 12:23

Korisnici koji su trenutno na forumu:
Korisnici trenutno na forumu: 037, 1MAP, 4. Ozrenska, avijacija, branko7, BratSrpska, comi, draganl, Duck of Death, grunff2, havoc995, hyla, kib, kuntakinte, Lelemood, Lino, mainstream, mikrimaus, Milan A. Nikolic, Mirage 2000N, mist-mist, MK10, oldtimer, pacika, Pantelejmon, PC_Liu94, pein, rachmoff, ruger357, Sass Drake, Savantije, simazr, Slingshot, Tvrtko I, VOŽD, Zori