Дерево в зеркальном отражении Опции

[Jekaterina]

Доброго всем утра!
Попалась задача: дано дерево, в узлах которого записаны неповторяющиеся числа. Задача: вывести в выходной файл зеркальное отражение дерева. При этом во входном файле дерево может быть записано двумя способами:1)в каждой строчке содержится информация об узле, не являющемся листом (внутренним узлом); либо 2) в записи первое число есть номер внутреннего узла, за которым выписаны дети в порядке с левой стороны в правую. Если, напр.б дан граф, как в пиложенном рисунке, то во входном файле запись его может быть и
1 2 3 4 5
3 6 7
5 8
8 9 10 11
и
5 8
3 6 7
8 9 10 11
1 2 3 4 5
В выходном файле граф выводистя подобным образом, но при условии, что внутренние узлы в порядке preoder (т.е. запись о родителе предшествует записи о ребенке). Я нашла решение задачи на с++, но очень плохо знаю этот язык. Если у кого-то будет время и желание, помогите, пожалуйста, перевести на паскаль эту программу. Прилагаю также тесты: из 8 тестов корректо выполняются 6.
 PD4.cpp ( 4.64 килобайт ) Кол-во скачиваний: 543
 testiPD4.zip ( 2.69 килобайт ) Кол-во скачиваний: 352

[volvo]

Высокая температура сказывается... Приведенная мной выше программа делает не совсем то, что нужно... Точнее почти то, но один момент все-же упускается из вида: происходит полная инверсия списка, и первый элемент становится последним, а вот этого делать как раз не надо...

В общем, вот немного отредактированная процедура Print из модуля List, теперь она печатает результат именно так, как нужно:

procedure tlist.print;
var p: ptitem;
begin

  write('(list) <');
  p := first;
  if assigned(p) then begin
    while assigned(p^.next) do p := p^.next;
    write(p^.info, ' ');
  end;

  p := first;
  while assigned(p) and assigned(p^.next) do begin
    write(p^.info, ' ');
    p := p^.next
  end;
  writeln('>');

  p := first;
  while assigned(p) do begin

    if p^.sublist <> nil then p^.sublist^.print;
    p := p^.next;

  end;

end;

...

{ основная программа сокращается до: }
begin
  assign(f, 'test_8.txt'); reset(f);
  p := fill_list(f);
  p^.invert;
  p^.print;
end.

Заметишь еще баги - говори...