Четверг, 28.03.2024, 19:58
Задачи по информатике
Главная | Регистрация | Вход Приветствую Вас Гость | RSS
[ Новые сообщения · Участники · Правила форума · Поиск · RSS ]
  • Страница 1 из 1
  • 1
Модератор форума: ignorer, KOT_B_MEIIIKE, PASCAL26, atvrider  
Форум » Решение задач по информатике » Задачи по программированию + блок-схемы » программирование на бейсике (поиск ошибки в программе)
программирование на бейсике
avensisДата: Воскресенье, 27.02.2011, 18:59 | Сообщение # 1
Рядовой
Группа: Новичок
Сообщений: 1
[ 0 ]
Статус: Offline
Помогите найти ошибку в конце программы (проблемные вопросы выделены красным цветом)

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

Буду очень признательна.

 
NailДата: Понедельник, 28.02.2011, 13:55 | Сообщение # 2
Генералиссимус
Группа: Заблокированные
Сообщений: 127
[ 0 ]
Статус: Offline
Пиши, найду ошибку...
Mail: shakurovnail@mail.ru
Icq: 6688101
Skype: shakurovnail
 
Форум » Решение задач по информатике » Задачи по программированию + блок-схемы » программирование на бейсике (поиск ошибки в программе)
  • Страница 1 из 1
  • 1
Поиск:

Copyright MyCorp © 2024