Navigacija
Lista poslednjih: 16, 32, 64, 128 poruka.

q- basic i varijable (kako rijesiti)

[es] :: Ostali programski jezici :: q- basic i varijable (kako rijesiti)

[ Pregleda: 2494 | Odgovora: 2 ] > FB > Twit

Postavi temu Odgovori

Autor

Pretraga teme: Traži
Markiranje Štampanje RSS

sapkom

Član broj: 209619
Poruke: 2
91.191.31.*



Profil

icon q- basic i varijable (kako rijesiti)23.01.2009. u 16:30 - pre 184 meseci
da li b ineko znao rijesiti ovo, ja snam u ceu al ovaj basic mi ne ide nikako..................


1 Zahtijevati unos 5 brojeva koji će biti šablon za sortiranje.

2 Ponovo zahtijevati unos 5 brojeva koji će biti niz koji se uređuje.

3 Obrisati ekran od ranijeg ispisa te prikazati unijete brojeve.

4 izvršiti prikaz red po red kako se ti brojevi sortiraju.

To bi otprilike izgledalo ovako:



UNESI 5 BROJEVA KAO ŠABLON ZA SORTIRANJE

2,5,3,1,4

UNESI 5 BROJEVA ZA SORTIRANJE

4,2,5,3,1



sada program treba da obriše ekran i da izvrši ispis



ŠABLON ZA SORTIRANJE JE

2 5 3 1 4

NIZ KOJI SE SORTIRA JE

4 2 5 3 1

0 2 5 3 1 4

2 0 5 3 1 4

2 5 0 3 1 4

2 5 3 0 1 4

2 5 3 1 0 4

2 5 3 1 4

ZAVRŠENO SORTIRANJE

AKO ŽELITE UNIJETI DRUGI NIZ ZA SORTIRANJE PRITISNI 7

ZA KRAJ PRITISNI 8
 
Odgovor na temu

stefanpn
Total anonymous
Programer

Član broj: 172809
Poruke: 509
93.86.65.*



+1 Profil

icon Re: q- basic i varijable (kako rijesiti)24.01.2009. u 11:21 - pre 184 meseci
Code:


dim mkey as string

dim niz1(100) as integer
dim niz2(100) as integer

dim n as integer
dim t as integer
dim i as integer
dim j as integer

pocetak:

cls

input "Broj elemenata (<100): "; n

for t = 0 to n-1
    print "niz1(" + str$(t) + ") = ";
    input niz1(t)
next t

for t = 0 to n-1
    print "niz2(" + str$(t) + ") = ";
    input niz2(t)
next t

cls

for t = 0 to n-1
    for i = 0 to n-1
        
        if niz1(t) = niz2(i) then
            swap niz2(t), niz2(i)
        end if
        
        for j = 0 to n-1
            print niz2(j) ; " ";
        next j
        print chr$(13)
        
    next i
next t

print "Rezultat: "
for j = 0 to n-1
    print niz2(j) ; " ";
next j
print chr$(13)

mkey = ""

print "Za novi pocetak stisni 'N' ili bilo koje dugme za kraj"
do while not mkey <> ""
    mkey = inkey$()
    sleep 1
loop

if mkey = "n" or mkey = "N" then goto pocetak
 
Odgovor na temu

sapkom

Član broj: 209619
Poruke: 2
91.191.31.*



Profil

icon Re: q- basic i varijable (kako rijesiti)24.01.2009. u 18:30 - pre 184 meseci
hvala vam punoo....
 
Odgovor na temu

[es] :: Ostali programski jezici :: q- basic i varijable (kako rijesiti)

[ Pregleda: 2494 | Odgovora: 2 ] > FB > Twit

Postavi temu Odgovori

Navigacija
Lista poslednjih: 16, 32, 64, 128 poruka.