Вывести на экран таблицу трассировки для функции - Pascal ABC

  1. Помогите пожалуйста вывести на экран таблицу трассировки для функции нахождения k-ого члена последовательности Фибоначчи


textual

Код к задаче: «Вывести на экран таблицу трассировки для функции - Pascal ABC»

uses crt;
function fib(k:integer):integer;
begin
if k<2 then fib:=1
else fib:=fib(k-2)+fib(k-1);
end;
var k,i:integer;
begin
repeat
write('Ввкдите k от 1 до 20 k=');
readln(k);
until k in [1..20];
clrscr;
writeln('---------------------------------------------------------------------');
writeln('|Текущий уровень|   Рекурсивный спуск   |    Рекурсивный возврат    |');
writeln('|   рекурсии    |                       |                           |');
writeln('---------------------------------------------------------------------');
for i:=0 to k-1 do
 begin
  gotoXY(1,whereY);
  write('|',i:8);
  gotoXY(17,whereY);
  if i=0 then write('|  Ввод: k=',k-i,'  fib(',k-i,');')
  else write('|        i=',k-i+1,'  fib(',k-i,');');
  gotoXY(41,whereY);
  if i=0 then write('|  Вывод: fib(',k,')=',fib(k))
  else write('|         fib:=',fib(k-i-1),'+',fib(k-i));
  
  gotoXY(69,whereY);
  writeln('|');
 end;
gotoXY(1,whereY);
write('|',k:8);
gotoXY(17,whereY);
write('|                 i=1  fib:=1');
gotoXY(69,whereY);
writeln('|');
write('---------------------------------------------------------------------');
end.

СДЕЛАЙТЕ РЕПОСТ

9   голосов, оценка 3.556 из 5



Похожие ответы
  1. нужная область-заштрихованная. радиус равен 4

  1. Напишите программу, которая находит все различные цифры в символьной строке.Входные данные На вход программе подаётся символьная строка.Выходные данные Программа должна вывести в одной строке все различные цифры, которые встречаются в исходной строке, в порядке возрастания. Если в строке нет цифр, нужно вывести слово 'NO'.Примеры:входные данные ab1n32kz2выходные данные 123входные данные asdasdвыходные данные NO

  1. Описать процедуру SqP(x1, y1, x2, y2, P, S), вычисляющую периметр P и площадь S прямоугольника со сторонами, параллельными осям координат, по координатам (x1, y1), (x2, y2) его противоположных вершин (x1, y1, x2, y2 — входные, P и S — выходные параметры вещественного типа). С помощью этой процедуры найти периметры и площади трех прямоугольников с противоположными вершинами. P.S. помогите пожалуйста это решить,заранее спасибо за помощь)

  1. Дана последовательность, содержащая от 2 до 50 слов, в каждом из которых от 1 до 8 строчных латинских букв; между соседними словами - не менее одного пробела, за последним словом - точка. Напечатать те слова последовательности, которые отличны от первого слова и удовлетворяют следующему свойству:слово симметрично

  1. Составьте процедуру, выводящую строку из n одинаковых цифр. Длина строки и цифра, которая выводится, являются параметрами процедуры. Вывести пять строк разной длины из разных цифр. Процедуру оформить несколькими способами. P.S. Помогите пожалуйста с заданием)Заранее спасибо

  1. Заполнить числами, начиная с единицы, квадратный массив из NxN элементов «змейкой». Пример, для массива 4х4: Код 1 2 3 4 8 7 6 5 9 10 11 12 16 15 14 13 Реализовать ввод размерности с клавиатуры

  1. Напишите условие, которое определяет заштрихованную область.

  1. Нужно чтобы выводило min и max с названием детали.

  1. С клавиатуры вводится трёхзначное число. Нужно вывести ответ «Да», если все его цифры четные, и ответ «Нет» в остальных случаях.

  1. Здравствуйте, необходимо найти площадь прямоугольника по его вершинам, не могу понять в чем моя ошибка?