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

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

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

елку с помощью *}
Procedure Treugolnik;

{имя процедуры (подпрограммы)}
begin {начало подпрограммы}
Writeln(‘ *’);
Writeln(‘ * *’); { тело подпрограммы (процедуры)}
Writeln(‘ * *’);
Writeln(‘*********’);
end; {конец подпрограммы (процедуры)}
Begin {начало основной программы}
Treugolnik;
Treugolnik; {команда вызова процедуры (подпрограммы)}
Treugolnik;
Treugolnik;
End. {конец программы}

из основной программы в процедуру некоторые параметры передаются (аргументы

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

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

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

begin

end;

y: real);
Заданы только вводимые параметры (аргументы): i, j –

целые,
x, y – вещественные величины.

real);
вводимые параметры (аргументы):
i, j – целые числа,
выводимые

параметры (результат):
u – вещественное число.
Выводимые параметры (результаты) записываются с использованием служебного слова var.
Если выводимые параметры разных типов, то слово var записывается перед каждым типом данных.

j: integer; var u, v: real);
В тексте процедуры описывать

величины, которые введены в заголовке, ещё раз не надо.

оператор вызова.
Оператор вызова имеет вид имени процедуры, после

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

integer; x, y: real);
Min (k, 10, z, 2.35);
i

получает значение величины k основной программы,
j значение 10,
x значение z,
y значение 2,35.
procedure Max (i, j: integer; var u: real);
Max (l, 35, x);

совпадение типов величин и значений, которые записаны в операторе

вызова с типами, которые определены в заголовке процедуры.
Формальные параметры – это величины, которые введены в заголовке процедуры, в скобках.
Фактические параметры – это величины, которые используются в основной программе.
Между фактическими и формальными параметрами должно существовать соответствие:
По количеству параметров;
Порядку их следования;
Типу данных.

программе и действуют как в основной программе, так и

во всех ее подпрограммах.
Локальные переменные описываются в процедуре и действуют только в пределах этой подпрограммы.

А(m x n), где m

10. Изменить массив таким образом, чтобы в чётных строках отрицательные элементы заменить 0. Вывести изменённый массив. Ввод, вывод и изменение оформить в виде процедур.

Program Proc;
{В четных строках отрицательные заменить на 0}
var A: array [1..10, 1..10] of integer;
l,k,i,j: integer;
procedure vvod ;
begin
for i:= 1 to l do
for j:= 1 to k do read (A[i,j ]); writeln
end;
procedure zam;
begin
for i:= 1 to l do
for j:= 1 to k do
if i mod 2 = 0 then
if A [i,j] < 0 then A [i, j] := 0
end;

procedure out ;
begin
for i:= 1 to l do
begin
for j:= 1 to k do write (A[i, j], ' ');
writeln;
end;
end;

Begin
readln (l,k);
vvod ;
zam;
out ;
End.

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

max(a,b:integer):integer;
begin
if a>b then max:=a
else max:=b;
end;

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

скобках вместо формальных параметров через запятую записываются фактические величины или значения.
z:=0.5+max(4,y);

площади треугольника оформить в виде функции.
Program func;
{Найти площадь 4-х

угольника, используя формулу Герона.}
Var a, b, c, d, e, s: real;
Function pl_tr(x1, x2, x3:real): real;
Var p: real;
begin
P:=(x1+x2+x3)/2;
pl_tr:=sqrt(p*(p-x1)*(p-x2)*(p-x3));
end;

Begin
writeln(‘Введите стороны четырехугольника');
Readln(a, b, c, d, e);
S:=pl_tr(a, b, c)+pl_tr(c, d, e); writeln('S=', s:4:2);
End.