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

UptoLike

ВУЗ: 

ЮФУ | Ростов-на-Дону

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

Рубрика: 

28
procedure Factor; {множитель}
begin
if ch='(' then
begin
Find;
Expression;
end
else
write(ch); {вывод буквы - идентификатора}
Find
end; {Factor}
begin {Expression}
Term;
while (ch='+') or (ch='-') do
begin
op:=ch;
Find; Term;
write(op) {вывод знака}
end
end; {Expression}
begin {Postfix}
Find;
write(' ');
repeat
Expression
until ch='.';
writeln
end; {Postfix}

Страницы