Подпрограммы 1 Определение подпрограммы. 2 Процедуры 3 Функции 4 Практическая работа. - презентация

1 Подпрограммы 1 Определение подпрограммы. 2 Процедуры 3 Функции 4 Практическая работа

2 ПОВТОРЕНИЕ: Структура программы. В стандартном Паскале программы имеют строгий формат : program Имя - программы; Label метки ; Const описание констант ; type определения типов данных ; var описание переменных ; procedure и functions ; begin основное тело программы end.

3 Подпрограммы В программировании часто встречаются случаи, когда по ходу выполнения программы приходится производить одни и те же вычисления, но при различных исходных данных. Чтобы исключить повторение одинаковых записей и сделать тем самым программу проще и понятнее, можно выделить эти повторяющиеся вычисления в самостоятельную часть программы, которая может быть использована многократно по мере необходимости. Использование подпрограмм позволяет применять один из самых прогрессивных принципов программирования – структурное программирование. Автономная часть программы, реализующая определённый алгоритм, и допускающая обращение к ней из различных частей программы, называется подпрограммой.

4 Основные положения: Подпрограмма оформляется в виде замкнутого участка программы, имеющей чёткий вход и выход. Имена переменных в основной программе и в подпрограммах независимы друг от друга. В языке Паскаль выделяют два вида подпрограмм: процедуры (PROCEDURE) и функции (FUNCTION). Любая программа может содержать несколько процедур и функций и в свою очередь процедуры могут содержать встроенные процедуры. Процедуры и функции объявляются в разделе описания вслед за разделом переменных.

5 Процедуры Любая процедура оформляется в аналогично программе, т.е. содержит заголовок, разделы описаний и операторов. PROCEDURE имя ( формальные параметры); раздел описаний BEGIN раздел операторов END; Допускается использование процедур без параметров. Раздел описания процедуры состоит из тех же разделов, что и раздел описаний обычной программы.

6 Порядок выполнения процедуры: Выполнение программы начинается с выполнения операторов основной части программы. Как только происходит вызов подпрограммы данные из основной программы передаются в процедуру (входные параметры). После выполнения процедуры её выходные параметры передаются в то место программы, откуда был сделан вызов процедуры. Затем продолжается выполнение основной программы.

7 Пример взаимодействия программы и процедуры: Begin … Readln(a,b); Sum(a,b,c); Writeln(c); … End. Procedure Sum(a,b:integer; Var c:integer); Begin C:=a+b; End;

8 Область действия имён Имена, объявленные в разделе описания основной программы, действуют в разделе операторов основной программы и в любой подпрограмме. Эти имена называются глобальными. Имена, объявленные в подпрограмме, действуют только в этой подпрограмме и называются локальными. Формальные параметры представляют собой список переменных с указанием их типов. Для выделения выходных параметров перед ними ставится служебное слово VAR.

9 Пример оформления процедуры: Procedure Sum(a,b:integer; Var c:integer); Begin C:=a+b; End; Имя процедуры Входные параметры, передаются из основной программы в процедуру Выходные параметры, передаются из процедуры в основную программу Формальные параметры

10 Вызов процедуры: Вызов процедуры имеет следующую форму записи: имя процедуры ­ (фактические параметры). Параметры, которые передаются в процедуру могут быть: переменными; константами; выражениями; Параметры, которые получают значения из процедуры, могут быть переменными.

11 Пример вызова процедуры: Рассмотрим процедуру sum, которую можно вызвать из основной программы следующим образом: sum (6, 8, Z); Это означает, что А:=6, В:=8, Z:=С. Procedure Sum(a,b:integer; Var c:integer); Begin C:=a+b; End;

12 Соответствия между формальными и фактическими параметрами: Между формальными и фактическими параметрами должно быть соответствие по количеству параметров, порядку их следования, по типу данных. Имена соответствующих формальных и фактических параметров могут быть одинаковыми и различными.

13 Пример: написать программу для перестановки значений переменных a, b, c в порядке возрастания, т.е. так, чтобы ab then swap(a,b); if b>c then swap(b,c); if a>c then swap(a,c); if a>b then swap(a,b); Writeln(a,' ',b,' ',c); readln; end.

14 Практическая работа: Используя процедуру для вычисления степени числа найти значение выражения: y=a 4 ×x 4 +a 3 × x 3 +a 2 ×x 2 +a 1 ×x 1 +a 0. Найти периметр треугольника, заданного координатами своих вершин (Процедура для определения длины отрезка) Даны вещественные числа a,b,c,d,e,f,g. Найти площадь пятиугольника. Определить функцию для расчёта площади треугольника по трём сторонам. a ed g cf b

15 Применение процедур при работе с массивами Процедура заполнения и вывода линейного массива program zap; const n=100; t=20; var a:array[1..t] of integer; procedure init(t,n:integer;var a:array of integer); var i:integer; begin randomize; for i:=1 to t do begin a[i]:=random(n); write (a[i],' '); end;writeln; end; begin init(t,n,a); end.

16 Практическая работа Используя процедуру заполнения линейного массива решить задачи: 1. Даны два одномерных массива целых чисел разной размерности. Найти среднее арифметическое элементов каждого массива и их сумму. Решить задачу для 3 массивов. 2. Даны два одномерных массива целых чисел одинаковой размерности. Подсчитать количество и сумму отрицательных элементов. Решить задачу для 3 массивов. 3. Даны три одномерных массива целых чисел одинаковой размерности. Сформировать 4-ый массив, каждый элемент которого равен максимальному элементу из трёх массивов.

17 Функции Функция – это другой вид подпрограммы. Она оформляется аналогично процедуре. Функция оформляется в следующем виде: FUNCTION имя (формальные параметры): тип; раздел описания BEGIN раздел операторов END; Вызывается функция по её имени с указанием фактических параметров. При этом вызов функции можно делать непосредственно внутри выражения.

18 ПРИМЕР : найти разность факториалов F=m!-k!. факториал числа n вычисляется как произведение n чисел натурального ряда: 1*2*3*...n. FUNCTION FACT (N : integer): longint; var i: integer; p: longint; BEGIN P:=1; For I:=1 To n Do P:=P*I; FACT:=P END; Вызывается функция по своему имени FACT c указанием фактических параметров М и К: F:=FACT(M)-FACT(K); Имя функции Формальный параметр

19 Различия между процедурой и функцией: 1. Функция, как и процедура, может иметь список параметров, следующих за именем функции в круглых скобках, но при описании функции указывается тип результата функции. 2. Имя процедуры используется только для её вызова, а с именем функции связывается её значение. 3. Процедура и функция отличаются и по способу вызова. Процедура вызывается своим именем с указанием фактических параметров, а функция вызывается в виде оператора присваивания, и может быть в списках оператора Write bk Writeln.(Разность факториалов, FACT(m)-FACT(k)); 4. Функция должна иметь в теле команду присваивания с именем переменной, имя которой совпадает с именем функции.

20