Перевести код из Pascal на C++ - C++ - Ответ 745563

@Ms2607 · Регистрация: 17.05.2010

Студворк — интернет-сервис помощи студентам

Нужно произвести удаление узла из сбалансированного дерева. В С++ я не бум-бум, помогите пожалуйста. Вот сам код:

Pascal

procedure delete(x:integer; var q:ref; var h:boolean);
   var  p:ref;     {h=false}
   procedure balance1(var q:ref; var h:boolean);
     var q1,q2:ref;
         b1,b2:-1..1;
   begin  {h -true, левая ветвь стала короче}
   case q^.bal of
   -1: q^.bal:=0;
    0: begin
        q^.bal:=1;
        h:=false;
       end;
   1:  begin   {balance}
         q1:=q^.right;
         b1:=q1^.bal;
         if b1>=0 then
         begin     {однократный RR-поворот}
            q^.right:=q1^.left;
            q1^.left:=q;
            if b1=0 then
            begin
             q^.bal:=1;
             q1^.bal:=-1;
             h:=false;
            end  else begin
                         q^.bal:=0;
                         q1^.bal:=0;
                      end;
                      q:=q1;
                      end  else
                           begin   {двукратный RL- поворот}
                             q2:=q1^.left;
                             b2:=q2^.bal;
                             q1^.left:=q2^.right;
                             q2^.right:=q1;
                             q^.right:=q2^.left;
                             q2^.left:=q;
                             if b2=1 then q^.bal:=-1 else q^.bal:=0;
                             if b2=-1 then q1^.bal:=1 else q1^.bal:=0;
                             q:=q2;
                             q2^.bal:=0;
                            end
                          end
                     end
                 end;        {balance1}
     procedure balance2(var q:ref; var h:boolean);
     var q1,q2:ref;
         b1,b2:-1..1;
   begin  {h -true, правая ветвь стала короче}
   case q^.bal of
    1: q^.bal:=0;
    0: begin
        q^.bal:=-1;
        h:=false;
       end;
  -1:  begin   {balance}
         q1:=q^.left;
         b1:=q1^.bal;
         if b1<=0 then
         begin     {однократный LL- поворот}
            q^.left:=q1^.right;
            q1^.right:=q;
            if b1=0 then
            begin
             q^.bal:=-1;
             q1^.bal:=1;
             h:=false;
            end  else begin
                         q^.bal:=0;
                         q1^.bal:=0;
                      end;
                      q:=q1;
                      end  else
                           begin   {двукратный LR- поворот}
                             q2:=q1^.right;
                             b2:=q2^.bal;
                             q1^.right:=q2^.left;
                             q2^.left:=q1;
                             q^.left:=q2^.right;
                             q2^.right:=q;
                             if b2=-1 then q^.bal:=1 else q^.bal:=0;
                             if b2=1 then q1^.bal:=-1 else q1^.bal:=0;
                             q:=q2;
                             q2^.bal:=0;
                            end
                          end
                     end
                 end;        {balance2}
   procedure del(var r:ref; var h;boolean);
   begin   {h=false}
      if r^.right<> nil then begin
                                del(r^.right,h);
                                if h then balance2(r,h)
                             end else
                             begin
                               p^.inf:=r^.inf;
                               p^.count:=r^.count;
                               r:=r^.left;
                               h:=true;
                             end
                             end;
  BEGIN  {delete}
    if q=nil then begin
                    writeln("sym is not in tree");
                    h:=false;
                  end else
                  if x                                     delete(x,q^.left,h);
                                     if h then balance1(q,h)
                                   end  else
                  if x>q^.inf then begin
                                     delete(x,q^.right,h);
                                     if h then balance2(q,h)
                                   end  else
                  begin {удаление q^}
                    p:=q;
                    if p^.right=nil then  begin
                                             q:=p^.left;
                                             h:=true;
                                           end  else
                     if p^.left=nil then  begin
                                             q:=p^.right;
                                             h:=true;
                                           end  else
                                           begin
                                             del(q^.left,h);
                                             if h then balance1(p,h);
                                           end;
                                           {dispose(p);}
                   end
    end;  {delete}

Переменная h - логический параметр, означает, что высота поддерева уменьшилась. Значение true присваивается h при нахождении и удалении узла или если сама балансировка уменьшает высоту поддерева. В программе две процедуры балансировки balance1 и balance2. Первая процедура используется, когда уменьшается высота левого поддерева, вторая - правого.

Заранее спасибо.

Вернуться к обсуждению:
Перевести код из Pascal на C++ C++

Следующий ответ

Другие темы раздела
C++ Удаление слов в массиве В строках введённого текста удалить слова с одинаковым количеством гласных букв. Вместе со словами удаляются и разделители (разделители-строка символов) расположенные справа от этих слов, если они там имеются. В случае удаления всех слов в строке строка тоже удаляется. Пытался пользоваться этой темой, но безуспешно(( https://www.cyberforum.ru/ cpp-beginners/ thread133816.html	C++ Поиск данных в файле по ключевому полю Как можно производить поиск данных в файле по ключевому полю??? есле сможете можно ли пример или показать как можно его произвести программа файла есть , вот// 16.cpp: определяет точку входа для консольного приложения. // #include "stdafx.h" #include <string.h> #include <locale.h> #include <stdlib.h> #include <math.h> #include <conio.h>
C++ одномерный массив Число элементов массива задаётся пользователем. Элементы могут заполняться как вручную, так и случайным образом. Найти сумму элементов массива, расположенных между элементами с минимальным и максимальным значением ( в сумму включить также оба этих элемента). https://www.cyberforum.ru/ cpp-beginners/ thread133806.html	C++ Использование правил CLIPS в C++ Хочу использовать базу знаний написанную на языке CLIPS в программе на C++. Скачал нужные заголовочные файлы, подключил в проекте, в главном модуле написал #include "clips.h" Отлично проходит компиляция и билд. Теперь загвоздка. Не могу понять как использовать саму базу знаний из файла *.clp. Допустим есть в базе правило: (defrule MyRule (Myfact1 1) (Myfact2 1) ... https://www.cyberforum.ru/ cpp-beginners/ thread133798.html
C++ Обязательно ли освобождать память? Обязательно ли освобождать память, если та область которая выделялась не использовалась в процессе работы программы? Просто, в такой ситуации, оператор delete не особождает, а выдаёт ошибку.	C++ Посчитать столбец ненулевых элементов Есть разреженная матрица, которая хранится в виде цепочки ненулевых элементов со строчным индексированием. Т.е. read_matrix(){ FILE *p; printf("Input filename:\n"); scanf("%s",data); p=fopen(data,"r+"); for (i=0;i<10;i++) { for(j=0;j<10;j++) https://www.cyberforum.ru/ cpp-beginners/ thread133788.html
C++ Исправление программного кода https://www.cyberforum.ru/ cpp-beginners/ thread133785.html Писал программу на С++, но никак не могу понять как исправить задание: Составить программу, которая содержит динамическую информацию о наличии автобусов в автобусном парке. Сведения о каждом автобусе содержат: - номер автобуса;- фамилию и инициалы водителя; - номер маршрута; - признак того, где находится автобус – на маршруте или в парке. Программа должна обеспечивать: начальное формирование...	Определить, образуют ли элементы целочисленного массива A (n) неубывающую последовательность C++ Добрый вечер.очень нужна помощь.... Написать программу, определяющую, образуют ли элементы целочисленного массива A(n) неубывающую последовательность. Значение n следует вводить в диалоговом режиме, память под массив следует распределить динамически. Написать Функции: 1. Заполения массива случайными числами в диапазоне от -50 до +50. 2. Вывода одномерного массива. 3. Определения, образуют...
C++ рекорды https://www.cyberforum.ru/ cpp-beginners/ thread133769.html Здравствуйте!очень нужна помощь,в написание рекордов к игре "змейка" т.е. считываем из упорядоченого файла.если число>предыдущего максимального,то заполняем именем и остальное смещаем,используя структуру. а как это сделать , с моими минимизированными знаниями Си я не знаю=)	C++ Бесконечный сходящийся ряд найти сумму бесконечного сходящегося ряда. Суммирование прекратить при появлении в сумме слагаемых, имеющих абсолютную величину, меньшую заданной погрешности d (значение d задается пользователем). a= (1/35)+(1/79)+(1/1113)+... ( - умножение) https://www.cyberforum.ru/ cpp-beginners/ thread133766.html
что не правильно? (Файловый ввод / вывод) C++ Дан файл целых чисел. Создать новый файл целых чисел, содержащий длины всех серий исходного файла (серией называется набор последовательно расположенных одинаковых элементов, а длиной серии — количество этих элементов). Например, для исходного файла с элементами 1, 5, 5, 5, 4, 4, 5 содержимое результирующего файла должно быть следующим: 1, 3, 2, 1. Я пытался сделать пока чтобы программа с...	C++ объекты https://www.cyberforum.ru/ cpp-beginners/ thread133759.html доброго времени суток. проблема с организацией списка с объектами. вот задание если поможет)) Описать объект, включающий заданные поля и методы. Написать программу, которая создает массив объектов и список объектов и содержит процедуры, работающие с указанными структурами. Объект - число. Параметры: мантисса и порядок. Методы: конструктор и процедура, оп-ределяющая значение числа....

	22.05.2010, 18:48