Язык Object Pascal. Параметры процедурного типа. Пример задачи.

Процедурные типы дают гибкие средства передачи функций и процедур в качестве фактических параметров обращения к другим процедурам и функциям.

Type<имя>=procedure(<список формальных параметров>);

<имя>=function(<список формальных параметров>):<тип>;

<Имя> - процедурного типа.

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

Type proc1=procedure(a,b,c:real);

Proc2=procedure(var a,b:integer);

Proc3=procedure;

Func1=function(var s:string):real;

Func2=function:string;

Язык Object Pascal. Структура модуля пользователя. Пример задачи.

Модуль – это специально образованная оформленная библиотека определений типов, констант, процедур и функций. Автономно компилируется независимо от использующей его программы. Модуль имеет расширение .pas. Для подключения модуля к программе или к другому модуль используют директивуUses.

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

{Iзаголовок модуля}

Unit<имя модуля>;

{IIинтерфейсный раздел}

interface

Uses

Const

TypeОбъекты видимые пользовательской

Var

заголовок с перечислением параметров

{IIIраздел реализации}

implementation

Uses

Const

Type

Var

реализация процедур и функций.

{IVинициирующая часть}

Initialization

…

{Vзавершающая часть}

Finalization

End.

Интерфейсная часть содержит объявления всех глобальных объектов модуля, которые должны стать доступными основной программе и другим модулям. При объявлении подпрограммы в интерфейсной части указывается лишь их заголовок. В исполняемой части создаются описания подпрограмм, описанных в интерфейсной части, а также и локальных для модуля объектов, типов, констант, переменных, подпрограмм. В подпрограммах, описанных в интерфейсной части можно опускать список формальных параметрах (лучше этого не делать). IVиVчасть отсутствуют. ВIVчасти располагаются операторы, которые используются для передачи управления основной программе и обычно для подготовки её работы. Пример: инициализация переменных, открытие файлов.

В Vчасти указываются операторы, выполняющиеся после завершения основной программы. Пример: закрывающийся файл.

Если несколько модулей содержат IVчасти то эти части выполняются последовательно друг за другом в порядке перечисления модулей. В предложенииUsesзавершающей части вычисляется в обратном порядке, предложенииUsesв вызов программы.

Язык Object Pascal. Классификация типов данных. Строковый тип. Процедуры и функции обработки строк. Пример задачи.

Shortstring– последовательность символов из набора символов длиной не более 265 символов.

Тип Stringпохож на одномерный массив символов.

Var st:string[20];

(Array[1..20] of char;)

В строке st[1] – первый символ

St[2] – второй

St[0] – размер строки

St:=’’ – пустая строка

Writeln(st) – ничего не распечатается

Строки можно:

• Сцеплять знаком «+» (concat)

• Сравнивать (операции >, <, =) посимвольно, с учётом кодов символов

Если строки различные по длине, недостающие символы короткой строки заменяются символами с самым маленьким символом.

Функции обработки строк.

Concat (s1[, s2, s3, …, sn]):string;

S1,s2,sn– строки для сцепления.

Copy(st,index,count):string– копирует из строкиstcountэлементов, начиная с символаindex.

Length(st):integer– определяет длину строкиst.

Pos(subst,st):integer– отыскивает в строкеstпервое вхождение строкиsubstи возвращает номер позиции с которой она начинается. Если подстрока не найдена, возвращается «0».

Процедуры обработки строк.

Delete(st,index,count) – удаляетcountсимволов из строкиstначиная с символаindex.

Insert(subst,st,index) – вставляет подстрокуsubstв строкуstначиная с символаindex.

Str(x,st) – преобразует числоxтипаrealилиintegerв строку символовst.

Val(st,x,code) – преобразует строку символовstво внутреннее представление целого или вещественного числа х, параметрcode= 0, если преобразование прошло успешно, или принимает значение, равное позиции в строке ошибочного символа.