Написать рекурсивную процедуру или функцию, которая определяет, входит ли элемент в дерево T

@XAMelion3 · Регистрация: 23.12.2015

По таблице написать рекурсивную процедуру или функцию, которая определяет, входит ли элемент в дерево T

Таблица 3.2 - Расписание

N поезда

Станция

отправления

Станция

назначения

Время

отправления

Время

прибытия

Стоимость

билета

@NEPO · 21.12.2017, 00:59

Pascal

procedure isk(top: treeptr);
begin 
 
          
 if top <> nil then begin
    isk(top^.left); 
    
  if ell = top^.data.fio then
    k:=1
    else
      if ell = top^.data.adr then
        k:=1
        else
          if ell = top^.data.pol then
          k:=1
          else
            if ell = top^.data.marret then
            k:=1
            else
              if ell = top^.data.deti then
              k:=1
              else
                if ell = top^.data.oklad then
                k:=1;                           
  if k = 1 then 
  writeln('Element vhodit ')
  else 
  writeln('Elrment ne vhodit v derevo ');
  k:=0;
    isk(top^.right)
  end;
end;

Опции темы

Написать рекурсивную процедуру или функцию, которая определяет, входит ли элемент в дерево T

Решение