Заполнить типизированный файл целыми числами из интервала [-2000; 5000]. Поменять местами в файле первый отрицательный и первый положительный компонент.
Нарисовать на экране круг зеленого цвета, который движется по горизонтали, при достижении границы экрана превращается в квадрат и начинает движение в обратном направлении. Программа завершается нажатием любой клавиши. Рисование фигур оформить в виде процедуры.
Вывести на экран размеры всех файлов, находящихся в текущем каталоге, имена которых начинаются на заданную букву.
Таблица 15. Процедуры и функции модуля Crt
|
Имя
| Назначение
|
Процедуры задания режимов работы
|
Text Mode
| Задание текстового режима
|
Процедуры управления цветом
|
High Video
| Задание высокой яркости символов
|
Low Video
| Задание малой яркости символов
|
Norm Video
| Задание исходной яркости символов
|
TextBackgound
| Задание цвета фона
|
TextColor
| Задание цвета символов
|
Процедуры работы с экраном
|
ClrEol
| Удаление символов от курсора до конца строки
|
ClrScr
| Очистка экрана
|
DelLine
| Удаление строки, в которой находится курсор
|
GotoXY
| Перемещение курсора в заданную позицию
|
InsLine
| Добавление пустой строки на экране
|
Window
| Задание размеров окна
|
Функции работы с экраном
|
WhereX
| Текущая координата Х курсора
|
WhereY
| Текущая координата Y курсора
|
Функции работы с клавиатурой
|
KeyPressed
| Проверка нажатия клавиши
|
ReadKey
| Чтение символа с клавиатуры
|
Процедуры управления звуком
|
Sound
| Включение звука
|
NoSound
| Отключение звука
|
Процедура разнообразного назначения
|
Delay
| Задержка выполнения программы
|
AssignCrt
| Связь текстового файла с устройством CRT
|
Таблица 11. Процедуры и функции модуля System
|
Арифметические функции
|
Abc
| Абсолютное значение аргумента
|
ArcTan
| Арктангенс аргумента
|
Cos
| Косинус аргумента
|
Exp
| Показательная функция с основанием е
|
Frac
| Дробная часть аргумента
|
Int
| Целая часть аргумента
|
Ln
| Натуральный логарифм
|
Pi
| Число Пи (3,1215926535897932385)
|
Sin
| Синус аргумента
|
Sqr
| Квадрат аргумента
|
Sqrt
| Квадратный корень аргумента
|
Процедуры для величин порядкового типа
|
Dec
| Уменьшение переменной
|
Inc
| Увеличение переменной
|
Функции для величин порядкового типа
|
Odd
| Проверка аргумента на нечетность
|
Pred
| Предшествующее значение аргумента
|
Succ
| Следующее значение аргумента
|
Процедуры работы со строками
|
Delete
| Удаление подстроки и строки
|
Insert
| Помещение подстроки в строку
|
Str
| Преобразование числа в строковую переменную
|
Val
| Преобразование символьного представления числа в двоичное
|
Функции работы со строками
|
Concat
| Объединение строк
|
Copy
| Выделение подстроки
|
Length
| Длина строки
|
Pos
| Поиск подстроки в строке
|
Функции преобразования типов
|
Chr
| Получение символа по его коду
|
High
| Получение максимального значения величины
|
Low
| Получение минимального значения величины
|
Ord
| Порядковый номер величины перечисляемого типа
|
Round
| Округление вещественного числа до целого
|
Trunc
| Целая часть числа
|
Функции управления вводом-выводом
|
Eof
| Конец файла
|
Eoln
| Конец строки текстового файла
|
FilePos
| Номер текущей компоненты файла
|
FileSize
| Текущий размер файла
|
IOResult
| Результат последней операции ввода-вывода
|
SeekEof
| Конец файла
|
SeekEoln
| Конец строки текстового файла
|
Процедуры управления вводом-выводом
|
Append
| Открытие файла для добавления в конец информации
|
Assign
| Связь файловой переменной с внешним файлом
|
BlockRead
| Чтение компонент из файла
|
BlockWrite
| Запись компонент в файл
|
ChDir
| Изменение текущего каталога
|
Close
| Закрытие открытого файлы
|
Erase
| Уничтожение внешнего файла
|
Flush
| Освобождение буфера выходного файла
|
GetDir
| Получение текущего каталога накопителя
|
MkDir
| Создание каталога
|
Read
| Чтение информации с файла
|
Readln
| Чтение информации из текстового накопителя
|
Rename
| Переименование внешнего файла
|
Reset
| Открытие существующего файла
|
Rewrite
| Открытие нового файла
|
RmDir
| Удаление пустого каталога
|
Seek
| Настройка на требуемую компоненту файла
|
SetTextBuf
| Назначение буфера ввода-вывода
|
Truncate
| Удаление части файла, начиная с текущей позиции
|
Write
| Запись информации в файл
|
Writeln
| Запись строки в текстовый файл
|
Процедуры управления динамической памятью
|
Dispose
| Освобождение динамической памяти
|
FreeMen
| Освобождение динамической памяти
|
GetMem
| Создание новой динамической переменной
|
Mark
| Фиксация состояния динамической памяти
|
New
| Создание новой динамической переменной
|
Release
| Возвращение состояние динамической памяти в заданное состояние
|
Функции управления динамической памятью и адресные функции
|
Addr
| Адрес аргумента
|
Assigned
| Проверка равенства указателя значению nil
|
CSeg
| Содержание регистра CS
|
DSeg
| Содержание регистра DS
|
MaxAvail
| Размер максимального блока динамической памяти
|
MemAvail
| Размер свободной области динамической памяти
|
New
| Создание новой динамической переменной
|
Ofs
| Смещение адреса аргумента
|
Ptr
| Преобразование адреса в указатель
|
Seg
| Адрес сегмента аргумента
|
SSeg
| Содержимое регистра SS
|
SPtr
| Содержимое регистра SP
|
Управление программой
|
Break
| Досрочный выход из цикла
|
Continue
| Начало новой итерации цикла
|
Exit
| Выход из текущей подпрограммы или программы
|
Halt
| Прекращение исполнения программы
|
RunError
| Прекращение исполнения программы с выдачей сообщения об ошибке
|
Процедуры разнообразного назначения
|
Exclude
| Исключение элементов множества
|
FillChar
| Заполнение области заданным значением
|
Include
| Включение элементов множества
|
Move
| Копирование области памяти
|
Randomize
| Инициализация генератора случайных чисел
|
Функции разнообразного назначения
|
Hi
| Старший байт аргумента
|
Lo
| Младший байт аргумента
|
ParamCount
| Число параметров командной строки
|
ParamStr
| Параметр командной строки
|
Random
| Случайное число
|
SizeOf
| Размер аргумента
|
Swap
| Параметр мест младшего и старшего байтов аргумента
|
UpCase
| Преобразование строчной буквы в заглавную
|
Таблица 12. Процедуры и функции модуля Graph
|
Процедуры управления графическим режимом
|
CloseGraph
| Прекращение работы графического режима
|
DetectGraph
| Проверка оборудования и режима
|
GetModeRange
| Получение минимального и максимального номера графического режима
|
InitGraph
| Инициализация графического режима
|
RestoreCrtMode
| Возвращение в текстовый режим
|
SetGraphBufSize
| Изменение размера графического буфера
|
SetGraphMode
| Вход в графический режим и очистка экрана
|
Функции управления графическим режимом
|
GetGraphMode
| Получение номера графического режима
|
GetMaxMode
| Максимальное число режимов текущего драйвера
|
GetModeName
| Получение и заданного графического режима
|
GraphErrorMsg
| Формирование сообщения об ошибке
|
GraphResult
| Получение кода ошибки
|
GetDriverName
| Получение имени текущего драйвера
|
InstallUserDriver
| Размещение драйвера в таблице
|
InstallUsrFont
| Установка нового шрифта
|
RegisterBGIdriver
| Регистрация драйвера
|
RegisterBGIFont
| Регистрация шрифта
|
Процедуры управления экраном, окном, страницей
|
ClearDevice
| Очистка графического экрана
|
ClearViewPort
| Очистка графического окна
|
GetAspectRatio
| Получение относительного масштаба изображения по горизонтали и вертикали
|
GetViewSettings
| Получение параметров текущего графического окна
|
SetActivePage
| Задание активной страницы
|
SetAspectRatio
| Изменение относительного масштаба изображения по горизонтали и вертикали
|
SetViewPort
| Задание размеров окна
|
SetVisualPage
| Задание отображаемой на экране страницы
|
Процедуры управления цветом и палитрой
|
GetDefaultPalette
| Получение исходных параметров палитры
|
GetPalette
| Получение параметров палитры
|
SetAllPalette
| Задание всех цветов палитры
|
SetBkColor
| Задание цвета фона экрана
|
SetColor
| Задание текущего цвета
|
SetPalette
| Задание одного цвета палитры
|
SetRGBPalette
| Задание палитры для адаптеров IBM-8514 и VGA
|
Функции управления цветом и палитрой
|
GetBKColor
| Получение цвета фона
|
GetColor
| Получение текущего цвета
|
GetMaxColor
| Получение максимального кода цвета
|
GetPaletteSize
| Получение количества цветов в палитре
|
Функции работы с точками
|
GetMaxX
| Получение максимального значения координаты X
|
GetMaxY
| Получение максимального значения координаты Y
|
GetPixel
| Получение цвета пикселя активной страницы
|
GetX
| Получение координаты X текущей позиции на экране
|
GetY
| Получение координаты Y текущей позиции на экране
|
Процедура работы с точками
|
PutPixel
| Помещение пикселя в активную страницу
|
Процедуры работы с линиями
|
GetLineSettings
| Получение параметров линии
|
Line
| Построение линии от одной точки до другой
|
LineRel
| Построение линии с относительными координатами
|
LineTo
| Построение линии с абсолютными координатами
|
MoveRel
| Перемещение указателя в точку с относительными координатами
|
MoveTo
| Перемещение указателя в точку с абсолютными координатами
|
SetLineStyle
| Задание характеристик линии
|
SetWriteMode
| Задание способа построения линии
|
Процедуры построения фигур из линий
|
Bar
| Построение закрашенного прямоугольника
|
Bar3D
| Построение закрашенного параллелепипеда
|
DrawPoly
| Построение многоугольника
|
FillPoly
| Построение закрашенного многоугольника
|
FloodFill
| Заполнение области текущим орнаментом
|
GetFillPattern
| Получение орнамента заполнения фигур
|
GetFillSettings
| Получение параметров заполнения фигур
|
Rectangle
| Построение прямоугольника
|
SetFillPattern
| Задание произвольных параметров заполнения фигур
|
SetFillStyle
| Задание стандартных параметров заполнения фигур
|
Процедуры построения криволинейных фигур
|
Arc
| Построение дуги окружности
|
Circle
| Построение окружности
|
Ellipse
| Построение дуги эллипса
|
FillEllipse
| Построение закрашенного эллипса
|
GetArcCoords
| Получение координат последней дуги
|
PieSlice
| Построение закрашенного сектора круга
|
Sector
| Построение закрашенного сектора эллипса
|
Процедуры работы с текстом
|
GetTextSettings
| Получение характеристик текста
|
OutText
| Вывод последовательности символов
|
OutTextXY
| Вывод последовательности символов, начиная с заданных координат
|
SetTextJustify
| Задание способа выравнивания текста
|
SetTextStyle
| Задание типа, начертания шрифта и коэффициента увеличения символов
|
SetUserCharSize
| Задание высоты и ширины символов
|
Функции работы с текстом
|
TextHeight
| Получение высоты строки в пикселях
|
TextWidth
| Ширина строки в пикселях
|
Процедуры обмена с памятью
|
GetImage
| Сохранение изображения в буфере
|
PutImage
| Вывод изображения из буфера на экран
|
Функции обмена с памятью
|
ImageSize
| Получение размера требуемой для изображения памяти
|
Таблица 13. Процедуры и функции модуля Dos
|
Процедуры управления вычислительным процессом
|
Exec
| Выполнение программы с параметрами из заданной командной строки
|
GetIntVec
| Получение адреса программы обработки прерывания
|
Intr
| Выполнение программного прерывания
|
MsDos
| Выполнение функции Dos
|
Keep
| Прекращение выполнения программы обработки прерывания
|
SetIntVec
| Установка адреса программы обработки прерывания
|
SwapVectors
| Переопределение векторов прерываний
|
Функции управления вычислительным процессом
|
DosExitCode
| Получение кода выхода из выполняемого процесса
|
EnvCount
| Получение количества строк среды DOS
|
EnvStr
| Получение указанной строки среды DOS
|
GetEnv
| Получение значения указанной переменной среды DOS
|
Процедуры работы с файлами
|
FindFirst
| Поиск первого файла с заданными атрибутами в текущем или заданном каталоге
|
FindNext
| Поиск следующего файла с заданными атрибутами в текущем или заданном каталоге
|
FSplit
| Разбиение полного имени файла на три части
|
GetFAttr
| Получение атрибутов файла
|
SetFAttr
| Задание атрибутов файла
|
Функции работы с файлами и диском
|
DiskFree
| Получение числа свободных байтов на диске
|
DiskSize
| Получение общего объема памяти диска
|
FExpand
| Расширение имени файла до полного имени
|
FSearch
| Поиск файла в списке каталогов
|
Процедуры работы с датой и временем
|
GetDate
| Получение текущей даты, установленной в DOS
|
GetFTime
| Получение даты и времени последнего обновления файла
|
GetTime
| Получение текущего времени, установленного в DOS
|
PackTime
| Упаковка переменной типа DateTime в число типа Logint
|
SetDate
| Установка текущей даты в DOS
|
SetFTime
| Установка даты и времени создания файла
|
SetTime
| Установка текущего времени в DOS
|
UnpackTime
| Преобразование упакованных даты и времени в распакованную величину типа DateTime
|
Процедуры разнообразного назначения
|
GetCBreak
| Проверка способа работы с комбинацией Ctrl+Break в DOS
|
GetVerify
| Анализ состояния флага проверки операции записи в DOS
|
SetCBreak
| Установка способа работы с комбинацией Ctrl+Break в DOS
|
SetVerify
| Установка состояния флага проверки операции записи в DOS
|
Функции разнообразного назначения
|
DosVersion
| Получение версии DOS
|
1. Коллектив «Основы программирования. Turbo Pascal» (интерактивный курс 201 MB) 2006.
2. Фаронов В.В. «Turbo Pascal.- СПБ : БХВ-Петербург, 2004.
3. [Сетевой материал] http://pascal.guti.ru/ .
4. [Сетевой материал] http://www.tp7.info/