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

Подпрограммой называется участок программы, оформленный определенным образом, к которому можно обращаться из разных точек программы любое число раз. При этом подпрограмма может решать каждый раз одну и ту же задачу с разными значениями исходных данных.
ГЛАВНАЯ
Подпрограмма

Подпрограмма – повторяющая группа операторов, оформленная в виде самостоятельной программной единицы.
ГЛАВНАЯ
Подпрограмма 1
Подпрограмма 2
Подпрограмма 3

В языке Pascal механизм подпрограмм реализуется в виде ПРОЦЕДУР (PROCEDURE) и ФУНКЦИЙ (FUNCTION)
Процедура
Функция
Подпрограмма

Подпрограммы ПРОЦЕДУРЫ (PROCEDURE)

Общий вид структуры подпрограммы
Program pr;
Var a,b:integer;
Рrосеdurе <имя> (формальные параметры);
VAR (описание локальных параметров, они могут быть или не быть)
begin
тело процедуры
end;
BEGIN
<имя> (Фактические параметры)
END.

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

Пример
Составить программу сложения 2-х чисел
Program pr;
Var a,b,s:real;
Procedure summa(x,y:real; var s:real);
Begin
S:=x+y;
End;
Begin
Writeln(‘сложить 2 числа’);
Summa(a,b,s);
Writeln(‘s=’,s);
End.
фактические
формальные
параметры-значений, входные, при выходе не сохраняются
параметры-переменные, выходные, при выходе сохраняются

Формальные и фактические параметры должны совпадать
по 3 признакам:

Вывести на экран 5 строк примерно такого текста:
Привет, Катя! Поздравляю тебя с новым годом!
Привет, Таня! Поздравляю тебя с новым годом!
Привет, Вася! Поздравляю тебя с новым годом!
Привет, Коля! Поздравляю тебя с новым годом!
Привет, Боря! Поздравляю тебя с новым годом!
В программе использовать процедуру для вывода текста.

program primer;
var s: string;
procedure ok;
begin
writeln (‘Привет’, s,’! Поздравляю тебя с новым годом! ’);
end;
begin
s:=‘Катя’;
ok;
s:=‘Таня’;
ok;
s:=‘Вася’;
ok;
s:=‘Коля’;
ok;
s:=‘Боря’;
ok;
end.

Подпрограммы ФУНКЦИИ (FUNCTION)

Функции
function <имя_функции> (<описание входных данных>): <тип_функции>;
begin
<операторы>;
<имя_функции> := <результат>
end;
Функция - подпрограмма, имеющая единственный результат, записываемый в ячейку памяти, имя которой совпадает с именем функции.
В блоке функции обязательно должен присутствовать оператор <имя_функции>:=<результат>.
Перечень формальных параметров и их типов
Тип результата
!
Для вызова функции её имя со списком параметров может быть в любом месте программы(в выражении, в условиях, в операторе write).

Функция поиска максимального из 2-х
program n_20;
var a, b, c, d, f: integer;
Function max(x,y:integer):integer;
begin
if x>y then max:=x
else max:=y;
end;
begin
readln (a, b, c, d);
f:=max(max(a, b),max(c, d));
writeln ('f=', f);
end.
Описание переменных
Раздел
описания
Под-
программы
Раздел операторов
главной
программы

Найти , используя подпрограммы нахождения большего и меньшего из двух чисел.
Вспомогательные алгоритмы

program pr2;
var a, b, c, m: real;
function max(x, y: real): real;
begin
if x>y then max:=x else max:=y
end;
function min(x, y: real): real;
begin
if x
end;
begin
writeln(‘a=’); readln (a);
writeln(‘b=’); readln (b);
writeln(‘c=’); readln (c);
m:=(2*max(a, b)+min(a+3,b))/min(c,a-b);
writeln (‘max= ', m);
end.

Требуется найти разность факториалов F=M!-K!
PROGRAM 4;
VAR F,M,K:1NTEGER;
FUNCTION FACT(N:INTEGER):INTEGER;
VAR P, I:INTEGER;
BEGIN
P:=1;
FOR I =2 TO N DO
P=P*I;
FACT:=P;
END;
BEGIN
READ(M,K);
F:=FACT(M) - FACT(K);
WRITE (F)
END.
М=4
К=3

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

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

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

Подпрограммы ФУНКЦИИ (FUNCTION)

Подпрограммы ПРОЦЕДУРЫ (PROCEDURE)