Лекция 11. Процедуры и функции ТР (Подпрограммы)

функции - логически самостоятельные
фрагменты программы, оформленные специальным
образом и снабжённые

на несколько задач, меньших по объёму.
Метод нисходящего проектирования.
Примеры вызова процедур:

Clrscr;

Примеры вызова функций:
Y:= sin(x)+Abs(x-9) +2; z:= sqrt(cos(x)+3);

параметров);

begin

end;
Функция:
Function ИМЯ_фун (список формальных параметров):

список форм. параметров может отсутствовать

(имя : тип).
Параметр – переменная (var имя : тип).
Константы.
Нетипизированные

Для каждого параметра задаются:
имя, тип и способ передачи.

Пример:
Procedure Prima (n : integer; Var x : real; Const b : byte)

на место n можно подставлять выражение совместимого типа;
При вызове Prima передаётся значение, хранящееся по адресу n.

программе. Время жизни глобальных переменных — с начала программы и

место параметра – переменной
следует подставить фактический параметр в виде
переменной

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

word;

procedure Smile (a, b, c : word ; var d

Ответ:
с= 8 d=16 e=4
c= 0 d=16 e=0

Что будет выведено на экран в результате выполнения программы

Prim(d+a, c, x);
Prim(x, ’c’,

Procedure Prim(a:real; b:char; var c:real);

Заголовок процедуры имеет вид:

Переменные в вызывающей программе описаны так:

Var a : integer; b, c : char; d, x : real;
Какие из перечисленных ниже вызовов процедуры правильные?

1 – err

2 – right

3 – right

4 - err

программу, которая проверяет, существует ли треугольник с такими сторонами, и

Вводим числа a, b, c.
Если все они положительные и для любого из них выполняется неравенство треугольника : X< Y+Z, то можно вычислять площадь, иначе программа останавливается.
S=sqrt(p*(p-a)*(p-b)*(p-c)); где p=(a+b+c)/2.

Tst(x,y,z:real):boolean;
begin
if(x>0)and (y>0) and (z>0) and (x

треугольника a,b,c=');
readln(a,b,c);

if (Tst(a,b,c)) then
begin

Procedure BD(a : array[1..10] of real)
Можно так:
Type amas = array

Можно передавать ОТКРЫТЫЕ МАССИВЫ
( без указания верхней границы массива)
Procedure OPN(axx : array of integer);
Функция HIGH(axx) возвращает максимальный индекс
массива axx; минимальный = 0.

Или так:
Const n=30
Type amas = array [1..n] of real; ……..
Procedure GD(a:amas);

двух
заданных векторов. Результат вывести на экран.

of real;
Var u,v,w : vect;

Procedure cross_p(a,b:vect; var c:vect);

a:vect);
begin
write(' Input Vector ', s ,' =');
read(a[1],

указываются аргументы, то есть те конкретные величины, которые передаются в

параметры-значения и параметры-константы. Параметры составных типов (массивы, записи, строки) предпочтительнее

string;
Procedure U(a:char; var d:char); begin a := ‘р’ ; d:=

var a,b,c,d : integer;
Procedure W(a : integer; var c : integer; var d: integer); begin a := 5 ; c:= 7; b:= 13; end;
begin a := 1 ; b:= 2; c:= 0;
W(b,a,c); write (a, ‘|’, b, ‘|’, c) end.

Ответ : 7| 13 | 0

включающая в себя различные компоненты раздела описаний – Type, Const,

совпадать с именем файла, в котором он хранится (расширение .pas)
Для

{ интерфейсная секция модуля }
{ описание глобальных элементов модуля

типы данных, переменные, а также заголовки процедур и функций.
В секции

real end;
Procedure AddC( x,y : complex; var z : complex);
Procedure

к возможностям ОС (файлы, время …)
CRT – для работы

динамиком в текстовом режиме.
Основные процедуры и функции:

KeyPressed : Boolean =

While Keypressed Do s:=ReadKey;
end.
Как очистить БК?
Определить расширенный код

Program Exmp02;
Uses Crt;
Var s : char ;
begin repeat s := ReadKey;
if ( s<>#0) then writeln ( ord(s)) else
writeln (‘0’,ord (readKey) : 8) until s=#27 ;
end.

текстовый режим
В качестве Mode можно задать
BW40 = 0;

: byte;
Const Col : array [1..15] of string[16]

x2, y2 : byte) – задаёт область экрана для

GotoXY( x, y : byte) – перевод курсора в позицию (x,y)

WhereX , WhereY – текущие координаты курсора

Звук : Sound(F: word), F – частота в Гц
Delay(t : word), t - задержка выполнения
программы в мс
NoSound отключить звук

byte;
begin
TextBackGround(2);
ClrScr; x:=5; y:=10; Delay(1000);
for i := 1 to 30 do

Program CompBar;
Uses CRT; var k : byte;
begin
TextMode(Co80);
TextBackGround(2);
ClrScr; x:=5; y:=10; Delay(1000);
for

программе (графические режимы, процедура InitGraph);
Основные процедуры и функции для работы

режиме. Экран представляется в виде совокупности точек, или пикселов (=

Для определения положения пиксела вводится система
координат : её начало – в левом верхнем углу и имеет
координаты (0 ; 0).
Количество точек по осям (=РАЗРЕШЕНИЕ ЭКРАНА)
и доступные цвета определяются графическим режимом,
который устанавливается спец. программой – графическим
драйвером.

заданным цветом и стилем;
Закрашивание областей заданным цветом и шаблоном;
Вывод текста

Uses Graph;
Перевести экран в графический режим: процедура InitGraph;
Установить параметры изображения;
Вывести

графическим устройством (монитором). Имеют расширение «bgi»

: String);

Driver – определяет тип графического драйвера;

Можно ( и нужно !) определять тип драйвера автоматически.
Это делается так:
Driver := detect;
InitGraph(Driver, Mode, ‘d:\TP7\ALLBGI’);

ошибки при выполнении графической операци; ( grOk=0)
CloseGraph – завешает работу

координаты

цвет линий и

word) – рисуем точку (х,у)

var Points) – N –количество точек;

текущим

…..
X:=GetMaxX div 6; Y := GetMaxY div 5;
For j :=1 to 2 do
for k := 0 to 3 do begin
Rectangle( (k+1)*x, (j+1)*y, (k+2)*x, (j+2)*y);
SetFillStyle( k+j*4, j+1) ;
Bar ((k+1)*x+1, (j+1)*y+1, (k+2)*x-1, (j+2)*y-1))
end;

Пример (фрагмент программы)

x2, y2, Depth: integer; Top : Boolean);
FillPoly(N : Word; var

FloodFill(x ,y, BorderColor) – заполняет любую замкнут. фигуру

.

Font – номер шрифта; (0 .. 10)
Direct –

размер

р
а
з
м
е
р

4; y := GetMaxY div 4;
Rectangle (x, y, 3*x,

Detect;
pole = 20;
var grMode

y2) - возвращает размер памяти

изображение используем
динамическую память:

Пример (фрагмент программы):
var Buf : Pointer;
…

глаза от отражающего или излучающего объекта.
Цветовые рецепторы делятся на три

= Cyan
W – G = R+B = Magenta
W –

Модель CMYK

память условно разделена на сегменты. Адрес каждого байта составляется из

Сегмент стека

Сегмент данных

Сегмент кода

Динамическая память

называются указателями.
В указателе можно хранить адрес данных или адрес

в куче) во время выполнения программы.
Обращение к ДП осуществляется

p2;
проверки на равенство и неравенство:
if p1 =

Правила присваивания указателей
Любому указателю можно присвоить стандартную константу nil, которая означает, что указатель не ссылается на какую-либо конкретную ячейку памяти:
p1 := nil;
Указатели стандартного типа pointer совместимы с указателями любого типа.
Указателю на конкретный тип данных можно присвоить только значение указателя того же или стандартного типа.

которой хранится в указателе:

var p1: ^word;
…
p1^ := 2;

2

w : word;
pw : ^word;
...
pw

5

возвращает адрес сегмента для х;
ofs(x) : word — возвращает смещение для

us,ut:word;
begin
write(‘ввод w, a='); readln(w,a);
pw:=@w;
pq:=addr(a);

writeln(' a-w =',pq^ - pw^);
readln;
pw:=pq;
writeln('pw^ -pq^ = ',pw^-pq^);
new(pw);
new(pq);
pw^:=-25;
pq^:=60;
writeln('pw+pq=', pw^+pq^);
readln;
dispose(pw);
dispose(pq);
end.

программы с помощью подпрограмм NEW или GetMem:

Процедура new( var p : тип_указателя )

record
d : word;
s : string;

...
new(p1);
p2 := new(pword);
new(p3);

p3^.d := p1^+2;

p3^.s := ‘Биолог';
Динамические переменные можно использовать

inc(p1^);

p2^ := p1^ + p3^.d;

with p3^ do writeln (d, s);

Это приводит к появлению мусора (обозначен овалом), когда доступа к

выделенный процедурой New.

Процедура Freemem(var p : pointer; size : word)
освобождает участок памяти размером size, начиная

организации данных, при котором память
распределяется во время работы программы

ДС описывается в виде записи.
Пример:
type
pnode = ^node;
node = record

d

s

p

out.
type pnode = ^node;

Для работы со стеком используются две статические переменные:
- указатель на вершину стека;
- вспомогательный указатель:

2;
p^.s := ‘Бабка’;
3. p^.p := top;
4. top

with top^ do write(d,s);
p:=top; top := top^.p ;
dispose(p);

Выборка из стека.

первого элемента
Добавление элемента в конец очереди;
Выборка элемента
Принцип FIFO = first

node=record

then fin=nil;

элемента с заданным ключом;
вcтавка элемента в заданное место списка;
удаление элемента

Каждый элемент ЛС связан со следующим и, возможно,
предыдущим. Каждый элемент ЛС содержит ключ –
это часть поля данных. Ключ идентифицирует элемент.

Можно выполнять следующие операции:

линейного списка.
При чтении элемент ЛС не удаляется.
Для работы с ЛС

p:pe end;
Var plm,beg: pe;

If (ch='y') or (ch='Y') then
begin New(plm^.p);
plm:= plm^.p end
else plm^.p:=nil
end;
writeLn(‘Читаем список =');
plm:=beg; N:=1;
repeat
writeln(N, ':', plm^.t:8:3);
plm:=plm^.p;
Inc(N);
until plm=Nil;
end.

type pnode = ^node;
node =

данные и
подпрограммы для их обработки.
Объект – совокупность данных, характеризующих

Данные = поля

Процедуры= методы

ИНКАПСУЛЯЦИЯ

наследует все поля и методы родителя.
Можно дополнять существующие поля

Можно создавать иерархии объектов.
Объект может иметь только одного предка и несколько
потомков.

Важное значение имеет возможность многократного
использования кода. Для объекта можно определить
наследников, корректирующих или дополняющих его
поведение.

программы.
Во многом это обеспечивается благодаря полиморфизму, под которым понимается

предметной области;
возможность успешно управлять большими объемами исходного кода благодаря инкапсуляции,

использованием виртуальных методов;
идеи ООП не просты для понимания, в особенности