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

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

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

локальных имен.

и любое количество раз

Имя_процедуры (параметр1, параметр2, . . .);

описания констант, типов, переменных}
…
PROCEDURE LINIA;
var i: integer;
begin
write ('{ ');
for i:=1 to 78 do write ('_');
writeln (' }');
end;

begin
…
LINIA;
…
LINIA;
END.

PROGRAM EDITOR;
var p: char; dl: integer;
…
Procedure LINIA (pod: char; kol: integer);
var i: integer;
begin
write('{');
for i:=1 to kol do write(pod);
writeln('}');
end;
 
begin
writeln('Введите символ для подчеркивания');
readln(p);
writeln('Введите длину строки');
readln(dl);
…
LINIA (p, dl) ;
…
LINIA ('*', 50) ;
end.

Между фактическими параметрами в операторе вызова процедуры и формальными параметрами в заголовке описания процедуры устанавливается соответствие:
по количеству;
типу (real, integer…);
по сущности (переменная, массив…)

оценка);
ЭКЗАМЕН(Михеев, Информатика, 38.02, оценка);
студент := Василевский;
предмет := Математический анализ;
ЭКЗАМЕН(студент, предмет, 24.12, оценка);
ЭКЗАМЕН(23.09, Сидоров, История, оценка);

VAR K: INTEGER);

………………

end;

Вызов процедуры:

имя процедуры (фактический параметр1, фактический параметр2. . .);


ST(X,NR,0,K); ST(Р,8,G,S);

Соответствие параметров

переменные должны быть описаны как параметры-переменные с использованием оператора Var, исходные данные для подпрограммы – параметры-значения.
Procedure center (a:real, Var h:real, y: real);

Var предшествует тем параметрам, значения которых должны быть (или могут быть) изменены процедурой!!!

глобальных переменных программы;

ОПРЕДЕЛЕНИЕ ПРОЦЕДУР (заголовки и, возможно тела процедур)
ОПРЕДЕЛЕНИЕ ФУНКЦИЙ(заголовки и, возможно тела функций)

BEGIN
Основной блок программы (тело программы)
……
END.

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

навыков по программированию с использованием подпрограмм.
Задание по лабораторной работе
Разработать подпрограмму определения результатов решения задачи лабораторной работы № 2.
Программа должна содержать:
ввод исходных данных;
вызов подпрограммы;
вывод результатов.
При необходимости в подпрограмме следует предусмотреть проверку аргументов задачи на допустимость

28}
Procedure PLOSH (aa, bb: real; VAR ss: real; VAR ff: boolean);
Begin
If ((aa<=0) or (bb<=0)) then ff:=false else begin
ff:= true;
ss:= aa*bb;
end;
End;
Var a, b, s: real;
f: boolean;
Begin
Writeln ('введите значение сторон A и B');
Readln (a, b);
PLOSH (a, b, s, f);
If (f=true) then writeln (' Площадь прямоугольника= ‘, s:7:2)
else writeln (' Введены неверные данные‘);
End;
End.