Delphi (Lazarus). Удаление нечётных элементов в дереве.

[Ovenvan]

Добрый день. Нужна помощь в такой вот задаче: необходимо удалить все нечётные элементы дерева. Что-то не разобрался в деревьях. Буду рад любой помощи.

[Stilet]

А построить древо сможешь?
Или тут тоже швах?

[Ovenvan]

Думаю, построить смогу... Меня больше именно процедура удаления нечётных элементов и все, связанные с ней, интересуют

[Stilet]

Поскольку код построения у тебя не вижу просто опишу теорию, как я ее понимаю: Ты создаешь некую процедуру, которая вызывается рекурсивно, в нее передаешь ветку, которую нужно проверить. В цикле в этой функции проходишь эту ветку, и если у нее есть свои ветки, вызываешь функцию, передавая ей найденную подветку. Если данные ветки равны чему-то вызываешь еще одну функцию (которую конечно же ты напишешь), чтоб освободить все входящие в ней ветки так же рекурсивно.

[Ovenvan]

Теоретически я могу представить, как это реализуется, у меня именно затуп с реализацией. Поэтому я прошу помощи.
Ввод (создание дерева) вроде написал. На форме - Edit и кнопка. В Edit ввожу числа через пробел - это и есть элементы дерева.

unit Unit1;

{$mode objfpc}{$H+}

interface

uses
  Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, StdCtrls;

type

  { TForm1 }

  TForm1 = class(TForm)
    Button1: TButton;
    Edit1: TEdit;
    procedure Button1Click(Sender: TObject);
  private
    { private declarations }
  public
    { public declarations }
  end;

type
  PTree = ^TTree;
  TTree = record
    Data: integer;
    L, R: PTree;
  end;

var
  Form1: TForm1;
  Tree: PTree;

implementation

{$R *.lfm}

{ TForm1 }

procedure del(var Anode: Ptree);
begin
  if Anode <> nil then
  begin
    if Anode^.L <> nil then del(Anode^.L);
    if Anode^.R <> nil then del(Anode^.R);
    dispose(Anode);
    Anode := nil;
  end;
end;

procedure Add(var ANode: PTree; x: integer);
begin
   if ANode = nil then
   begin
     new(Anode);
     Anode^.L:= nil;
     Anode^.R:= nil;
     Anode^.Data:= x;
   end
   else if x >= ANode^.Data then Add(Anode^.R, x)
   else Add(Anode^.L, x);
end;

{ввод даных}
procedure TForm1.Button1Click(Sender: TObject);
var s: string;
begin
   s:= Edit1.text;
   s:= trim(s);
   del(Tree);
   while pos(' ', s) <> 0 do
   begin
     add(Tree, strtoint(copy(s, 1,pos(' ', s) - 1)));
     delete(s, 1, pos(' ', s));
   end;
   if s <> ' ' then add(Tree, strtoint(s));
end;

end.

А вот, что дальше делать - не знаю. Надеюсь на Вас.

[Stilet]

Ага... агаагаага...
Значит дальше... С потолка пишу, не проверяю, ок?

procedure StepByStep(var Branch:PTree,WhatFind:Integer);
begin
 if Branch^.Data=WhatFind then begin
  if Branch^.L<>nil then DeleteBranch(Branch^.L);
  if Branch^.R<>nil then DeleteBranch(Branch^.R);
  dispose(Branch);
  Branch:=nil;
 end else begin
  if Branch^.L<>nil then StepByStep(Branch^.L);
  if Branch^.R<>nil then StepByStep(Branch^.R);
 end;
end;

И удаление:

procedure DeleteBranch(var Branch:PTree);
begin
  if Branch^.L<>nil then DeleteBranch(Branch^.L);
  if Branch^.R<>nil then DeleteBranch(Branch^.R);
  Dispose(Branch);
  Branch:=nil;
end;

Вот примерно так. Это удаление веток с определенным значением.

[Ovenvan]

Возникло у меня несколько вопросов по вашему решению.
Ваша процедура удаления не то же самое, что моя удаления? Или я что-то не понял?
Как в Вашу процедуру добавить проверку на нечётность? Разве не нужно проходить всё дерево для этого?

[Stilet]

Ваша процедура удаления не то же самое, что моя удаления? Или я что-то не понял?

Твоя, как я вижу, очищает дерево целиком и полностью.
А я разделил на две части - одна делает проход, вторая освобождает ветвь, что попадает под условие. Т.е. у тебя я не вижу механизма анализа что удалять а что оставлять.

Как в Вашу процедуру добавить проверку на нечётность?

Странный вопрос... Как проверять integer на нечетность? Неужели не знаешь?
функцией odd() или оператором mod... Не?