Зарезервированные слова и директивы

Таблица П1.1. Зарезервированные слова

and

file

not

then

array

for

object

to

asm

function

of

type

begin

goto

or

unit

case

if

packed

until

const

implementation

procedure

uses

constructor

in

program

var

destructor

inherited

record

while

div

inline

repeat

with

do

intenface

set

xor

downto

label

shl

else

mod

shr

end

nil

string

Таблица П1.2. Директивы

absolute

far

near

virtual

assembler

forward

private

external

interrupt

public

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

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

unit ИмяМодуля;

interface // раздел интерфейса

{ Здесь находятся описания процедур и функций модуля, которые могут использоваться другими модулями, } const // раздел объявления констант

{ Здесь находятся объявления глобальных констант модуля, которые могут использоваться процедурами и функциями модуля,} type // раздел объявления типов

{ Здесь находятся объявления глобальных типов модуля, которые могут использоваться процедурами и функциями модуля } var // раздел объявления переменных

{ Здесь находятся объявления глобальных переменных модуля, которые могут использоваться процедурами и функциями модуля } incrémentation // раздел реализации

{ Здесь находятся описания (текст) процедур и функций модуля} end.

Основные типы данных

К основным типам данных Pascal относятся:

Целые числа (integer) Дробные числа (reai) Символы (char) Строки (string) Логический тип (boolean) Целые числа и числа с плавающей точкой могут быть представлены в различных форматах.

Таблица П1.3. Целые числа.

Формат

Диапазон

Shortint

-128..127

Integer

-32 768..32 767

Longint

-2 147 483 648..2 147 483 647

Byte

0..255

Word

0..65 535

Таблица П1.4. Числа с плавающей точкой

Формат

Диапазон

Значащих цифр

Real

2,9e-39 .. 1,7e38

11-12

Single

1,5e-45 .. 3,4e38

7-8

Double

5,0e-324 .. 1,7e308

15-16

Extended

3,4e-4932 .. 1,1e4932

19-20

Строки

Объявление переменной-строки длиной 255 символов:

Имя:string;

Объявление переменной-строки указанной длины.

Имя:string[ ДлинаСтроки ];

Массив

Объявление одномерного массива:

ИмяМассива: array [НижнийИндекс...ВерхнийИндекс] of ТипЭлементов;

Объявление двумерного массива:

ИмяМассива: array [НижнийИндекс1..ВерхнийИндекс1, НижнийИндекс2. .ВерхнийИндекс2] of ТипЭлементов;

Запись

Вариант 1.

ПеременнаяЗапись: record

Полеї:Типі;
Поле2:Тип2;
ПoлeJ: TnnJ;
end;

Вариант 2.

type ИмяТипаЗаписи = record Полеї:Типі; Поле2:Тип2;
Поле J: TnnJ;
end;
var
ПеременнаяЗапись: ИмяТипаЗаписи;

Сначала объявляется тип записи, затем - переменная-запись.

Инструкции выбора Инструкция if

Вариант 1.

if Условие then
begin
{ Инструкции, которые выполняются, } { если условие истинно. }
end else
begin
{ Инструкции, которые выполняются, } { если условие ложно } end;

Вариант 2.

if Условие then
begin
{ Инструкции, которые выполняются, } { если условие истинно. } end;

Если между begin и end находится только одна инструкция, то слова begin и end можно не писать.

Инструкция case

Вариант 1.

case Выражение of

Список1_Констант: begin
{ инструкции } end;
Список2_Констант: begin
{ инструкции } end;
СписокJ_KoHCTaHT: begin
{ инструкции } ends-end;

Вариант 2.

case Выражение of

Список1_Констант: begin
{ инструкции } end;
Список2_Констант: begin
{ инструкции } end;
Список ^Констант: begin
{ инструкции J} end;
else
begin
{ инструкции } end;
end;

Инструкции между begin и end выполняются, если значение выражения, записанного после case, совпадает с константой из соответствующего списка. Если это не так, то выполняются инструкции, находящиеся после else, между begin и end.

( Примечание j

Если между begin и end находится только одна инструкция, то слова begin и end можно не писать.

Циклы

Инструкция for Вариант 1 (с увеличением счетчика).

for Счетчик:=Яа чальноеЗначение to КонечноеЗначение do begin
{ здесь инструкции }
end;

Инструкции между begin и end выполняются (конечноеЗначение - Начальное-Значение) + 1 раз.

Если НачальноеЗначение > КонечноеЗначение, ТО инструкции между begin И end не ВЫПОЛНЯЮТСЯ.

( Примечание J

Если между begin и end находится только одна инструкция, то слова begin и end можно не писать.

Вариант 2 (с уменьшением счетчика).

for Счетчик:=ЯачальноеЗначение downto КонечноеЗначение do begin
{ здесь инструкции } end;

Инструкции между begin И end ВЫПОЛНЯЮТСЯ (НачальноеЗначение - КонечноеЗначение) + 1 раз.

Если На чальноеЗна чение < КонечноеЗна чение, то инструкции между begin и end не выполняются.

Примечание J

Если между begin и end находится только одна инструкция, то слова begin и end можно не писать.

Инструкция repeat

repeat
{ инструкции } until Условие;

Сначала выполняются инструкции цикла, которые расположены между repeat и until. Затем вычисляется значение выражения Условие, и если оно равно False, то инструкции цикла выполняются еще раз. И так до тех пор, пока значение выражения Условие не станет равным True.

Инструкция while

while Условие do begin
{ инструкции } end;

Сначала проверяется Условие, если оно истинно, то выполняются инструкции между begin и end. Затем снова проверяется Условие. Если оно выполняется, то инструкции цикла выполняются еще раз. И так до тех пор, пока Условие не станет ложным.

( Примечание J

Если между begin и end находится только одна инструкция, то слова begin и end можно не писать.

Безусловный переход Инструкция GoTo

GoTo Метка;

Инструкция осуществляет переход к инструкции, перед которой стоит Метка. Метка должна быть объявлена в разделе label.

Объявление функции

function ИмяФункции(var Параметр!:Тип!;
var Параметр2:Тип2;
var Параметр J: TnnJ) : Тип;
const

{ описание констант } var { описание переменных } begin { инструкции функции } Result:=3начение; endsСлово var ставится перед именем параметра в том случае, если параметр используется для возврата значения из функции в вызывающую ее программу.

Объявление процедуры

procedure ИмяПроцедуры(var Параметр!:Тип1;
var Параметр2:Тип2;
var Параметр J: ТипЗ) ;
const
{ описание констант }
var
{ описание переменных } begin
{ инструкции процедуры } end;

Слово var ставится перед именем параметра в том случае, если параметр используется для возврата значения из функции в вызывающую ее программу.

Стандартные функции и процедуры

При описании функций и процедур приняты следующие обозначения:

Имена функций и процедур выделены полужирным.

Формальные параметры изображены курсивом. В качестве параметра могут использоваться константы, переменные или выражения соответствующего типа. Если параметром обязательно должна быть переменная, то перед ним поставлено слово var. После параметра через двоеточие указывается его ТИП.

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

Таблица П1.5. Математические функции

Abs(Выражение)

Абсолютное значение аргумента

(целый или вещественный тип)

Sqr(Выражение)

Квадрат аргумента

(целый или вещественный тип)

Sqrt(Выражение:real):real

Квадратный корень аргумента

Sin(Выражение:rea1):геа1

Синус

Cos(Выражение:real):real

Косинус

Arctan(Выражение:real):real

Арктангенс

Exp(Выражение:rea1):rea1

Экспонента

Ln(Выражение:real):real

Натуральный логарифм

Таблица П1.6. Преобразования

Int(Выражение:rea1):геа1

Целая часть

Trunc(Выражение:real):longint

Целая часть

Round(Выражение:real):longint

Округление к ближайшему целому

IntToStr(Выражение)

Преобразование числового выражения цело-

го типа в строку

FloatToStr(Выражение)

Преобразование вещественного числа в его

изображение

FloatToStrF(Выражение,

Преобразование вещественного числа в его

Формат,

изображение с возможностью выбора спосо-

Точность,

ба изображения

КоличествоЦифр)

Таблица П1.6 (окончание) strToint{Строка:string) Преобразование строки, изображающей целое или вещественное число, в число

strToFloat{Строка:string) Преобразование строки, изображающей вещественное число, в число

Таблица П1.7. Работа со строками и символами

Concat{Строка!:string,

Объединение нескольких строк

СтрокаЫ: string):string

в одну

Copy(Строка:st ring,НомерСимвола:integer,

Выделение подстроки

Длина .-integer) : string

Delete(va г Строка:s rt ing,

Удаление части строки

НомерСимвола:integer, Кол-во:integer)

Length{Строка:string):integer

Длина строки

Pos(Строка:string,Подстрока:string):byte

Позиция подстроки в строке

Chr(КодСимвола:byte)

Символ с указанным кодом

ПРИЛОЖЕНИЕ 2

Заключение || Оглавление || Кодировка символов в Windows


Delphi 6. Программирование на Object Pascal



Новости за месяц

  • Ноябрь
    2018
  • Пн
  • Вт
  • Ср
  • Чт
  • Пт
  • Сб
  • Вс