IPB
ЛогинПароль:

> Прочтите прежде чем задавать вопрос!

1. Заголовок темы должен быть информативным. В противном случае тема удаляется ...
2. Все тексты программ должны помещаться в теги [code=pas] ... [/code], либо быть опубликованы на нашем PasteBin в режиме вечного хранения.
3. Прежде чем задавать вопрос, см. "FAQ", если там не нашли ответа, воспользуйтесь ПОИСКОМ, возможно такую задачу уже решали!
4. Не предлагайте свои решения на других языках, кроме Паскаля (исключение - только с согласия модератора).
5. НЕ используйте форум для личного общения, все что не относится к обсуждению темы - на PM!
6. Одна тема - один вопрос (задача)
7. Проверяйте программы перед тем, как разместить их на форуме!!!
8. Спрашивайте и отвечайте четко и по существу!!!

 
 Ответить  Открыть новую тему 
> Нелогичная работа программы (в среде Дельфи), Непредсказуемые значение переменных
сообщение
Сообщение #1


Клавиатурный тиран
**

Группа: Пользователи
Сообщений: 79
Пол: Мужской
Реальное имя: Дмитрий

Репутация: -  -2  +


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

Модуль soSol (Показать/Скрыть)

Основная часть (Показать/Скрыть)

Файл с входными данными прилагаю.
Программа сырая, но я помощи прошу не с алгоритмом, а с логикой работы написанного выше.
Программа работает следующим образом.
1. Выбираем пункт меню "2", пишем имя файла "e2"
2. Выбираем пункт меню "4".
3. Выбираем пунтк меню "5".
Проблема с переменными процедуры STransMSets(var SMas:TMBlock).
Перед запуском ставим брейкпоинт на первой строке исполнительного блока процедуры.
Пошаговая отладка показала, что в блоке

FRo:=true;
for k:=1 to 3 do
for i:=1 to 3 do
for p:=1 to 3 do
for j:=1 to 3 do
if MBSet[k,p][i,j]<>[] then
begin
_Set:=MBSet[k,p][i,j];
// for n:=1 to 9 do
// if [n]=_Set then Fl:=false else Fl:=true;
for ex1:=1 to 3 do
for ex2:=1 to 3 do
if (ex1<>p) and (ex2<>j) then _Set:=_Set-MBSet[k,ex1][i,ex2];
for n:=1 to 9 do
if [n]=_Set then begin
MBSet[k,p][i,j]:=_Set;
// if Fl then FRo:=false;
end;
end;


первое значение переменных i, k=3, MBSet[k,p][i,j]=[], но после строки _Set:=MBSet[k,p][i,j] множество _Set не равно [].

Компилировал под Delphi 7, Delphi 7.3, Delphi 2009. Проблема остается. Думал уже переписать код под FreePascal. Очевидно, что это не приведет к решению проблемы.
Думается мне, что проблемы с памятью. Но почему так происходит? И как можно узнать, что на самом деле происходит? С языком ассемблера не дружу.

Сообщение отредактировано: Lapp -


Прикрепленные файлы
Прикрепленный файл  e2.txt ( 161 байт ) Кол-во скачиваний: 273
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #2


Гость






Добавь перед началом процедуры STransMSets директиву
{$OPTIMIZATION OFF} и попробуй прогнать программу еще раз.

P.S. Тебе не показалось странным то, о чем ты говоришь вообще? Строка
Цитата
_Set:=MBSet[k,p][i,j];
должна выполняться только в том случае, если MBSet[k,p][i,j] <> [], а ты утверждаешь, что оно у тебя как раз пустое перед присвоением в _Set... Отсюда и вывод - либо оптимизатор что-то там переоптимизировал со множествами (были такие случаи еще в D2006), либо Watch просто показывает неправильные значения переменных. Сначала действуем по варианту №1 - отключаем оптимизатор.
 К началу страницы 
+ Ответить 
сообщение
Сообщение #3


Я.
****

Группа: Пользователи
Сообщений: 809
Пол: Мужской
Реальное имя: Саша

Репутация: -  11  +


Точно говорить не могу, но, по моему, не всегда существует ситуация, когда есть клетка, в которую можно однозначно вставить какую-то цифру. Например, такая ситуация: на одной горизонтали в одну клетку можно поставить 1 и 2, и в другую 1 и 2. и только когда ты подставишь один из вариантов и пойдешь решать дальше, можно понять правильность твоего выбора. Решать не далеко, на несколько ходов вперед.
Еще раз повторяю, что это всего лишь мои догадки, т.к. возникали иногда такие ситуации при ручном решении.
Цитата
я помощи прошу не с алгоритмом
Офф:
Мой вариант решения (Показать/Скрыть)


 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #4


Клавиатурный тиран
**

Группа: Пользователи
Сообщений: 79
Пол: Мужской
Реальное имя: Дмитрий

Репутация: -  -2  +


volvo
Премного благодарен. Оптимизатор действительно слажал good.gif Жирный плюс к репутации. Тему пока не закрывай.

sheka
Не совсем понял, к чему твой пост. Оффтоп, конечно. smile.gif По алгоритму вопросов у меня нет. smile.gif
Да, несомненно, существуют циклические перестановки в решении судоку. Это случай множественного решения задачи судоку. Но это никак не пойдет в разрез с моим алгоритмом. В остальном же все решается последовательно, без предположений с последующим оправданием решения или его опровержением. Работа еще не доделана. Тем не менее, спасибо.

Сообщение отредактировано: Sozialist -
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #5


Клавиатурный тиран
**

Группа: Пользователи
Сообщений: 79
Пол: Мужской
Реальное имя: Дмитрий

Репутация: -  -2  +


Тему можно закрыть. Откликнувшимся спасибо.
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 

 Ответить  Открыть новую тему 
1 чел. читают эту тему (гостей: 1, скрытых пользователей: 0)
Пользователей: 0

 





- Текстовая версия 23.12.2024 21:08
500Gb HDD, 6Gb RAM, 2 Cores, 7 EUR в месяц — такие хостинги правда бывают
Связь с администрацией: bu_gen в домене octagram.name