Заполнить типизированный файл целыми числами из интервала [-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/
