Файл: Модули.doc

Скачать файл
Заказать решение

ВУЗ: Не указан

Категория: Не указан

Дисциплина: Не указана

Добавлен: 17.02.2021

Просмотров: 464

Скачиваний: 1

ВНИМАНИЕ! Если данный файл нарушает Ваши авторские права, то обязательно сообщите нам.

СОДЕРЖАНИЕ

Модули. Структура модуля. Стандартные модули Delphi.

Структура модуля.

Пример модуля для вычисления расстояний между точками на плоскости и площади треугольника, заданного тремя точками.

Пример модуля, реализующего стек с целыми числами.

Модули Delphi

Модуль Math

Модуль SysUtils

Модуль Console

Задания.

function AnsiLowerCase(const S: string): string; - Возвращает строку S в нижнем регистре, с учетом национальных символов (только для кодировки Windows).

function DateToStr(Date: TDateTime): string; - Преобразует формат упакованной даты и времени Date:TDateTime в строку с датой.

function TimeToStr(Time: TDateTime): string; ; - Преобразует формат упакованной даты и времени Time:TDateTime в строку со временем.

function IntToHex(Value: Integer; Digits: Integer): string; - Преобразует целое число со значением Value в строку с шеснадцатиричным представлением, Digits – определяет минимальное количество знаков.

function IntToStr(Value: Integer): string; - Преобразует целое число со значением Value в строку.

function FloatToStr(Value: Real): string; - Преобразует вещественное число со значением Value в строку.

function StrToInt (S: string): Integer; - Преобразует строку s в целое число.

function StrToFloat (S: string): Real; - Преобразует строку s в вещественное число.

function Time: TDateTime; function GetTime: TDateTime; - Возвращают текущее время.

function Now: TDateTime; - Возвращает текущее время и дату.

procedure Sleep(milliseconds: Cardinal); - Делает паузу в выполнении программы с длительностью milliseconds.

Модуль Console

Для удобной работы в консольном приложении Delphi можно воспользоваться модулем Console.pas, разработанным Rudy Velthuis и свободно распространяемым в сети Интернет. Процедуры и функции этого модуля корректно работают в среде Windows и имеют одинаковые названия и параметры с подпрограммами модуля CRT из Турбо Паскаля. Подпрограммы этого модуля позволяют программисту управлять расширенным вводом и выводом.

Константы цветов:

Black = 0

Red = 4

DarkGray = 8

LightRed = 12

Blue = 1

Magenta =5

LightBlue = 9

LightMagenta = 13

Green = 2

Brown = 6

LightGreen = 10

Yellow = 14

Cyan = 3

LightGray = 7

LightCyan = 11

White = 15

Процедуры и функции:

procedure ClrEol;

Очищает все символы с позиции курсора до конца строки

procedure ClrScr;

Очищает экран или окно цветом фона, курсор устанавливается в левый верхний угол.

procedure Delay(M: Integer);

Задерживает выполнение программы на М*10-3 секунд

procedure DelLine;

Удаляет строку, в которой находился курсор.

procedure GotoXY(X, Y: Smallint);

Устанавливает курсор в позицию с координатами X,Y.

procedure InsLine;

Вставляет пустую строку в позицию курсора.

function KeyPressed: Boolean;

Возвращает значение True, если была начата любая клавиша.

function ReadKey: Char;

Считывает символ, нажатый на клавиатуре. Нажатый символ не дублируется на экране и для ввода не надо нажимать Enter.

procedure TextBackground(Color: Byte);

Устанавливает цвет фона.

function

TextBackground: Byte;

Возвращает текущий цвет фона.

procedure TextColor(Color: Byte);

Устанавливает цвет шрифта.

function TextColor: Byte;

Возвращает текущий цвет шрифта.

function WhereX: Integer;

function WhereY: Integer;

Возвращают текущие координаты курсора на экране

procedure Window(Left, Top, Right, Bottom: Integer);

Задает окно вывода на экране. Параметры – координаты левого верхнего и правого нижнего углов окна.

Задания.

  1. Разработать модуль для работы с комплексными числами.

  2. Разработать модуль для вычисления расстояний в 3-мерном пространстве.

  3. Разработать модуль, реализующий стек на основе динамического массива с неограниченной емкостью.

  4. Разработать модуль, реализующий очередь.

  5. Разработать модуль с типами и функциями для вычисления площади и периметра прямоугольника.

  6. Разработать модуль с типами и функциями для вычисления площади и периметра трапеции.

  7. Разработать модуль с типами и функциями для вычисления площади и длины окружности.

  8. Разработать модуль с типами и функциями для вычисления площади поверхности и объема шара.

  9. Разработать модуль с типами и функциями для вычисления площади поверхности и объема куба.

  10. Разработать модуль с дополнительными тригонометрическими функциями.

  11. Разработать модуль для вычисления площади и периметра многоугольника, заданного координатами вершин.

  12. Разработать модуль для работы с матрицами: ввод и вывод значений, проверка на симметричность, заполнение случайными числами и т.д.

Смотрите также файлы