Номер 13, страница 130 - гдз по информатике 11 класс учебник Босова, Босова

Параграф 9. Структурное программирование. Глава 2. Алгоритмы и элементы программирования - номер 13, страница 130.

Условие.

13. Дана программа:

program rek;
procedure F(n: integer);
begin
if n>0 then
begin
F(n-4);
writeln (n);
F (n div 3)
end;
end;
begin
F(9)
end.

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

Проверьте свой результат, выполнив программу на компьютере.

Решение.

Результат выполнения: 1 5 1 9 3 1
program rek;
procedure F(n: integer);
begin
if n>0 then
begin
F(n-4);
writeln (n);
F (n div 3);
end;
end;
begin
F(9);
end.

Трассировка программы:
program rek;
procedure F(n: integer);
begin
writeln ('Вход');
if n>0 then
begin
writeln ('В выходную строку: ',n);
writeln('Вызов F(n-4)');
F(n-4);
writeln (n);
writeln('Вызов F(n div 3)');
F (n div 3);
end;
writeln ('Выход');
end;
begin
F(9);
end.

Результат трассировки:
Вход
В выходную строку: 9
Вызов F(n-4)
Вход
В выходную строку: 5
Вызов F(n-4)
Вход
В выходную строку: 1
Вызов F(n-4)
Вход
Выход
1
Вызов F(n div 3)
Вход
Выход
Выход
5
Вызов F(n div 3)
Вход
В выходную строку: 1
Вызов F(n-4)
Вход
Выход
1
Вызов F(n div 3)
Вход
Выход
Выход
Выход
9
Вызов F(n div 3)
Вход
В выходную строку: 3
Вызов F(n-4)
Вход
Выход
3
Вызов F(n div 3)
Вход
В выходную строку: 1
Вызов F(n-4)
Вход
Выход
1
Вызов F(n div 3)
Вход
Выход
Выход
Выход
Выход