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

Алгоритмы входящие в состав другого алгоритма называют вспомогательным.

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

Процедуры

Результат – любое число величин Описание :
Procedure <имя программы>[(список формальных параметров
]; <блок>
Обращение – оператор процедуры
<имя процедуры>{(список фактических параметров)}
Параметры подпрограмм
Параметры - переменные
Описание:
Var <список переменных>:<тип>
Фактические переменные:
переменные

Функции

Результат- одна величина Описание:
Function<имя функции> [(список формальных параметров ]:
<тип функции>; <блок>
Обращение - операнд выражения
<имя функции>(<список фактических параметров>)
Параметры подпрограмм
Параметры - значения
Описание :
<список переменных>:<тип>
Фактические переменные:
выражения

Задача

По координатам вершин треугольника вычислить его периметр, используя подпрограмму вычисления длины отрезка между двумя точками.
Формализация
Если точка A(x1;x2) и B(y1;y2) то

𝐴𝐵 = 𝑥1 − 𝑦1 2 − 𝑥2 − 𝑦2 2

Program perimetr1;
Var a1,a2,b1,b2,c1,c2,p:real;
Procedure dlina (x1,x2,y1,y2: real; var p:real);
begin
p:=p+sqrt(sqr(x1-y1)+sqr(x2-y2)); end;
begin
Write('Введите координаты точки A');
Read (a1,a2);
Write('Введите координаты точки B'); Read (b1,b2);
Write('Введите координаты точки С');
Read (c1,c2);
dlina (a1,a2,b1,b2,p);
dlina (a1,a2,c1,c2,p);
dlina (b1,b2,c1,c2,p);
Write ('Периметр равен',p:10:3); End.

Program perimetr2;
Var a1,a2,b1,b2,c1,c2,p:real;
Function pr (x1,x2,y1,y2: real):real;
begin
p:=p+sqrt(sqr(x1-y1)+sqr(x2-y2)); end;
begin
Write('Введите координаты точки A');
Read (a1,a2);
Write('Введите координаты точки B'); Read (b1,b2);
Write('Введите координаты точки С');
Read (c1,c2);
pr (a1,a2,b1,b2);
pr (a1,a2,c1,c2);
p:=pr(b1,b2,c1,c2);
Write ('Периметр равен',p:10:3); End.

Практическая работа №11:

Составить программу определения количества четных и нечетных цифр в записи данного
натурального числа?

Подсказка:
Сначала нужно отделить последнюю цифру. Потом проверить четная она или нечетная (использовать операцию mod).
Затем отбросить последнюю цифру (использовать операцию div). Процесс повторить.