Справочник функций

Ваш аккаунт

Войти через: 
Забыли пароль?
Регистрация
Информацию о новых материалах можно получать и без регистрации:

Почтовая рассылка

Подписчиков: 6457
Последний выпуск: 19.06.2015

Подскажите, как работает эта часть кода и, что обозначает конкретно эта строка " Tab(4*(g+1));Writeln('RNil');"

99K
21 июля
Irinat1111
1 / / 21.07.2018
Код:
Procedure Print(T: TTree; g: integer); {Печать дерева. G-глубина}
Const k=6;
Begin
   If T=nil then Writeln ('Дерево пустое') else begin
      g:=g+1;
      If T^.Right <> nil then
         Print (T^.Right, g)
      else begin
         Tab(4*(g+1));Writeln('RNil');
      end;
      Tab(k*g); Writeln (T^.Inf.UDK,' ', T^.Inf.NAME);
      If T^.Left <> nil then
         Print (T^.Left,g)
      else begin
         Tab(4*(g+1));Writeln('LNil');
      end;
      g:=g-1;
   End;
End;
Код:
Procedure Print(T: TTree; g: integer); {Печать дерева. G-глубина (по лекции)}
Const k=6;
Begin
   If T=nil then Writeln ('Дерево пустое') else begin
      g:=g+1;
      If T^.Right <> nil then
         Print (T^.Right, g)
      else begin
         Tab(4*(g+1));Writeln('RNil');
      end;
      Tab(k*g); Writeln (T^.Inf.UDK,' ', T^.Inf.NAME);
      If T^.Left <> nil then
         Print (T^.Left,g)
      else begin
         Tab(4*(g+1));Writeln('LNil');
      end;
      g:=g-1;
   End;
End;

Знаете кого-то, кто может ответить? Поделитесь с ним ссылкой.

Ваш ответ

Реклама на сайте | Обмен ссылками | Ссылки | Экспорт (RSS) | Контакты
Добавить статью | Добавить исходник | Добавить хостинг-провайдера | Добавить сайт в каталог