Тип переменной Занимаемая память Диапазон значений Целочислинные переменные Byte 1 байт 0… (0…255) Shortint 1 байт-2 7 … (-128…127) Word 2 байта 0… (0…65 535) Smallint 2 байта-2 15 … ( …32 767) Longword 4 байта 0… (0… ) Cardinal 4 байта 0… (0… ) Integer 4 байта-2 31 … Longint 4 байта-2 31 … Int64 8 байтов-2 63 … Вещественные (дробные) переменные (с плавающей точкой) Single 4 байта 1.5*10 –45 …3.4*10 38 Real 8 байтов 5.0*10 –324 …1.7* Extended 10 байтов 3.6*10 –4951 …1.1* Строковые переменные String 256 байтовой 0 до знаков PChar 256 байтовой 0 до знаков Char 1 байт#0…я (любой символ) Логические переменные Boolean 1 байтtrue или false

Математические функции Имя и параметры ДействияПримеры function Sin (X: Real): Real; возвращает синус X Sin(1) = 0, Sin( ) = 0 function Cos (X: Real): Real; возвращает косинус X Cos(1) = 0, Cos( ) = -1 function Sqrt (X: Real): Real; возвращает квадратный корень из X Sqrt(2) = 1, Sqrt(4) = 2 function Abs (X: Real): Real; возвращает абсолютное значение (модуль) X Abs(-3.247) = 3,247 Abs(-2) = 2 function Round (X: Real): Int64; возвращает результат округлиния X до ближайшего целого Round(5.56) = 6 Round(-5) = -5 function Trunc (X: Real): Int64; возвращает целую часть X Trunc(9.999) = 9 Trunc( ) = 14 function Frac (X: Real): Real; возвращает дробную часть X Frac(-51.54) = 0,54 Frac(8) = 0

Строковые функции Имя и параметры ДействияПримеры function Copy (S: String; Index, Count: Integer): String; возвращает подстроку строки S длины Count, начиная с позиции Index Copy(паровоз, 5, 3) = воз Copy(я, 2, 5) = function Length (S: String): Integer; возвращает длину строки S Length(барабан) = 7 function Ord (X: Ordinal): Integer; возвращает номер значения порядкового типа X Ord(Z) = 90 Ord(true) = 1 Ord(-7) = -7 function Chr (X: Byte): Char; возвращает символ с кодом X Chr(35) = # Chr(90) = Z procedure Delete (var S: String; Index, Count: Integer); удаляет в строке S Count символов начиная с позиции Index SSS := мореход; Delete(SSS, 2, 4); SSS = мод Часть 1/3

Строковые функции Имя и параметры ДействияПримеры procedure Insert (Substr: String; var S: String; Index: Integer); вставляет подстроку Substr в строку S с позиции Index St := волий; Insert(до, St, 3); St = водолий function Pos (Substr: String; S: String): Integer; возвращает позицию первой подстроки Substr в строке S (или 0 если подстрока не найдена) Pos(ба,барабан) = 1 Pos(ли, поезд) = 0 function IntToStr (Value: Integer): String; преобразует целое число Value к строке IntToStr(87) = 87 IntToStr(-3) = -3 Часть 2/3

Строковые функции Имя и параметры ДействияПримеры function StrToInt (S: String): Integer; преобразует строку S в целое число. Если преобразование невозможно, то возникает ошибка времени выполнения StrToInt(-43) = - 43 StrToInt(1w9) = function FloatToStr (Value: Extended): String; преобразует вещественное число Value к строке FloatToStr(-9.21) = -9,21 FloatToStr(4.0) = 4 function StrToFloat (S: String): Extended; преобразует строку S в вещественное число. Если преобразование невозможно, то возникает ошибка времени выполнения StrToFloat(-8.1) = -8,1 StrToFloat(6.4;) = Часть 3/3

Функции ввода/вывода данных Имя и параметры ДействияПримеры function InputBox (ACaption, APrompt, ADefault: String): String; выводит окно с заголовком ACaption, текстом сообщения APrompt для ввода данных (ADefault - по умолчанию) InputBox('9 класс', 'Введите тему:', 'Функции'); function MessageDlg (Msg: String; DlgType: TMsgDlgType; Buttons: TMsgDlgButtons; HelpCtx: Longint): Integer; выводит окно с текстом сообщения Msg; результатом будет какая кнопка нажата. TMsgDlgType = (mtWarning, mtError, mtInformation, mtConfirmation, mtCustom); TMsgDlgBtn = (mbYes, mbNo, mbOK, mbCancel, mbAbort, mbRetry, mbIgnore, mbAll, mbNoToAll, mbYesToAll, mbHelp); MessageDlg('Текст сообщения', mtInformation, [mbYes, mbNo, mbAbort], 0); Часть 1/2

Функции ввода/вывода данных Имя и параметры ДействияПримеры function MessageBox (hWnd: HWND; lpText, lpCaption: PChar; uType: Cardinal): Integer; выводит окно с заголовком IpCaption, текстом сообщения IpText; результатом будет какая кнопка нажата. uType: MB_OK, MB_OKCANCEL, MB_ABORTRETRYIGNORE, MB_YESNOCANCEL, MB_YESNO, MB_RETRYCANCEL, MB_ICONHAND, MB_ICONQUESTION, MB_ICONEXCLAMATION, MB_ICONASTERISK, MB_USERICON MessageBox(0, Нажми на кнопку', Привет!', MB_OK); Часть 2/2

Функции даты и времени Имя и параметры ДействияПримеры function Date : TDateTime; возвращает значение текущей даты Date = function Time : TDateTime; возвращает значение текущего времени Time = 0, function Now : TDateTime; возвращает значения текущей даты и времени Now = 40928, function DateToStr (DateTime: TDateTime): String; возвращает значение даты DateTime в строковый тип DateToStr( ) = DateToStr(0) = function TimeToStr (DateTime: TDateTime): String; возвращает значение времени DateTime в строковый тип TimeToStr( ) = 17:07:34 TimeToStr(0) =0:00:00 Часть 1/4 TDateTime = real

Функции даты и времени Имя и параметры ДействияПримеры function DateTimeToStr (DateTi me: TDateTime): String; возвращает значение даты и времени DateTime в строковый тип DateTimeToStr( ) = :07:34 DateTimeToStr(0) = :00:00 function DayOfWeek (DateTime: TDateTime): Word; возвращает день недели даты DateTime. 1 – воскресенье 2 – понедельник … 7 – суббота DayOfWeek( ) = 6 function EncodeDate (Year, Month, Day: Word): TDateTime; возвращает дату из числа Day, месяца Month, года Year в вещественный тип EncodeDate(2012, 1, 20) = Часть 2/4

Функции даты и времени Имя и параметры ДействияПримеры function EncodeTime (Hour, Min, Sec, MSec: Word): TDateTime; возвращает время из часа Hour, минуты Min, секунды Sec, миллисекунды MSec в вещественный тип EncodeTime(17, 7, 34, 46) = 0, procedure DecodeDate (DateTime: TDateTime; var Year, Month, Day: Word); возвращает число Day, месяц Month, год Year из даты DateTime DecodeDate( , y, m, d); y = 2012 m = 1 d = 20 procedure DecodeTime (DateTime: TDateTime; var Hour, Min, Sec, MSec: Word); возвращает час Hour, минуту Min, секунду Sec, миллисекунду MSec из времени DateTime DecodeTime( , h, m, s, ms); h = 17; m = 7 s = 34; ms = 46 Часть 3/4

Функции даты и времени Имя и параметры ДействияПримеры function TryEncodeDate (Year, Month, Day: Word; out Date: TDateTime): Boolean; проверяет, есть ли дата по заданным числу Day, месяцу Month, году Year, и возвращает дату Date TryEncodeDate(2012, 1, 20, d) = true d = TryEncodeDate(2012, 2, 31, d) = false function TryEncodeTime (Hour, Min, Sec, MSec: Word; out Time: TDateTime): Boolean; проверяет, есть ли время по заданным часу Hour, минуте Min, секунде Sec, миллисекунде MSec, и возвращает время Time TryEncodeTime(17, 7, 34, 46, t) = true t = 0, TryEncodeTime(24, 0, 0, 0, t) = false function IsLeapYear (Year: Word): Boolean; проверяет, високосный ли год Year IsLeapYear(2000) = true IsLeapYear(2001) = false Часть 4/4