[ antonija_jovic @ 21.04.2006. 13:41 ] @
Zadan je dvodimenzionalni niz (matrica) ,
program treba ispisati koliko ima trojki (3) uz četvorku (4)?
(desno,lijevo,iznad,ispod,dijagonalno)

npr.
1 2 3 4
5 6 4 8
4 10 11 12
13 14 3 16
17 4 15 20

izlaz: 2

Ako tko ima ideju neka mi rješi!
Unaprijed HVALA!!!
[ z@re @ 21.04.2006. 21:04 ] @
Evo srecice, izvoli ;)

Code:

CLS
DIM x, y, i, j, v1, v2, count AS INTEGER

INPUT "Upisi broj redaka :", x
INPUT "Upisi broj stupaca :", y
PRINT "------------------------------------"

DIM matrix(x, y) AS INTEGER

FOR i = 0 TO x - 1
    FOR j = 0 TO y - 1
        PRINT "Upisi vrijednost za " + STR$(i) + ", " + STR$(j) + " :";
        INPUT "", matrix(i, j)
    NEXT j
NEXT i

PRINT "------------------------------------"

FOR i = 0 TO x - 1
    FOR j = 0 TO y - 1
        PRINT STR$(matrix(i, j)) + " ";
    NEXT j
    PRINT ""
NEXT i

PRINT "------------------------------------"
INPUT "Upisite broj za kojega se traze susjedni :", v1
INPUT "Upisite broj koji treba bit susjedni :", v2
PRINT "------------------------------------"

FOR i = 0 TO x - 1
    FOR j = 0 TO y - 1
        IF matrix(i, j) = v1 THEN
            IF (i - 1) > 0 AND (j - 1) > 0 THEN
            IF matrix(i - 1, j - 1) = v2 THEN count = count + 1
            END IF
            
            IF (j - 1) > 0 THEN
            IF matrix(i, j - 1) = v2 THEN count = count + 1
            END IF
           
            IF (i + 1) < x AND (j - 1) > 0 THEN
            IF matrix(i + 1, j - 1) = v2 THEN count = count + 1
            END IF
    
            IF (i - 1) > 0 THEN
            IF matrix(i - 1, j) = v2 THEN count = count + 1
            END IF

            IF (i + 1) < x THEN
            IF matrix(i + 1, j) = v2 THEN count = count + 1
            END IF
           
            IF (i - 1) > 0 AND (j + 1) < y THEN
            IF matrix(i - 1, j + 1) = v2 THEN count = count + 1
            END IF

            IF (j + 1) < y THEN
            IF matrix(i, j + 1) = v2 THEN count = count + 1
            END IF

            IF (i + 1) < x AND (j + 1) < y THEN
            IF matrix(i + 1, j + 1) = v2 THEN count = count + 1
            END IF
        END IF
    NEXT j
NEXT i

PRINT "Susjednosti : " + STR$(count)


P.S. Ako netko ima bolje rjesenje, nek ga stavi, jer nisam QBasic otvorio ~ 10 godina. Antonija, ovo je C forum, ali bolje da ove BASIC stvari idu ovdje, nego u "Art Of Programming", gdje ih ima par. A mogla si i ovo postat u Visual Basic forume.
[ Buffy @ 22.04.2006. 09:35 ] @
Sta je ovo???
Basic na C forumu?
I jos mu odgovaras ;)
[ X Files @ 22.04.2006. 12:44 ] @
Citat:

I jos mu odgovaras ;)

Izgleda da se radi o "joj" a ne o "mu":
http://www.elitesecurity.org/korisnik/profil/antonija_jovic
... pa se provukla preko protekcije ;)

[ z@re @ 22.04.2006. 17:45 ] @
Sta mislis da nije zensko da bi uopce upalio QuickBasic? ;)
[ PeRuN_RoJs @ 24.04.2006. 08:03 ] @
Gde su sada silni moderatori da vide ovo?!!!!???
A ovamo obrisu post dok si rek'o pixar!!!
[ Buffy @ 24.04.2006. 14:36 ] @
nisam bio odmah primjetio da se radi o "njoj".
drugacije bih reagovao ;)
[ Bojan Kopanja @ 24.04.2006. 14:38 ] @
Jeez, pa sta rade moderatori?! Uzeli free za praznike ?
[ Mali Misha @ 24.04.2006. 14:50 ] @
Salu na stranu, izgleda da je uopste jedan broj ljudi dosao na ideju da se ovde predstavi pod zenskim identitetom od kako smo spominjali kako su curicama mnogo cesce gleda kroz prste i daje prioritet. Relno gledano, skoro svako moze da nabavi zensku sliku, modifikuje je i cak linkuje icq/msn koji ce da ima zenske podatke (e sad ako jos boravi u njima online...) i tako... pita taj nesto ovde s vremena na vreme. Pomoc ne izostaje.

E sad, da se dama bavi Q-Basic-om i to nekim matricama... oO ... pa sto da ne. Kada moze, lele, bradata dama (citaj Azis) da se secka u zenskim kostimima i istovremeno se kandiduje za ministra kulture, stvarno je sve moguce. ;)