В
Все
Х
Химия
В
Видео-ответы
А
Алгебра
Г
Геометрия
О
ОБЖ
Д
Другие предметы
У
Українська література
Р
Русский язык
Б
Беларуская мова
У
Українська мова
Э
Экономика
Ф
Физика
М
Математика
Ф
Французский язык
Г
География
И
Информатика
М
МХК
О
Окружающий мир
П
Психология
Н
Немецкий язык
О
Обществознание
П
Право
И
История
М
Музыка
Л
Литература
Қ
Қазақ тiлi
Б
Биология
А
Английский язык
Ga1mer
Ga1mer
09.09.2020 16:10 •  Информатика

Ниже на языке прогаммирования паскаль записаны две рекурсивные функции (процедуры): f и g. сколько символов "звездочка" будет напечатано на экране при выполнении вызова f(20)? procedure f(n: integer) ; forward; procedure g(n: integer) ; forward; procedure f(n: integer) ; begin write ('*'); if n > 10 then f(n-2) else g(n); end; procedure g(n: integer) ; begin write ('**'); if n > 1 then f(n-3); end; обьясните , как это делать, если можете, то распишите подробно.

Ответ:
ВІДМІННИК11
ВІДМІННИК11
05.10.2020 19:07
Все нормальные люди делают это так:

procedure F(n:integer); forward;
procedure G(n:integer); forward;

procedure F(n:integer);
begin
  Writeln('Вызов F(',n,') - *');
  //Write('*');
  If n>10 then F(n-2) else G(n);
  Writeln('Завершение F(',n,')')
end;

procedure G(n: integer) ;
begin
  Writeln('Вызов G(',n,') - **');
  //Write('**');
  If n>1 then F(n-3);
  Writeln('Завершение G(',n,')')
end;

begin
  F(20)
end.

Результат
Вызов F(20) - *
Вызов F(18) - *
Вызов F(16) - *
Вызов F(14) - *
Вызов F(12) - *
Вызов F(10) - *
Вызов G(10) - **
Вызов F(7) - *
Вызов G(7) - **
Вызов F(4) - *
Вызов G(4) - **
Вызов F(1) - *
Вызов G(1) - **
Завершение G(1)
Завершение F(1)
Завершение G(4)
Завершение F(4)
Завершение G(7)
Завершение F(7)
Завершение G(10)
Завершение F(10)
Завершение F(12)
Завершение F(14)
Завершение F(16)
Завершение F(18)
Завершение F(20)

Считаем звездочки, их 17. Осталось оформить ответ, сделав вид, что это не программная выдача, а "я такой умный, на бумажке расписал".

А "ненормальные люди" и в самом деле делают это вручную, не понимая, что ручной разбор рекурсии такой длины - это глупость.
0,0(0 оценок)
Популярные вопросы: Информатика
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?