FreePascal.ru

Выложена редакция 02.02 от 13 мая 2024 года. Исправлены мелкие технические и стилистические шероховатости.

Вторая редакция от 17 ноября 2022 г.
Вторая редакция книги дополнена двумя главами:
Глава 29 — поиск паросочетания в произвольном взвешенном графе быстрым
алгоритмом Эдмондса (Edmonds).
Глава 35 — решение замкнутой и разомкнутой задач коммивояжёра на графах
и орграфах.
Нумерация глав, начиная с 29 ...

Аннотация книги "Графомания"

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

2018-02-09 Выложена редакция 12-11

Глава 61 стр. 519 В задании "Б" исправлен диапазон TSetArray = array [0..4096] --> [0..4095]

Других поправок за истекший период не поступало.

2018-02-09
Выложена редакция 12-11

Глава 61 стр. 519 В задании "Б" исправлен диапазон TSetArray = array [0..4096] --> [0..4095]

Не проще было бы просто воспользоваться операцией сравнения сравнив параметры окна и самого кирпича?
Так именно это мы и делаем: сравниваем высоту кирпича и отверстия (два мЕньших числа) и их ширину (два бОльших числа). Но сначала выясняем эти бОльшие и мЕньшие числа.
Решение от bormant мне ...

enot777 писал(а):Необходимо изменить диапазон [1..4096] или [0..4095]

Точно, это досадная опечатка , надо будет поправить, спасибо!

попадание в файл всех данных, временно находящихся в буфере записи, гарантирует вызов Flush(). Просто Close()/CloseFile() вызывают Flush() перед закрытием, только и всего.
Всё верно, спасибо! Но в "песнях" Flush() не упоминается (по ранее обсуждённым причинам), поэтому на начальном этапе обучения ...

2017-01-10 выложена редакция 12-10 (см. ветку с новостями)

В числе исправленных ошибка в главе 32, где изменено имя месяца декабрь: Dec --> Dcb
Но полноты картины ради надо сказать, что ошибка эта не совсем ошибка, имя месяца Dec можно применять так:

var m : (Jan,Feb,Mar,Apr,May,Jun,Jul,Aug ...

2017-01-10
Выложена редакция 12-10

Глава 32 -- Изменено имя месяца декабрь: Dec -> Dcb
Глава 33 стр. 231 -- Удалён параметр-файл F в вызовах Writeln(F,...)
Глава 36 стр. 258-259 -- Исправлена операция сравнения с (=>) на (>=)
Глава 56 стр. 449 -- Добавлено упоминание Borland Pascal в задаче (А ...

Спасибо, enot777, с замечаниями согласен.
Здесь можно добавить несколько пояснений для учащихся, многие из которых заглядывают на этот форум.
Почему надо закрывать открытые для чтения файлы? Всякий раз, когда программа открывает такой файл, операционка выделяет некоторый объём памяти под дескриптор ...

enot777 писал(а):В FPC начиная со 2-ой версии MemAvail и MaxAvail отсутствуют

Да, я в курсе, спасибо. Наверное, здесь следует сказать, что "в Borland Pascal были такие функции". Рудимент, конечно, но жаль выкидывать эту задачку.
Благодарю всех за обсуждение, и с Новым Годом всех!

enot777 писал(а):В справке от BTP7 присутствуют и low() и high().

Да, вы правы, недооценил я старика Борланда, там уже было это. В своё время мне это не требовалось на практике, а потом перешёл на Дельфак и "всё смешалось".

Из примера P_46_2 становится понятно почему было применено такое решение (CSize-1)
Точно! Давно это было, сам уже подзабываю свою писанину... спасибо за напоминание!
Хотя в книге нет описания low() и high().
Нет, потому что не было их в Борланде, а книга ориентировалась на школьника и под ...

Спасибо за полезные замечания!
Честно говоря, я не помню, почему поставил for i:=1 to CSize-1
Возможно, в каком-то варианте программы у меня массив индексировался с нуля. А может, захотел оставить семёрку в старшем разряде (в вашем нике их аж три). В конце концов, здесь это ни на что не влияет ...