Добавил:
Upload Опубликованный материал нарушает ваши авторские права? Сообщите нам.
Вуз: Предмет: Файл:

Ракитин Р.Ю. ООП в Turbo Delphi

.PDF
Скачиваний:
56
Добавлен:
18.03.2015
Размер:
3.59 Mб
Скачать

211

function IntPower (const Base: Extended;

const Exponent: Integer): Extended; – возведение числа в целую степень. Если вы не собираетесь пользоваться экспонентами с плавающей точкой, желательно использовать эту функцию из-за ее скорости

function LogN (const Base: Extended;

const X: Extended): Extended; вычисление логарифма Х по основанию N;

function Log10 (const Number: Extended): Extended; вычисляет логарифм числа с основанием 10;

function Max (const A, B: Numeric type): Numeric type; выдает максимальное число из двух целых значений;

function Mean (const DataArray: array of Double): Extended;

выдает среднее число из набора чисел;

function Min (const A, B: Numeric type): Numeric type; выдает минимальное из двух целых значений;

function Power (const Base: Extended;

const Exponent: Extended): Extended; Возведение числа в степень. Работает медленнее IntPower, но для операций с плавающей

точкой вполне приемлемо

function RandomRange (const RangeFrom,

RangeTo: Integer): Integer; генерирует произвольное число в пределах введённого диапазона;

function Sum (const Numbers: array of Double): Double;

находит сумму элементов массива, состоящего из чисел с плавающей точкой.

Модуль SysUtils

procedure Abort; прерывает обработку команд и выходит к последнему исключительному блоку;

procedure Beep; делает звук гудка;

function DiskSize (Drive: Byte): Int64; выдает размер указанного диска в байтах;

function StrScan (const Characters: PAnsiChar;

SearchChar: Char): PAnsiChar; ищет заданные символы в строке.

212

3. Тип TColor (хранение цвета)

Даный тип используется для хранения цвета. Он содержит информацию, как о самом цвете, так и том, каким образом его заменить, если, например, цветовая палитра системы не поддерживает этот цвет.

Тин TColor состоит из четырех байт. Первый байт указатель на замену цвета (в большинстве случаев имеет значение 00). Второй байт яркость красного цвета от 0 до 255 (от 00 до FF). Третий байт яркость зеленого цвета от 0 до 255 (от 00 до FF). И, наконец, четвертый байт яркость синего цвета, также, от 0 до 255 (от 00 до FF).

Помимо представления цвета в числовом виде, в Delphi определены константы, наиболее часто используемых цветов. Ниже рассмотрены некоторые из них.

Константы

Шестнадцатиричное

Цвет

 

представление

 

clBlack

$00000000

Чёрный

clMaroon

$00000080

Тёмно-красный

clGreen

$00008000

Зелёный

clOlive

$00008080

Оливковый

clNavy

$00800000

Тёмно-синий

clPurpIe

$00800080

Фиолетовый

cITeal

$00808000

Сине-зелёный

clYellow

$0000FFFF

Желтый

clLtGray

$00C0C0C0

Светло-серый

clGray

$00808080

Серый

clSilver

$00C0C0C0

Серебряный

clRed

$000000FF

Красный

сlLime

$0000FF00

Ярко-зелёный

clBlue

$00FF0000

Голубой

clFuchsia

$00FF00FF

Сиреневый

с1Aqua

$00FFFF00

Ярко-голубой

clWhite

$00FFFFFF

Белый

clSkyBlue

$00F0CAA6

Небесно-голубой

213

Список литературы

1.Флёнов, М.Е. Библия Delphi [Текст] – 2-е изд., перераб. и доп. – СПб.:

БХВ-Петсрбург. 2008. – 800 с: ил. + CD-ROM.

2.Архангельский, А.Я. Delphi 2006. Справочное пособие: Язык Delphi, классы, .NET [Текст] – М.: ООО «Бином-Пресс», 2006 г. – 1152 с: ил.

3.Боровский, А.Н. Программирование в Delphi 2005 [Текст] – СПб.: БХВ- Петербург, 2005. – 448 с: ил.

4.Объектно-ориентированное программирование: Учеб. для вузов [Текст] / Под ред. Г.С. Ивановой. – М.: Изд-во МГТУ им. Н.Э. Баумана, 2001. – 320 с , ил. (Сер. Информатика в техническом университете).

5.Флёнов, М.Е. Delphi 2005 Секреты программирования [Текст] – СПб.:

Питер, 2006. – 266 с. ил.

6. Основы программирования: Учебник для вузов [Текст] / Под ред. Г.С. Ивановой. – 2-раб. и доп. – М.: Изд-во МГТУ им. Н.Э. Баумана, 2002. (Сер. Информатика в техническом университете.)

7.Миронченко, А.С. Императивное и объектно-ориентированное программирование на Turbo Pascal и Delphi [Текст] – Одесса: ВМВ, 2007. –

408с: ил.

8.Архангельский, А.Я. Программирование в Delphi 7 [Текст] – М., 2004.

9.Delphi 7. Учебный курс / Под ред. С.И.Бобровского [Текст] – СПб.: Питер, 2003.

10.Сухарев М.В. Основы Delphi. Профессиональный подход [Текст] – Спб.: Наука и техника, 2004. – 600 с.

11.Фаронов, В.В. Delphi. Программирование на языке высокого уровня

[Текст] – СПб., 2004.

12.Фридман, А.Л. Основы объектно-ориентированной разработки программных систем [Текст] – М.: Финансы и статистика, 2000. – 192 с: ил. – (Прикладные информационные технологии).

214

Учебное издание

Ракитин Роман Юрьевич

Объектно-ориентированное программирование в Turbo Delphi

Учебное пособие

Ответственный за выпуск Скорлупина Л.В.

Подписано в печать 16.02.2009

Объем 13,4 уч.-изд.л. Формат 60x84/16. Бумага офсетная. Гарнитура Times, Courier. Тираж 100 экз. Заказ № 17.

Отпечатано в типографии «Концепт». 656049, г. Барнаул, пр-т Социалистический, 85.

т./ф. (3852) 36-82-51