MyCity » Opšte programiranje » Qbasic - Kako rezultat prikazati kao razlomak?

Qbasic - Kako rezultat prikazati kao razlomak?

Napisano na dan: 20.6.2018

Qbasic - Kako rezultat prikazati kao razlomak?

Idi na vrh

Poslao: 20 Jun 2018 11:45
Idi na vrh
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.
Poslao: 20 Jun 2018 12:58
Idi na vrh
offline
  • PHP developer
  • Pridružio: 22 Mar 2006
  • Poruke: 3760
  • Gde živiš: 127.0.0.1

[Link mogu videti samo ulogovani korisnici]



Poslao: 21 Jun 2018 12:30
Idi na vrh
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)

Poslao: 21 Jun 2018 14:45
Idi na vrh
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.

MyCity » Opšte programiranje » Qbasic - Kako rezultat prikazati kao razlomak?

Ko je trenutno na forumu
 

Ukupno su 938 korisnika na forumu :: 54 registrovanih, 6 sakrivenih i 878 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: Abebe Bikila, acatomic, alternator, ArchaBasha, Arsenije, Avalon015, baltazar01, bladesu, bokisha253, Boris90, BOXRR, bozomotika, cenejac111, Džekson, Electron, elias, EODBiH, Fabius, flash12, g_g, Gerila015, HPkopun, ILGromovnik, Kuroje, kybonacci, Limeni91, ljuba.b, Marko Marković, Marko1238, Mercury, Mitogna, Mićko, Mrav Obrad, Nadla, nemkea71, neutrino, nick79, Njubara, Pale2025, Povratak1912, Sančo, savaskytec, Sevetar, Sirius, sluga, sspp, SympathyForTheDevil, synergia, tamno.nebo, tecataki, Tvrtko I, W123, Webb, zombicar153