|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
|
Опции темы | Поиск в этой теме |
05.04.2012, 17:06 | #21 |
Пользователь
Регистрация: 01.04.2012
Сообщений: 16
|
|
05.04.2012, 18:35 | #22 | |
Старожил
Регистрация: 09.01.2008
Сообщений: 26,229
|
Цитата:
как уже было сказано выше - контролируйте что можно изменять, а что нет - САМОСТОЯТЕЛЬНО!! и вы мой пост #21 читали? и что ответите насчёт пункта 3) ? |
|
06.04.2012, 07:39 | #23 | |
Форумчанин
Регистрация: 05.09.2011
Сообщений: 869
|
извиняюсь за поздний ответ, со временем напряг..
Ну, к тому посту, на который я отвечал, это еще не было известно, как я понял )). И ты, Серж, говорил про числа, которые не влезают в множества - какое уж тут судоку?.. )) А за некоторый оффтоп я уже извинился. Цитата:
Предпочитаю на "ты".
|
|
07.04.2012, 23:26 | #24 |
Пользователь
Регистрация: 01.04.2012
Сообщений: 16
|
нашел алгоритмы, но они недоработанные и там я не все понимаю, но думаю если посмотреть внимательно, можно все понять)
на всякий случай скину, вдруг у кого-то тоже возникла такая же идея)) http://programmersforum.ru/showthread.php?t=84708 http://forum.sources.ru/index.php?showtopic=192143 http://forum.pascalnet.ru/lofiversio...hp/t10635.html |
08.04.2012, 00:21 | #25 |
МегаМодератор
СуперМодератор
Регистрация: 09.11.2010
Сообщений: 7,291
|
Решал 1.5 года назад задачу по решению судоку (код на Дельфи (но почти ничего нет от Дельфи, так что легко превращается в паскаль), 99%, что можно сделать красивее):
Код:
Пишите язык программирования - это форум программистов, а не экстрасенсов. (<= это подпись )
Последний раз редактировалось BDA; 08.04.2012 в 01:43. |
08.04.2012, 17:46 | #26 |
Пользователь
Регистрация: 01.04.2012
Сообщений: 16
|
BDA, спасибо большое)
BDA, 1)как забивать числа в блокнот, то есть просто число написать? 2)не очень понял, что вот эта строчка означает function zero(b: sudoku): point; 3)Writeln(E.ClassName, ': ', E.Message); пишет 'неизвестное поле класса', убрал .ClassName, программа запускается.Надо ли убирать это?) 4)Программа писала 'Неверное кол-во фактических параметров' zero.x := i; zero.y := j; убрал zero и добавил x и y в переменные все заработало.Вопрос, что делает zero.x := i; ? 5)Запускаю программу, пишет '$0E409C60: ошибка ввода-вывода', что делать? 6)пишет, что модуль SysUtils не найден, заменил на crt. Что делает модуль SysUtils ? Последний раз редактировалось Stilet; 08.04.2012 в 20:54. |
08.04.2012, 18:28 | #27 |
МегаМодератор
СуперМодератор
Регистрация: 09.11.2010
Сообщений: 7,291
|
Переделал код под Паскаль АБС (сборка паскаля 1.8.0.490).
1) пример входного файла в приложенном архиве 2) функция zero ищет следующую пустую клетку на поле 3) эта строка нужна была в Дельфи для вывода ошибок (убрал всю конструкцию try except) 4) не знаю, почему не сработало (заменил на временную переменную tmp) 5) скорее всего нет входного файла (не работал в Паскаль АБС) 6) Модуль SysUtils всегда подключается в консольных приложениях Дельфи (отвечает, скорее всего, за самые базовые функции)
Пишите язык программирования - это форум программистов, а не экстрасенсов. (<= это подпись )
|
08.04.2012, 20:20 | #28 |
Пользователь
Регистрация: 01.04.2012
Сообщений: 16
|
BDA, Как я понял, файл sudoku.in надо открыть через текстовый редактор и вбить туда числа которые нам известны, а если число не известно, то поставить 0, да?
Что программа требует в начале? Надо ли output и input описывать, то есть VAR output,input: text; ? просто без этого она не хочет запускаться. |
08.04.2012, 20:31 | #29 |
МегаМодератор
СуперМодератор
Регистрация: 09.11.2010
Сообщений: 7,291
|
Да, с файлом судоку.ин нужно сделать описанные вами действия.
Программе в начале работы обязательно требуется наличие этого файла. У меня работает в Паскаль АБС без объявления (но исправленная версия во вложении).
Пишите язык программирования - это форум программистов, а не экстрасенсов. (<= это подпись )
Последний раз редактировалось BDA; 08.04.2012 в 20:34. |
09.04.2012, 15:34 | #30 |
Пользователь
Регистрация: 01.04.2012
Сообщений: 16
|
BDA, спасибо большое, все работает. Теперь буду разбираться в программе)
|
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Задачи на решение Pascal abc | Tecka | Фриланс | 9 | 18.12.2012 22:20 |
Решение задач в PASCAL ABC | canter | Помощь студентам | 2 | 11.03.2012 22:03 |
нужно решение на Pascal ABC | EvilCry | Помощь студентам | 8 | 27.10.2011 12:30 |
(PASCAL ABC)Дана Матрица, найти индексы всех эл-ов с наибольшим значением, если таких элементов несколько | Grandhustla | Помощь студентам | 0 | 25.05.2011 16:06 |
решение задачи в PASCAL ABC | kill_01 | Помощь студентам | 14 | 19.05.2011 05:51 |