Qbasic - Kako rezultat prikazati kao razlomak?

Qbasic - Kako rezultat prikazati kao razlomak?

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

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: 3747
  • Gde živiš: 127.0.0.1

http://jonisalonen.com/2012/converting-decimal-numbers-to-ratios/



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

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 788 korisnika na forumu :: 34 registrovanih, 6 sakrivenih i 748 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: A.R.Chafee.Jr., aleksmajstor, Andrija357, Apok, Atomski čoban, BORUTUS, BraneS, bufanje, DonRumataEstorski, DPera, draganca, dragoljub11987, Duh sa sekirom, GandorCC, Georgius, ivan1973, Karla, Koridor, lucko1, milenko crazy north, Nikolaa11, Nobunaga, Panter, rodoljub, Srki94, suton, Toper, vathra, voja64, YugoSlav, Zi0mek, zillbg, Zimbabwe, šumar bk2