Помогите найти ошибку в конце программы (проблемные вопросы выделены красным цветом) DIM a(1), x, y, c(3, 11)
OPEN"D:\2\dm\Lab1New\tabl1.txt" FOR INPUT AS #1
INPUT #1, a(1)
LOCATE 12, 2
PRINT"Число вершин графа n="; a(1)
LOCATE 14, 2
PRINT "Таблица соответствий:"
FOR i=1 TO3
FOR J=1 TO11
LOCATE #1,c(i,j)
LOCATE i+13,30+j*2
PRINT c(i,j)
next j
next i
LOCATE 9,12
PRINT "Результат счета:"
LOCATE 19,35
PRINT "a,b,c,d"
LOCATE 20,33
PRINT "a"
LOCATE 21,33
PRINT "b"
LOCATE 22,33
PRINT "c"
LOCATE 23,33
PRINT "d"
FOR k=1 TO4
FOR k=1 TO4
x=0
FOR k=1 TO10
IF (((c(1,j)=k AND(((c(3,j)=m OR(c(3,j)=k (c(1,j)=m AND(c(2,j)<>(c(2,j+1))) THEN x=x+1
NEXTj
IF (((c(1,11)=k AND(c(3,11)=m OR(c(1,11)=m AND(c(3,11)=k)) THEN x=x+1d(k,m)=x[/COLOR]LOCATE k+19,32+m*2
PRINT d(k,m)
NEXTm
NEXTk
CLOSE #1
END
*******************
При нажатии F5, появляется результат:
Число вершин графа n=4
Таблица соответствий: 1 1 1 1 2 1 1 3 3 3 2
1 2 3 4 4 5 6 6 7 8 9
1 1 2 2 1 3 3 1 2 2 3
Результат счета: a b c d
a 2 2 2 0
b 2 0 3 0
c 2 3 0 0
d 0 0 0 0
********
А правильный результат: a b c d
a 1 1 0 0
b 1 2 0 0
c 1 1 0 0
d 0 0 0 0
********
Буду очень признательна.