Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > Паскаль, Turbo Pascal, PascalABC.NET
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 26.08.2009, 11:09   #1
mmx358
Пользователь
 
Регистрация: 28.06.2009
Сообщений: 84
По умолчанию Runtime error 201

Код:
stakan = array [1..25, 1..22] of byte;
.....
var stak : stakan;
.....
sx:=36; sy:=2;
.....
sx:=(sx-23) div 2;
.....
if stak[(sx-2)+(f*2),(sy-1)+i] = 1
if stak[(sx+0)+(x*2),(sy-2)+f] = 1
if stak[(sx-2)+(x*2),(sy-1)+y] = 1
if stak[(sx+0)+(i*2),(sy-2)+y] = 1
Ошибка происходит в одной из последних четырех строк (они вырваны сюда из разных мест программы).

Последний раз редактировалось mmx358; 26.08.2009 в 11:21.
mmx358 вне форума Ответить с цитированием
Старый 26.08.2009, 11:38   #2
Sazary
В тени
Старожил
 
Аватар для Sazary
 
Регистрация: 19.12.2008
Сообщений: 5,788
По умолчанию

В одной из строк полученный индекс выходит за границы диапазона.
Вполне очевидно, чтобы что-то понять, необходимо книги читать.
Не нужно плодить бессмысленных тем. Вас Поиск избавит от многих проблем.

___________________________________ ___________________________________ _______
[=Правила форума=]_____[Поиск]_____[Литература по С++]____[Литература. Паскаль]
Sazary вне форума Ответить с цитированием
Старый 26.08.2009, 11:38   #3
Consol
Пользователь
 
Регистрация: 19.08.2009
Сообщений: 89
По умолчанию

у вас происходит выход за пределы массива, то есть например
stak[-1,5]
stak[5,40]
Consol вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

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

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
LIBCD.lib(crt0.obj) : error LNK2001: unresolved external symbol _main Debug/main.exe : fatal error LNK11 prefak Win Api 0 19.04.2009 16:51
Выдаёт ошибку: acos DOMAIN error,полсе нажатия окей,ещё одну ошибку pow OWERFLAW ERROR prikolist Общие вопросы C/C++ 4 10.04.2009 20:27
Ошибка runtime error 105 at 0001:002B agoriachev Паскаль, Turbo Pascal, PascalABC.NET 2 29.01.2009 16:25
Microsoft Visual C++ Library (Runtime Error!) Карась Свободное общение 2 25.12.2008 23:31