Добро пожаловать, гость
:: алгоритмы  и методы :: :: олимпиадные задачи :: :: связь :: :: о сайте :: :: форум ::

Форум работает в режиме архива, только для чтения и поиска.
Архив 2004 Архив 2007 Архив 2013

 
 
Опции темы Поиск в этой теме Опции просмотра
  #1  
Старый 28.02.2011, 11:27
Новичок

Отправить личное сообщение для avensis Посмотреть профиль Найти все сообщения от avensis
 
Регистрация: 28.02.2011
Сообщений: 1

ТРЕБУЕТСЯ ВАША ПОМОЩЬ!
Помогите найти ошибку в конце программы (проблемные вопросы выделены красным цветом)

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
********

Буду очень признательна.
  #2  
Старый 28.02.2011, 11:49
гocть

 
Сообщений: n/a

Сообщение от avensis Посмотреть сообщение
При нажатии F5, появляется результат:
них*ра ничё не появится

экстрасенсов здесь нет и "D:\2\dm\Lab1New\tabl1.txt" ни у кого тоже нет.

и название темы говно, заводи новую. указывай язык, компилятор
 


Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск
Опции просмотра


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Требуется помощь... за вознагаждение;) sixty2 Работа 3 25.11.2010 23:13
СРОЧНО нужна ваша помощь рассшифорвать файл. Andrey001 Работа 1 28.09.2010 01:42
Требуется помощь(или здравая мысль) гость Задачи 9 02.03.2009 09:28
Требуется составление алгоритма Работа Работа 3 11.12.2008 08:31