Презентация на тему Подпрограммы в языке Pascal

ее на подзадачи.
Pascal имеет различные средства для деления

программы на части:
на верхнем уровне (больших задач) – это модули;
на нижнем уровне (элементарных подзадач) – это процедуры и функции.

две группы:
встроенные (стандартные) - хранятся в стандартных библиотечных модулях

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

вызвать по имени для выполнения определенных действий.
Процедура не

может выступать как операнд (данное) в выражении. Упоминание имени процедуры в тексте головной программы приводит к активизации процедуры и называется ее вызовом.

Например: Readln(x), Delete(St, 5, 2)

Имя функции может входить в выражение как операнд. В

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

Например: Ord(‘F’), Sqrt(a+b)

параметров); {Заголовок процедуры}
2 Label

Const {раздел описаний локальных (внутренних) данных}
Typе
Var
Procedure
Function

3 Begin {операторы процедуры}
. . .
End;

Описание подпрограммы-процедуры

формальных параметров) : тип результата;

2 Label
Const {раздел описаний локальных
Type ( внутренних) данных}
Var
Procedure
Function

3 Begin {операторы функции}
…
Имя:= выражение;
End;

пользовательской процедуры/функции;
Список формальных параметров – состоит из имен параметров

с указанием типов параметров, которые перечисляются через «;». Если несколько параметров имеют один тип, то их можно сгруппировать, разделив имена запятой. Если в качестве параметра используется структурированный тип данных (массив, множество, запись или файл), то он должен быть описан в разделе описаний типов Type головной программы. Список формальных параметров может отсутствовать.
Например: type ff=array[1..5,1..10] of real;
Procedure Max( s:ff; k,n:integer);

символьный) , строка символов или ранее определенный пользовательский.
Тип

результата не может быть : массивом, множеством, записью или файлом.

Например: Function Factorial (x:byte) :real;
Function Perevod ( x: longint) : string;

том числе и структурированных типов (массив, множество, запись, файл

или строка).
Результат присваивается параметрам-переменным. Перед такими параметрами в списке формальных параметров ставится служебное слово Var, действие которого распространяется до ближайшей точки с запятой.

Например:
Procedure Kol ( st:string; var k1,k2:integer; var L:Boolean);
 
Выходные параметры

объявления.
Если переменная используется только в рамках одной процедуры/функции,

то она называется локальной.
Если действие распространяется на несколько вложенных процедур/функций, то такая переменная называется глобальной.

памяти под локальные данные происходит автоматически в начале выполнения

подпрограммы, а освобождение – после выполнения последнего оператора подпрограммы.
Если имена глобальных и локальных идентификаторов совпадают, то действует только внутренний локальный идентификатор.

{глобальные}
Procedure A1 ();
Var

a1, b1, c1 : real;
Procedure A2 ();
var a2, b2, c2 : real; {локальные}
begin {операторы п /п А2}
a, b, c, a1,b1, c1, a2,b2, c2
end;
Begin {операторы п/п А1}
a, b, c, a1,b1, c1
End;
Begin {операторы основной программы}
a, b, c
End.

подпрограммы, и фактические – выражения, задающие конкретные значения при

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

по значению – value;
передача по адресу (ссылке) – adr.

подпрограмм:
только как входной параметр- in (input);
только как выходной параметр

– out (output);
как входной и как выходной параметр – in/out (input|output).

(параметры-значения)
Value - out
Value – in/out
Adr –

in (параметры-константы)
Adr – out
Adr – in/out (параметры-переменные)

служебных слов не ставится.
В качестве фактических параметров нельзя использовать

файловый тип
Например:

Function S ( a,b,c:real):real;

нет служебных слов

фактического параметра

В ячейки памяти формального параметра,

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

служебное слово Const
Например:
Type mas=array[1..100] of real;
Procedure Pl(Const a:mas;

n:integer);

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

параметра, а изменять запрещено.

служебное слово Var.

Например:
Type ff=file of real;
massiv= array[1..20,1..30]

of char;
. . .
Procedure poisk ( Const a:massiv; n,k:integer; Var x:ff );
параметры- параметры- параметры-
константы значения переменные

вызове подпрограммы, передается копия адреса фактического параметра
По имеющемуся адресу

разрешено считывать значение фактического параметра и изменять его. Изменение значений в ячейках памяти фактических параметров происходит во время выполнения операторов подпрограммы.
В качестве фактических параметров можно использовать любой тип данных.

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

возврат результата

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

mas=array[1..100] of real;
Function minus ( Const b:mas; n:integer) : real;
Var i:integer; {описание локальных данных}
Begin
minus:=0; {функции присваивается значение}
For i:=1 to n do
If b[i]<0 then begin
minus:=b[i]; {функции присваивается значение}
Exit {досрочное завершение функции}
end;
end;

натуральных чисел n и m.
Х!=1*2*. . .*Х

Алгоритм
подпрограммы-процедуры

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

С использованием подпрограммы-процедуры Fact

числа х}
Procedure fact(x:integer; var p:real);
Var i:integer; {локальные данные}
Begin

P:=1;
For i:=1 to x do
P:=P*i {p-результат выполнения процедуры}
End;
 
{операторы головной программы}
Begin
Writeln(‘введите n, m’);
Readln(n,m);
Fact(n,Fn); {Fn -факториал числа n}
Fact(m,Fm); {Fm- факториал числа m}
Fact(n-m,P); { p- факториал числа n-m}
C:=Fn/(Fm*P);
Writeln(‘биноминальный коэффициент =’, C:8:1)
End.