Перейти к содержимому




- - - - -

Курсовые работы


  • Авторизуйтесь для ответа в теме
Сообщений в теме: 21

#21 vzhik001

vzhik001

    Абитуриент

  • Студенты
  • Pip
  • 2 сообщений

Отправлено 07 Январь 2019 - 22:15

Срочно нужна помощь!
Курсовая работа
Программирование (2 курс) Тема: Разработать процедуру исключения вершины из двоичного дерева (vzhik000@yandex.ru)


#22 AntiSgaMuh

AntiSgaMuh

  • Методисты
  • 3 337 сообщений

Отправлено 08 Январь 2019 - 17:29

Просмотр сообщенияvzhik001 (07 Январь 2019 - 22:15) писал:

Срочно нужна помощь!
Курсовая работа
Программирование (2 курс) Тема: Разработать процедуру исключения вершины из двоичного дерева (vzhik000@yandex.ru)

Код к задаче: «Разработайте процедуру исключения вершины из двоичного дерева - Turbo Pascal»
Procedure Udder (Var D: Adrzv; K: Integer);
Var
  Q: Adrzv;

  Procedure Ud (Var R: Adrzv);
Begin
   If R^.Prav=Nil Then
   Begin
{6} Q^.Kl := R^.Kl;
{7} Q^.Adr := R^.Adr;
{8} Q := R;
{9} R := Q^.Lev
End
Else
  {11} Ud (R^.Prav)
   End;
Begin
  If D = Nil Then
   Writeln ('Звена с заданным ключом в дереве нет')
Else
If K < D^.Kl Then
{2} Udder (D^.Lev, K)
Else
   If K > D^.Kl Then
{  3} Udder (D^.Prav, K)
Else
Begin
{1} Q := D;
If Q^.Prav = Nil Then
   {4} D := Q^.Lev
  Else
If Q^.Lev = Nil Then
   {5} D := Q^.Prav
   {10} Else
Ud (Q^.Lev)
  End
End;

Сообщение отредактировал AntiSgaMuh: 08 Январь 2019 - 18:04





Количество пользователей, читающих эту тему: 0

0 пользователей, 0 гостей, 0 анонимных



Добро пожаловать!
Что бы получить полный доступ ко всем форумам, созданию тем и многому другому, пожалуйста Войдите или Зарегистрируйтесь.
Вы можете не тратить время на скучную анкету, а просто войти с помощью вашей любимой социальной сети в правом верхнем углу ;)