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

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

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

[ Pregleda: 4331 | Odgovora: 8 ] > FB > Twit

Postavi temu Odgovori

Autor

Pretraga teme: Traži
Markiranje Štampanje RSS

antonija_jovic

Član broj: 72725
Poruke: 6
*.net.t-com.hr.



Profil

icon Ima li tko ideju za ovaj zadatak u Q-basic -u (matrica)21.04.2006. u 13:41 - pre 218 meseci
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!!!
 
Odgovor na temu

z@re
Zarko Bulatovic
Split

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



+25 Profil

icon Re: Ima li tko ideju za ovaj zadatak u Q-basic -u (matrica)21.04.2006. u 21:04 - pre 218 meseci
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.

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.
 
Odgovor na temu

Buffy
Stanko Culaja
Sipovo, BiH

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



Profil

icon Re: Ima li tko ideju za ovaj zadatak u Q-basic -u (matrica)22.04.2006. u 09:35 - pre 218 meseci
Sta je ovo???
Basic na C forumu?
I jos mu odgovaras ;)
 
Odgovor na temu

X Files
Vladimir Stefanovic
Pozarevac

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

Jabber: xfiles@elitesecurity.org


+638 Profil

icon Re: Ima li tko ideju za ovaj zadatak u Q-basic -u (matrica)22.04.2006. u 12:44 - pre 218 meseci
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 ;)

 
Odgovor na temu

z@re
Zarko Bulatovic
Split

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



+25 Profil

icon Re: Ima li tko ideju za ovaj zadatak u Q-basic -u (matrica)22.04.2006. u 17:45 - pre 218 meseci
Sta mislis da nije zensko da bi uopce upalio QuickBasic? ;)

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.
 
Odgovor na temu

PeRuN_RoJs
kosjeric

Član broj: 67848
Poruke: 46
195.252.103.*



Profil

icon Re: Ima li tko ideju za ovaj zadatak u Q-basic -u (matrica)24.04.2006. u 08:03 - pre 218 meseci
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.....
 
Odgovor na temu

Buffy
Stanko Culaja
Sipovo, BiH

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



Profil

icon Re: Ima li tko ideju za ovaj zadatak u Q-basic -u (matrica)24.04.2006. u 14:36 - pre 218 meseci
nisam bio odmah primjetio da se radi o "njoj".
drugacije bih reagovao ;)
 
Odgovor na temu

Bojan Kopanja
Bojan Kopanja
Senior Web Developer, ZeusSoftware
Stara Pazova

Član broj: 6155
Poruke: 507
80.93.238.*

ICQ: 346697685
Sajt: www.zeussoftware.rs


Profil

icon Re: Ima li tko ideju za ovaj zadatak u Q-basic -u (matrica)24.04.2006. u 14:38 - pre 218 meseci
Jeez, pa sta rade moderatori?! Uzeli free za praznike ?
 
Odgovor na temu

Mali Misha
Mihajlo Anđelković
NBGD

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

ICQ: 195487525
Sajt: cpptea.com


+1 Profil

icon Re: Ima li tko ideju za ovaj zadatak u Q-basic -u (matrica)24.04.2006. u 14:50 - pre 218 meseci
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.
 
Odgovor na temu

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

[ Pregleda: 4331 | Odgovora: 8 ] > FB > Twit

Postavi temu Odgovori

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