Примеры программ на Компонентном Паскале

(После просмотра данного документа можно продолжить чтение здесь:
Первые сведения о работе в Блэкбоксе)

Приводимые примеры покажут читателю, как выглядят простейшие программы на Компонентном Паскале. Исходные тексты всех примеров содержатся в двух пакетах (для школ и университетов), описанных отдельно (папки Info21примеры\Mod\ , файлы с именами *.odc).
Их можно непосредственно открывать из Блэкбокса обычным порядком (Ctrl+O и т.д.).
Там же (Info21примеры\DocuRu\*.odc) можно найти документы, детально описывающие разработку этих модулей методом пошагового уточнения.

Функция, проверяющая простоту задаваемого целого:

Звездочка после имени процедуры в заголовке — символ экспорта — делает процедуру видимой и доступной из других модулей.
Проверка эквивалентна задаче поиска (в данном случае, поиск делителя) и выполняется по стандартной схеме для таких задач.

Уплотнение цепочки литер, чтобы исключить идущие подряд пробелы:

Процедура Проверить проверяет наличие в массиве литер специальной литеры-ограничителя, задаваемой 16-ричный кодом 0X.

Сотрировка вставками:

Разумеется, можно обойтись и без рекурсии в процедуре Вставить (это т.наз. хвостовая рекурсия, которая легко заменяется на цикл WHILE).
Процедура Демо показывает использование средств модуля In. Их следует использовать в преподавании вместо ввода с клавиатуры старого Паскаля.
В процедуре Демо сначала подсчитывается количество чисел в потоке ввода (первый цикл WHILE), затем размещается массив нужной длины (процедура NEW( a, n )). Затем производится повторное считывание чисел из потока ввода (In.Open и второй цикл WHILE) и их запись в размещенный массив. Наконец, вызывается процедура сортировки и производится печать отсортированного массива в рабочий журнал (специальное окошко для системных сообщений, обычно постоянно открытое при работе в Блэкбоксе).