Программирование с использованием подпрограмм

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

Процедура

Функция

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

данных.
procedure (; var: );
begin

end;
Для вызова

Выходные параметры

Входные параметры: переменные, константы, выражения

var c: integer);
begin
while ab do
if a>b then

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

nod (36, 15, z)

nod (x, y, z)

в качестве параметров-значений
использованы имена переменных

nod (x+ y, 15, z)

в качестве параметров-значений
использованы выражение и константа

!

64, 80, 128);
var I, x, y, z: integer;
procedure nod (a,

Раздел описания операторов
главной программы

Раздел описания
подпрограммы

Заголовок главной программы

Описание констант

Раздел описания переменных

Программа с процедурой

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

В блоке функции обязательно должен присутствовать оператор <имя_функции>:=<результат>.

Перечень формальных параметров и их типов

Тип результата

!

Для вызова функции достаточно указать её имя со списком фактических параметров в любом выражении, в условиях, (после слов if, while, until) или в операторе write главной программы.

c, d, f: integer;
function max (x, y: integer): integer;
begin
if

Заголовок главной программы

Описание переменных

Раздел
описания
подпрограммы

Раздел операторов
главной программы (поиск максимального из 4-х чисел)

месяца они дали первый приплод - новую пару кроликов, а

Каждая новая пара также даёт первый приплод (пару кроликов) через два месяца, а затем - по паре кроликов каждый месяц. Сколько пар кроликов будет у Саши в декабре?

Числа 1, 1, 2, 3, 5, 8, … образуют так называемую последовательность Фибоначчи, названную в честь итальянского математика, впервые решившего соответствующую задачу ещё в начале XIII века.

n.
По условию задачи:
f(1) = 1,
f(2) = 1,
f(3)

Из двух пар, имеющихся в марте, дать приплод в апреле сможет только одна: f(4) = 3.
Из пар, имеющихся в апреле, дать приплод в мае смогут только пары, родившиеся в марте и ранее:
f(5) = f(4) + f(3) = 3 + 2 = 5.
В общем случае:
f(n)= f(n –1)+ f(n – 2), n >= 3.

then f:=1
else f:=f(n-1)+f(n-2)
end;
Полученная функция рекурсивная - в ней реализован

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

и функций?
Напишите программу вычисления наименьшего общего кратного следующих четырёх чисел:

Напишите программу перестановки значений переменных a, b, с в порядке возрастания, т. е. так, чтобы a < b < c. Используйте процедуру swap.
procedure swap (var x, y: integer);
var m: integer;
begin
m:=x;
x:=y;
y:=m
end;
Исходные данные вводятся с клавиатуры.

Напишите программу поиска наибольшего из четырёх чисел с использованием подпрограммы поиска наибольшего из трёх чисел.

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

Напишите программу вычисления выражения:
s =1!+2!+3!+…+ n!
Используйте функцию вычисления факториала.

Напишите программу вычисления выражения:
s = x3 + x5 + xn,
где x и n вводятся с клавиатуры.
Используйте функцию вычисления степени.

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

Напишите функцию, вычисляющую площадь треугольника по целочисленным координатам его вершин.
С помощью этой функции вычислите площадь четырёхугольника по координатам его вершин.

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

Процедура

Функция

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