[es] - Ima li tko ideju za ovaj zadatak u Q-basic -u (matrica)

z@re
Zarko Bulatovic
LAMA Computers, UNIX Systems Engineer
Split, Spinut

Član broj: 29849
Poruke: 416
*.cmu.carnet.hr.

Sajt: ipnas.fesb.hr

Profil

Re: Ima li tko ideju za ovaj zadatak u Q-basic -u (matrica)

^{21.04.2006. u 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.

[12:33am] <alek> deca od 3-5 godina prvi spoznaju ljubav bozju :)

_{Q: HSP56 Micromodem nece da radi kompjuter ga prepozna a kad treba da se konektujem nece ne daje ni znaka zivota. u cemu je problem.

A: Crko mozda od grmljavine mozda od spanaca. Uglavnom baci ga u WC solju jako povuci vodu. Skupi 5e i uzmi drugi i ne postuj temu na pogresno mesto.}

^{21.04.2006. u 21:04}

Buffy
Stanko Culaja
za sada sam nezaposlen!
Sipovo,Republika Srpska

Član broj: 45310
Poruke: 312
*.teol.net.

Sajt: www.sipovo.org

Profil

Re: Ima li tko ideju za ovaj zadatak u Q-basic -u (matrica)

^{22.04.2006. u 09:35}

Sta je ovo???
Basic na C forumu?
I jos mu odgovaras ;)

SAMO DA RATA NE BUDE,
LUDILA MEDJU LJUDIMA,
VELIKI NUDE ZABLUDE,
PLASE NAS RAZNIM CUDIMA
I SVAKOJ BAJCI NAUDE,
DA RATA NE BUDE.

Djordje Balasevic

^{22.04.2006. u 09:35}

X Files
Vladimir Stefanovic
Pozarevac

SuperModerator
Član broj: 15100
Poruke: 3404
*.nat-pool.po.sbb.co.yu.

Jabber: xfiles@elitesecurity.org
Sajt: www.antivari.com

Profil

Re: Ima li tko ideju za ovaj zadatak u Q-basic -u (matrica)

^{22.04.2006. u 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 ;)

FREEWARE
Di rečnik, v1.0.058 (srp-eng/eng-srp priručni rečnik)
http://www.antivari.com

^{22.04.2006. u 12:44}

z@re
Zarko Bulatovic
LAMA Computers, UNIX Systems Engineer
Split, Spinut

Član broj: 29849
Poruke: 416
*.cmu.carnet.hr.

Sajt: ipnas.fesb.hr

Profil

Re: Ima li tko ideju za ovaj zadatak u Q-basic -u (matrica)

^{22.04.2006. u 17:45}

Sta mislis da nije zensko da bi uopce upalio QuickBasic? ;)

^{22.04.2006. u 17:45}

PeRuN_RoJs
Bjelanovic Aleksandar
kosjeric

Član broj: 67848
Poruke: 46
195.252.103.*

ICQ: 344

Profil

Re: Ima li tko ideju za ovaj zadatak u Q-basic -u (matrica)

^{24.04.2006. u 08:03}

Gde su sada silni moderatori da vide ovo?!!!!???
A ovamo obrisu post dok si rek'o pixar!!!

Don't look at me, I'm lost too.....

^{24.04.2006. u 08:03}

Buffy
Stanko Culaja
za sada sam nezaposlen!
Sipovo,Republika Srpska

Član broj: 45310
Poruke: 312
*.teol.net.

Sajt: www.sipovo.org

Profil

Re: Ima li tko ideju za ovaj zadatak u Q-basic -u (matrica)

^{24.04.2006. u 14:36}

nisam bio odmah primjetio da se radi o "njoj".
drugacije bih reagovao ;)

SAMO DA RATA NE BUDE,
LUDILA MEDJU LJUDIMA,
VELIKI NUDE ZABLUDE,
PLASE NAS RAZNIM CUDIMA
I SVAKOJ BAJCI NAUDE,
DA RATA NE BUDE.

Djordje Balasevic

^{24.04.2006. u 14:36}

Bojan Kopanja
Bojan Kopanja
Senior Web Developer, Master-Develop
Stara Pazova

Član broj: 6155
Poruke: 499
80.93.238.*

ICQ: 346697685
Sajt: www.zeussoftware.rs

Profil

Re: Ima li tko ideju za ovaj zadatak u Q-basic -u (matrica)

^{24.04.2006. u 14:38}

Jeez, pa sta rade moderatori?! Uzeli free za praznike

ex Strog

http://www.zeussoftware.rs

^{24.04.2006. u 14:38}

Mali Misha
Mihajlo Anđelković
NBGD

Član broj: 79396
Poruke: 339
*.powernet.bg.

ICQ: 195487525
Sajt: cpptea.com

Profil

Re: Ima li tko ideju za ovaj zadatak u Q-basic -u (matrica)

^{24.04.2006. u 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. ;)

Ipak se ++uje.

^{24.04.2006. u 14:50}