ПРИЛОЖЕНИЕ 7 Список демонстрационных процедур и функций

Глава 6. Управляющие структуры языка

Program (рис. 6.16)

Демонстрация суммирования элементов массивов любого типа

Fast, IntPower (разд. 6.9.6.4)

Примеры рекурсивного вычисления факториала и целой степени числа

Unit Colors (рис. 6.19)

Модуль, выводящий цветовые константы

Глава 8. Обработка символов и строк

ExplodeString (рис. 8.4)

Процедура вывода строки с эффектом раздвижения и звуковым сигналом.

CenterStr (рис. 8.5)

Функция создания строки заданной длины со вставленной в середину подстрокой

ZStr (рис. 8.6)

Процедура преобразования числа в строку так, что предшествующие числу пробелы заменяются на нули

PosN (рис. 8.7)

Функция, возвращающая номер символа, с которого начинается N-е вхождение подстроки в строку

Глава 9. Математические возможности Турбо Паскаля

Binary (рис. 9.1)

Функция перевода целого числа в двоичное представление

Code2to1/Decode1to2 (рис.9.2)

Процедуры кодирования /декодирования двух малых числе в один байт

ATAN2 (рис. 9.3)

Функция возвращающая значение угла наклона оси X в радианах. Возвращаемое значение находится в диапазоне 0…2*Pi и учитывает знаки координат

AcrCos, ArcSin (рис 9.4)

Функции, возвращающие главные значения арккосинуса и арксинуса

Log10 (рис. 9.5)

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

Pwr (рис. 9.6)

Функция, возвращающая значение A в степени X (A > 0)

Gauss (рис. 9.7)

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

Глава 11. Ссылки, динамические переменные и структуры

HeapAvall (рис. 11.7)

Функция, возвращающая размер свободной области кучи, которая расположена выше значения HeapPtr

Unit StackManager (рис. 11.10)

Модуль, реализующий набор процедур для работы со стеком произвольных данных

Глава 12. Ввод, вывод данных и файловая система

FileExists (рис. 12.11)

Функция проверки существования файла с данным именем

 ReadInteger (рис. 12.14)

Процедура ввода с клавиатуры значения типа Integer с игнорированием любого ввода, не соответствующего этому типу.

Глава 13. Объектно-ориентированное программирование

Program (рис. 13.8)

Каркас программы, реализующей полиморфные операции с динамически распределяемыми объектами с полной обработкой ошибок.

Глава 14. Специальные средства языка

Devices (рис. 14.3)

Программа – демонстрация анализа конфигурации ПЭВМ

FillWord (рис. 14.4)

Процедура заполнения блоков памяти значением типа Word (по аналогии с FillChar)

NewExit (рис. 14.7)

Демонстрация процедуры обработки фатальных ошибок и выхода из программы

Глава 15. Модуль CRT

IsBlinking, GetBackGround, GetForGround (рис. 15.5)

Функции проверки факта мерцания символов на экране, текущего цвета фона и символов

VertStr(рис. 15.9)

Процедура вертикального вывода строки

Spiral (рис.15.10)

Процедура закраски по спирали области экрана

Program (рис. 15.11)

Демонстрация работы процедуры ClrEOL

Program (рис. 15.12, 15.13)

Демонстрация работы процедуры InsLine/DelLine

Program (рис. 15.14)

Демонстрация работы процедуры HighVideo, LowVideo

SoundType (рис. 15.15)

Процедура звуковой печати строк

Phone, Bell, Sirena (рис. 15.16)

Процедуры имитации звуков телефонного звонка, зуммера и сирены

Глава 16. Модуль DOS

XDOSVersoin  (рис. 16.1)

Функция выдачи строки с номером версии MS-DOS

ShowSET (рис. 16.2)

Процедура вывода значений системных переменных MS-DOS

WhatDay (рис. 16.3)

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

Program (рис. 16.4)

Пример программы, анализирующей время своей работы

ChangeFTime (рис. 16.5)

Процедура смены даты и времени создания файла

Program (рис. 16.6)

Пример программы, анализирующей жесткие диски ПЭВМ

GetVoluve (рис. 16.7)

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

FileExists(рис. 16.8)

Функция проверки существования файла

ShowDisk (рис. 16.9)

Процедура вывода каталога по заданному шаблону

PrintScreen (рис. 16.13)

Печать экрана на принтере, как при нажатии комбинации клавиш Shift+PrtScr

TestDrives (рис. 16.14)

Процедура определения множества имен дисков в ПЭВМ

Execute (рис. 16.17)

Функция запускает файл с параметрами и возвращает логическое значение True, если запуск был удачен.

HideScr (рис. 16.18)

Резидентная программа скрытия экрана. Работает во всех текстовых режимах и использует пароль (если задан) для возврата

Глава 17. Модуль Printer

TestPrinter (рис. 17.3)

Функция возвращает код состояния принтера LPT1 (PRN)

PrintFile (рис. 17.3)

Процедура печати файла на принтере, подключенном к LPT1, с анализом состояния принтера.

Program (рис. 17.4)

Резидентная программа перенаправления потоков печати

Глава 18. Модуль Overlay

Program (рис. 18.2)

Пример блока обработки ошибок при работе с оверлеями

Глава 19. Модуль Graph

CopyToPRN (рис. 19.27)

Процедура получения твердой копии изображения, полученного на экране в графическом режиме, на принтерах типа EPSON FX

Program (рис. 19.29)

Программа-каркас, моделирования движения бильярдного шара, использующая свойство режима XOR вывода изображения

Program (рис. 19.30)

Программа-каркас, использующая по кадровый алгоритм движения изображения (только для адаптеров EGA и VGA)

LoadFont (рис. 19.32)

Процедура связывания файла внешнего шрифта с паскаль-программой

LoadFont8x8 (рис.33)

Процедура замены системного шрифта DefaultFont на внешний, сконструированный в матрицах 8 x 8

UNIT BGI (рис. 19.36)

Модуль, составленный для включения всех BGI-драйверов и CHR-шрифтов (в том числе и собственных) в EXE-файл

Глава 20. Профессиональная работа с текстовыми изображениями

GetScreenPtr (рис. 20.1)

Функция, выдающая адрес видеопамяти в режиме текста

CurrentMode (рис. 20.2)

Функция, выдающая номер текущего текстового режима

Font8x8Yes (рис. 20.2)

Функция, выдающая True, если включен режим Font8x8

GetScreenSize (рис. 20.2)

Функция, выдающая длину видеопамяти в текущем режиме

GetColNum, GetRowNum(рис. 20.2)

Функции, выдающие текущее число столбцов и строк

FillArea (рис. 20.5)

Процедура заполнения прямоугольной области экрана символом в заданном цветовом атрибуте

ChangeAttr(рис. 20.5)

Процедура предназначения цветового атрибута прямоугольной области экрана

Program (рис. 20.7)

Пример, ведения системы окон с помощью средств модуля Win

SaveCurrentScreenOnDisk, LoadScreenFromDisk (рис. 20.8)

Процедура сохранения текущего тест-экрана на диске и его чтения

WriteChar (рис. 20.11)

Процедура вывода символа в виде изображения размером 8 х 8 позиций

WriteLargeString (рис. 20.11)

Процедура изображения строки большими буквами

SetCursorSize (рис. 20.13)

Процедура установки формы текстового курсора

SetNormalCursor, SetBlockCursor, SetNoCursor (рис. 2013)

Процедуры установки нормальной, блочной и невидимой формы

Глава 21. Как осуществить полный доступ к клавиатуре

ClrKeyBuf (рис. 21.1)

Процедура очистки буфера клавиатуры

Wait (рис. 21.2)

Процедура ожидания нажатия на клавиатуре

GetLockKey, SetLockKey (рис. 21.9)

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

UnReadKey (рис. 21.12)

Процедура, возвращающая в буфер клавиатуры значение, содержащее ASCII-код алфавитной клавиши

UnReadExtCode (рис. 21.12)

Процедура, возвращающая в буфер клавиатуры значение, содержащее расширенный код функциональной клавиши или алфавитной в режиме Alt

UnReadString (рис. 21.12)

Процедура помещения в буфер строки (до 16 символов)

Глава 22. Работа с оперативной памятью видеоадаптеров

WriteSym (рис. 22.9)

Процедура вывода символа заданного цвета на графический экран шрифтом текстового режима

WriteStr (рис. 22.10)

Процедура вывода строки на графический экран шрифтом текстового режима (только EGA и VGA)

SaveScreen (рис. 22.11)

Процедура записи на диск картинки с экрана, не превышающего размер 640x200 при 16 цветах

LoadScreen (рис. 22.12)

Процедура вывода на экран картинки, записанной на диск. Максимальный размер — весь экран в режиме 640x200 при 16 цветах

SaveBitPlanes, LoadBitPlanes (рис. 22.13)

Процедуры сохранения изображения всего экрана на диске и считывания его

SaveCGAScr, LoadCGAScr (рис. 22.14)

Процедуры сохранения изображения всего экрана на диске и его чтения для CGA-адаптеров

- 561 -