Подпрограммы в ABCP ascal

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

обеспечивается лишь обращение к ней по имени.

на несколько подзадач;
большая наглядность программы;
экономия памяти.

разработанных ранее алгоритмов;
для разбиения крупных программ на части в соответствии

с модульным принципом программирования.

для выполнения конкретных действий.
процедуры
функции

procedure

процедуры>;
begin
<тело процедуры>;
end;
Все переменные, которые используются в процедурах без параметров, описываются в основной программе (в модуле Var).

PI=3.14;
Var R, H, V: real;

Procedure Input; { процедура ввода данных }
Begin
Writeln (’введите значение радиуса’);
Readln (R);
writeln (’введите значение высоты’);
readln (H);
end;
Procedure formula; { процедура вычисления объёма }
begin
V: =PI*sqr(R)*H;
end;
Procedure Output; { процедура вывода результатов }
begin
writeln (’V=’,V);
end;
BEGIN
Input;
formula;
Output;
END.

Раздел описания в процедурах имеет такую же структуру, как и

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

но описаны вне её.
Изменения, происходящие с глобальными переменными внутри процедуры,

изменяют значения этих переменных вне данной процедуры.

Procedure lokal;
Var a, x: char;

Для процедуры lokal:
begin переменная x – локальная переменная
a:=’! ’; (программа не может изменить её значение)
x:=’ : ’;
b:=b+1; переменная b – глобальная переменная
end; (все изменения значения этой переменной в процедуре
BEGIN сохраняются и после выхода из процедуры)
a:=0;
b:=100; переменная a в основной программе – целого типа,
lokal; а в процедуре – символьного типа. Переменная а
writeln (’a =’, a); целого типа недоступна в процедуре lokal.
writeln (’b=’,b);
END.
Результат выполнения программы: а=0; b=101.

описанные после имени процедуры в круглых скобках. Перед ними отсутствует

служебное слово Var.
Формат записи:
procedure <имя процедуры> (<имя переменной>:<тип
переменной>);
begin
<тело процедуры>;
end;

которые описаны в команде процедуры при её вызове, наз. фактическими

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

Procedure summa (a, b: integer);

Var S: integer;
Begin
S:=0;
S:=a+b;
writeln ('S=',S);
end;
BEGIN
writeln ('Введите М');
readln (m);
writeln ('Введите N');
readln (n);
summa (m,n);
END.

Переменные a и b являются формальными параметрами, а переменные m и n - фактическими. Значения фактических параметров m=100 и n=10 передаются формальным параметрам a и b.
Изменения фактических параметров происходит только внутри процедуры и не влияют на них вне данной процедуры.

– переменные, описанные после имени процедуры в круглых скобках

и перед которыми записано служебное слово Var.
Формат записи:
procedure <имя> (<имя переменной>:<тип
переменной>; Var <имя
переменной>:<тип переменной>);
begin
<тело процедуры>;
end;

формального параметра-переменной приводят к изменению значения фактического параметра-переменной.
С помощью

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

real;
Procedure minimum (a,b,c: real; Var min: real);

Begin
min:=a;
if min > b then min:= b;
if min > c then min:= c;
end;
BEGIN
writeln (‘введите три числа’);
readln (a1, b1, c1);
writeln (’введите три числа’);
readln (a2,b2,c2);
minimum (a1,b1,c1, min1);
minimum (a2,b2,c2, min2);
S:= min1 + min 2;
writeln (’S=’, S);
END.

Пример. Даны две тройки чисел: a1,b1,c1 и a2,b2,c2. Найти значение суммы: S=min (a1, b1, c1) + min (a2, b2, c2)

записи:
function (:

<тип параметров>): <тип результата>;
begin
<тело функции>;
end;
В теле функции имени функции необходимо присвоить результат её выполнения.
При вызове функции её имя с указанием списка фактических параметров должно быть включено в выражение как операнд.

| x+6 |
Program vyrazenie;
Var x, y:

real;
function modul (a: real) : real;
Begin
if a < 0 then a:= -a;
modul:=a;
end;
BEGIN
writeln (’введите значение переменной’);
readln (x);
y:= modul (x-3) + modul (x+6);
writeln (’y=’, y);
END.

плоскости. Определить какой из треугольников имеет большую площадь.
Дано:
Координаты ABC
(Xa, Ya)

(Xb,Yb) (Xc,Yc)
Координаты DEF
(Xd, Yd) (Xe,Ye) (Xf,Yf)
Найти:
Smax=max(Sabc,Sdef)

треугольника по трем сторонам
(Формула Герона)

длины сторон
Определение площади треугольника.

вершин треугольника');
writeln ('введите координаты 1 вершины');
write ('x1=');

read (x1);
write ('y1='); read (y1);
writeln ('введите координаты 2 вершины');
write ('x2='); read (x2);
write ('y2='); read (y2);
writeln ('введите координаты 3 вершины');
write ('x3='); read (x3);
write ('y3='); read (y3);
end;

Процедура ввода данных

procedure input (var x1,y1,x2,y2,x3,y3:real);
begin
writeln ('--------------------------');
writeln ('ввод координат вершин треугольника');
writeln ('введите координаты 1 вершины');
write ('x1='); read (x1);
write ('y1='); read (y1);
writeln ('введите координаты 2 вершины');
write ('x2='); read (x2);
write ('y2='); read (y2);
writeln ('введите координаты 3 вершины');
write ('x3='); read (x3);
write ('y3='); read (y3);
end;

var p:real;
begin
p:=(a+b+c)/2;
geron:=sqrt(abs(p*(p-a)*(p-b)*(p-c)));
end;
Формальные параметры функции и их тип
Локальный параметр

и его тип

Тип функции

Имя функции

a:=dline(xb,yb,xc,yc); {вызов функции}
b:=dline(xa,ya,xc,yc);
c:=dline(xb,yb,xa,ya);

d:=dline(xe,ye,xf,yf);
e:=dline(xd,yd,xf,yf);
f:=dline(xd,yd,xe,ye);
Sabc:=geron(a,b,c); {вызов функции}
Sdef:=geron(d,e,f);
writeln ('Sabc=',Sabc,'Sdef=',Sdef);
Smax:=Sabc;
if Sdef>Sabc then Smax:=Sdef;
writeln ('Smax=',Smax);
end.

real;
Smax:real;
procedure input (var x1,y1,x2,y2,x3,y3:real);
begin
writeln

('ввод координат вершин треугольника');
writeln ('введите координаты 1 вершины');
write ('x1='); read (x1); write ('y1='); read (y1);
writeln ('введите координаты 2 вершины');
write ('x2='); read (x2); write ('y2='); read (y2);
writeln ('введите координаты 3 вершины');
write ('x3='); read (x3); write ('y3='); read (y3);
end;
function dline (var x1,y1,x2,y2:real):real;
begin
dline:=sqrt(sqr(x2-x1)+sqr(y2-y1));
end;
function geron (var a,b,c:real):real;
var p:real;
begin
p:=(a+b+c)/2;
geron:=sqrt(abs(p*(p-a)*(p-b)*(p-c)));
end;

begin
input (xa,ya,xb,yb,xc,yc);
input (xd,yd,xe,ye,xf,yf);
a:=dline(xb,yb,xc,yc);
b:=dline(xa,ya,xc,yc);
c:=dline(xb,yb,xa,ya);
d:=dline(xe,ye,xf,yf);
e:=dline(xd,yd,xf,yf);
f:=dline(xd,yd,xe,ye);
Sabc:=geron(a,b,c);
Sdef:=geron(d,e,f);
writeln ('Sabc=',Sabc,'Sdef=',Sdef);
Smax:=Sabc;
if Sdef>Sabc then Smax:=Sdef;
writeln ('Smax=',Smax);
end.

Используя эту подпрограмму, найти площади заданных трапеций:
a=6,5 b=3,4 h=2,5
a=13,4 b=8,3

h=5,7
a=15,5 b=8,4 h=6,5

высоте. Используя эту подпрограмму, найти площади заданных трапеций:
1. a=6,5 b=3,4

h=2,5
2. a=13,4 b=8,3 h=5,7
3. a=15,5 b=8,4 h=6,5
Присоединить в файл домашнего задания скриншот или фотографию с результатами работы программы.
Например:



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

PROGRAM Trapec;
Const N=3;
var i:integer;
a,b,h,s: array[1..N] of real;
Procedure STR(a, b, h: real ; var s: real);
begin
s:=(a+b)/2*h;
end;
BEGIN
for i:=1 to N Do
begin
writeln('a=',' b=',' h=');
readln(a[i],b[i],h[i]);
end;
for i:=1 to N Do
begin
STR (a[i],b[i],h[i],s[i]);
Writeln (' a=', a[i]:6:2,' b=', b[i]:6:2,' h=', h[i]:6:2);
Writeln ( ' s=', s [i]:7:3);
end;
END.