[ sapkom @ 23.01.2009. 16:30 ] @
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
[ stefanpn @ 24.01.2009. 11:21 ] @
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
[ sapkom @ 24.01.2009. 18:30 ] @
hvala vam punoo....