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.
Ima li tko ideju za ovaj zadatak u Q-basic -u (matrica)
?