Вложенные программы

ASSEMBLER;
EXTERNAL;
FAR;
FORWARD;
INLINE;
INTERRUPТ;

Примеры заголовков: PROCEDURE AB (a:real; b:integer; VAR c:char)
FUNCTION FF(x1,x2:real):real;

ЗАГОЛОВОК;
Директива;
LABEL
{Разделы} TYPE
{описаний} CONST
VAR
{Описания процедур и функций} BEGIN
{Раздел операторов}
END;

Program OSN;
VAR A,B,C: real; {глобальные перем}
Procedure P(var v1,v2:byte);
Var s, d: byte; {локальные для P}
Procedure P1(var h1,h2:real);
Var m: byte; {локальная дляР1}
Begin
{тело подпрограммы P1}
{действуют A,B,C,h1,h2,s, d,m}
End;
Procedure P2( f : real);
Var x: real; {локальная дляР2}
Begin
{тело подпрограммы P2}
{действуют A,B,C,f,x,s, d}
End;
Begin
{тело подпрограммы P}
{действуют A,B,C,v1,v2,s, d}
End;
Procedure R( y1,y2,y3:integer);

Procedure R( y1,y2,y3:integer);
Var z: integer; {локальная для R}
b:byte; ; {локальная для R закрывает В глобальную}
Begin
{тело подпрограммы R}
{действуют A,C-глобальные,y1,y2,y3-форм,z, b -локальные}
End;
BEGIN
{тело основной программы}
{действуют А, В,С}
{вызываются п/п Р и R}
END.

Процедуры

PROCEDURE <имя>(список формальных параметров); {Заголовок}
LABEL {раздел описаний (метки, }
TYPE { типы, }
CONST { константы, }
VAR { переменные ) }
{описания вложенных процедур и функций}
BEGIN
{операторы подпрограммы}
END;

Пример: по заданным А и В вычислить их квадраты и кубы

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

Пример:
PROCEDURE P(А:REAL; VAR А2,А3:REAL);
{А - параметр-значение, А2,А3 - параметры-переменные}
Пример: Вычислить вторую и третью степени для
заданных чисел Х и У и их суммы

PROGRAM PROС;
VAR x,y,x2,y2,x3,y3:word; {глобальные}
PROCEDURE STEP123(A:word;Var A2,A3:word);
BEGIN
A2:=A*A; A3:=A2*A;
END;
BEGIN
READ(x,y);
WRITELN('число квадрат куб');
STEP123(x,x2,x3); WRITELN('x=',x:3; x2:5; x3:6);
STEP123(y,y2,y3); WRITELN('y=',y:3; y2:5; y3:6);
WRITELN('сумма квадратов=', х2+y2);
WRITELN('сумма кубов=', х3+y3);
END. _

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

Пример: y=x2+3N
Вычислим произвольную целую
степень с помощью функции

Пример:
TYPE INTYPE=STRING[15];
ONTYPE=STRING[30];
FUNCTION R(А:INTYPE): ONTYPE; {строка как один элемент}

Пример 2. В трех одномерных массивах A,B,C целых чисел от 0 до 16 заменить числа шестнадцатеричными цифрами. Подсчитать в каждом массиве сколько цифр обозначены буквами.

PROGRAM REKURS;
VAR N:INTEGER;
PROCEDURE REVERS(M:INTEGER);
BEGIN
WRITE(M MOD 10);
IF (M DIV 10)<>0 THEN revers (M DIV 10);
END;
BEGIN
WRITE(‘Введи целое число без знака’);
READ (N);
REVERS (N);
END.