Рекурсия - 25 стр.

UptoLike

Составители:

Рубрика:

В случае взаимного обращения подпрограмм (процедур или функций) друг

к другу необходимо использовать опережающее описание.

Опережающее описание подпрограммы состоит из ее заголовка, за кото-

рым идет зарезервированное слово forward.

program Rec_12; { Иллюстрация косвенной рекурсии }

procedure Postfix; { Преобразование в ПОЛИЗ }

var ch: char; {хранит символ}

procedure Find; {процедура пропуска пробелов}

begin

repeat

read(ch)

until ch<>' '

end;

procedure Expression; {выражение}

var op: char; {знак операции}

procedure Factor; forward; {опережающее

описание}

procedure Term; {слагаемое}

begin

Factor;

while ch='*' do

begin

Find;

Factor;

write('*') {вывод *}

end

end; {Term}