Qbasic-ispit (Programiranje) @ Bug.hr Forum

13 godina

neaktivan

offline

uto 13.3.2012 18:17

Odgovori Citiraj

Qbasic-ispit

imao sam ispit na faxu iz programiranja na qbasicu. početak zadatka je išao ovako: uensi niz brojeva dok im produkt ne pređe 150 ili dok ne unese 15 brojeva. to sam uradio ovako
cls
b=0
produkt=1
while not (prudukt > 150 or b=15)
input "unsei broj:";broj
b=b+1
produkt=produkt*broj
wend
i radi mi, samo što u nastavku između ostaloga treba sortirati, ato samo radili samo preko for petlji. može li mi netko kazati kako da unesem brojeve preko for petlje ili kako da sooritam ovako pomoću ovakvoga unosa
ako netko ima težih zadataka neka mi pošalje

trajni link

0 0 hvala 0

rustweaver

15 godina

neaktivan

offline

uto 13.3.2012 18:41

Odgovori Citiraj

Re: Qbasic-ispit

pa prvo trebas imati nekakvo polje koje ces moci sortirati, nakon toga punis polje, i na kraju sortiras elemente polja po nekim kriterijima...

My computer once beat me at chess, but we got even after a round of boxing.

trajni link nadporuka

1 0 hvala 0

zerocool12

17 godina

neaktivan

offline

uto 13.3.2012 18:42

Odgovori Citiraj

Qbasic-ispit

Jao,negdje kuci sam ti imao pun k tih ispita,budem ti pokusao naci...

&lt;a href=&quot;http://www.erepublik.com/en/referrer/Zerocool12&quot; target=&quot;_blank&quot;&gt; &lt;img src=&quot;http://erepublik.com/images/badges/erepublik-badg

trajni link

0 0 hvala 0

ogotaj

13 godina

neaktivan

offline

uto 13.3.2012 19:52

Odgovori Citiraj

Re: Qbasic-ispit

ne razumijem te baš. naprimjer unesem 5 brojeva. i kako da ih sortiram. jer kada ih unesom preko for ona ih zapmati, i poslje ih sortiram
for i=1 to n-1
for j=i+1 to n

trajni link nadporuka

0 0 hvala 0

rustweaver

15 godina

neaktivan

offline

uto 13.3.2012 20:11

Odgovori Citiraj

Re: Qbasic-ispit

for petlja sama po sebi ne pamti nikakve brojeve, nego eventualno ono sto se nalazi unutar for petlje moze pohranjivati brojeve koje si upisao.

definiraj polje od 5 clanova, svakom clanu dodjeli neku vrijednost, polje zatim izvrti u petlji koja usporeduje clanove i zamjenjuje ih ako je slijedeci manji od trenutnog, to ti je bubble sort algoritam o kojemu mozes vise procitati ovdje:

http://en.wikipedia.org/wiki/Bubble_sort

evo ti i primjer unosa u polje, sortiranja elemenata u polju, te na kraju ispisa polja

CLS
DIM polje(5) AS INTEGER

FOR n = 0 TO 4
        INPUT polje(n)
NEXT n

FOR i = 0 TO 3
    FOR n = 0 TO 3
        IF polje(n) > polje(n + 1) THEN
           a = polje(n)
           polje(n) = polje(n + 1)
           polje(n + 1) = a
        END IF
    NEXT n
NEXT i

FOR n = 0 TO 4
        PRINT polje(n)
NEXT n

My computer once beat me at chess, but we got even after a round of boxing.

Poruka je uređivana zadnji put uto 13.3.2012 20:15 (rustweaver).

trajni link nadporuka

1 0 hvala 1

ogotaj

13 godina

neaktivan

offline

uto 13.3.2012 20:40

Odgovori Citiraj

Qbasic-ispit

bili znao uraditi ako unosim brojeve preko while-wend petlje, pa da onda sortiram?

trajni link

0 0 hvala 0

royalhero

14 godina

neaktivan

offline

uto 13.3.2012 21:22

Odgovori Citiraj

Re: Qbasic-ispit

Nisam neki u Q-Basicu, ali postupak je veoma sličan for petlji, uzmi običan primjer fora i while koji će raditi istu stvar, uporedi ih i to primjeni ovdje.

Ovo što ti je @rustweaver napisao je bio višak njegove dobre volje, i to je sasvim dosta, sada malo radi ti.

BTW, očekujem odgovor, "ako ne znaš idi"...

trajni link nadporuka

0 0 hvala 0