Подпрограммы

числа подпрограмм, включенных в основную программу.
Подпрограмма – это самостоятельная

программная единица (блок), оформленная по определенным правилам.
В виде подпрограмм могут оформляться повторяющиеся фрагменты программы, либо не повторяющиеся, но представляющие собой логически целостные вычислительные блоки.

Подпрограммы

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

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

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

могут определяться локальные переменные, которые используются только в теле подпрограммы.
Переменные, объявленные в основной программе, являются глобальными и могут использоваться в любой точке программы, в том числе и в подпрограмме.
Процедуры и функции. Подпрограммы бывают двух видов – процедуры и функции. Отличаются они тем, что процедура просто выполняет группу операторов, а функция вдобавок возвращает (передает) вычисленное значение в основную программу. Поэтому функция имеет определенный тип.

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

Различают формальные и фактические параметры.
Формальные параметры указываются в списке заголовка подпрограммы. Они нужны только для описания тела подпрограммы.
Фактические параметры (конкретные значения) указываются при обращении к подпрограмме.
Формальные параметры должны быть согласованы с фактическими по количеству, типу и порядку следования.
При выполнении подпрограммы каждый формальный параметр заменяется на соответствующий ему фактический параметр.

на плоскости координатами его вершин: A(xA, yA), B(xB, yB), C(xC,

YC).
Решение
Периметр треугольника вычисляется по формуле:
P = AB + BC + CA, где
AB, BC,CA – длины сторон треугольника.
Вычисление длины одной стороны треугольника оформим подпрограммой-функцией, используя формулу вычисления расстояния между двумя точками.


Подпрограмме-функции зададим имя ДЛИНА.
В список формальных параметров включим имена переменных x1, x2, y1, y2.

(x1, y1, x2, y2)


ДЛИНА := d
Конец функции



Function

Dlina (x1, y1, x2, y2: real):real;
var
d: real;
begin
d:=sqrt(sqr(x2 – x1) + sqr(y2 – y1));
Dlina:= d;
end;

включается в состав выражения в качестве операнда.
Блок-схема основной программы
Начало
P

:= ДЛИНА(xA, yA, xB, yB) +
ДЛИНА(xB, yB, xC, yC) +
ДЛИНА(xC, yC, xA, yA)

Конец

Ввод координат вершин
xA,yA,xB,yB,xC,yC

Вывод P

Переменные xA, yA, xB, yB, xC,yC
являются фактическими параметрами - аргументами функции.

Для вычисления длин сторон треугольника AB, BC и СА надо три раза обратиться к подпрограмме-функции ДЛИНА, передав ей значения соответствующих фактических аргументов.

yA, xB, yB, xC, yC
P := ДЛИНА(xA,yA,xB,yB)+

ДЛИНА(xB,yB,xC,yC)+
ДЛИНА(xC,yC,xA,yA)
Вывод P
Конец программы

Функция ДЛИНА (x1, y1, x2, y2)

ДЛИНА := d
Конец функции

xA, yA, xB, yB, xC, yC, P: real;

Begin
writeln (‘ Введите координаты вершин’);
read (xA, yA, xB, yB, xC, yC);
P := Dlina(xA,yA,xB,yB)+
Dlina (xB,yB,xC,yC)+
Dlina (xC,yC,xA,yA);
writeln (‘Периметр P=’, P:6:2);
End.

Function Dlina (x1, y1, x2, y2: real):real;
var
d: real;
begin
d:=sqrt(sqr(x2 – x1) + sqr(y2 – y1));
Dlina:= d;
end;

присваивается формальной переменной и заменяется на фактическую переменную. В связи

с этим в списке формальных параметров различают входные и выходные переменные.
Значения входных переменных, также как и в подпрограмме- функции, передаются из основной программы через список фактических параметров.
Значение выходной переменной (результат выполнения процедуры) через фактическую переменную возвращается в основную программу.
Еще одно отличие процедуры от функции заключается в следующем. Результатом выполнения функции является одно значение, которое присваивается имени функции. В процедуре в качестве результата может быть несколько значений.
Процедура может не иметь параметров, если для ее выполнения используются глобальные переменные.

подпрограммы-процедуры





Блок-схема
Псевдокод
Турбо-Паскаль
ДЛИНА(вх. перем: x1, y1, x2, y2; вых. перем: d

)

Конец процедуры

Процедура ДЛИНА (вх. перем: x1, y1, x2, y2; вых. перем: d )


Конец процедуры

Procedure Dlina (x1, y1, x2, y2: real; var d:real);
begin
d:=sqrt(sqr(x2 – x1) + sqr(y2 – y1));
end;

помощью специального оператора вызова процедуры.
Блок-схема основной программы
Начало
P := AB

+ BC + CA

Конец

Ввод координат вершин
xA,yA,xB,yB,xC,yC

Вывод P

ДЛИНА(xA, yA, xB, yB, AB)

ДЛИНА(xB, yB, xC, yC, BC)

ДЛИНА(xC, yC, xA, yA, CA)

Три блока вызова процедуры

yA, xB, yB, xC, yC
ДЛИНА(xA, yA,

xB, yB, AB)
ДЛИНА(xB, yB, xC, yC, BC)
ДЛИНА(xC, yC, xA, yA, CA)
P := AB + ВC + CA
Вывод P
Конец программы

Процедура ДЛИНА (вх. перем: x1, y1, x2, y2; вых. перем: d )


Конец процедуры

xA, yA, xB, yB, xC, yC, AB, BC,

CA, P: real;





Begin
writeln (‘ Введите координаты вершин’);
read (xA, yA, xB, yB, xC, yC);
Dlina(xA, yA, xB, yB, AB);
Dlina (xB, yB, xC, yC, BC);
Dlina (xC, yC, xA, yA, CA);
P := AB + BC + CA;
writeln (‘Периметр P=’, P:6:2);
End.

Procedure Dlina (x1, y1, x2, y2: real; var d:real);
begin
d:=sqrt(sqr(x2 – x1) + sqr(y2 – y1));
end;

Ответ:

Переменная Analiz в основной программе после выполнения оператора присваивания:
Analiz :=

Graphic(x,0) – Graphic(x,1) + Graphic(x,2);
при x=0 примет значение….

?

Analiz = –1