Экспертная система Delphi.int.ru

Сообщество программистов
Общение, помощь, обмен опытом

Логин:
Пароль:
Регистрация | Забыли пароль?

Delphi.int.ru Expert

Другие разделы портала

Переход к вопросу:

#   

Статистика за сегодня:  


Лучшие эксперты

Подробнее »



Вопрос # 2 561

/ вопрос открыт /

Доброго времени суток, уважаемые эксперты!Помогите пожалуйста доделать и исправить код.Создать структуру "бинарное дерево" из элементов файла из сиволов. Количество элементов расчитать по формуле n>10+2*i,где i=12. Найти среди элементов дерева минимальный по коду и напечатать этот элемент,его код и адрес этого элемента.

Приложение:
  1. ogram Project1;
  2.  
  3. {$APPTYPE CONSOLE}
  4.  
  5. uses
  6. SysUtils;
  7.  
  8. type
  9. tree=^elem;
  10. elem=record
  11. info:char;
  12. left:tree;
  13. right:tree;
  14. end;
  15. Tfile=file of char;
  16. var
  17. f:Tfile;
  18. beg,beg1,Uk:tree;
  19. x:char;
  20. i:byte;
  21. procedure pechat_file (var G:Tfile);
  22. var
  23. j:integer;
  24. ch:char;
  25. begin
  26. writeln ('Pechat file');
  27. for j:=1 to filesize(g) do
  28. begin
  29. read(g,ch);
  30. writeln(ch);
  31. end;
  32.  
  33.  
  34. { TODO -oUser -cConsole Main : Insert code here }
  35. end;
  36. function poisk_po_kluchu(ch:char;b:tree):tree;
  37. var
  38. found:boolean;
  39. begin
  40. found:=false;
  41. while (b<>nil) and not found do
  42. begin
  43. if b^.info=char then found:=true
  44. else
  45. if b^.info>char then b:=b^.left
  46. else
  47. b:=b^.right
  48. end;
  49. poisk_po_kluchu:=b;
  50. end;
  51. begin
  52. assignfile (f,'f1.dat');
  53. reset(f);
  54. pechat_file(f);
  55. reset(f);
  56. beg:=nil;
  57. for i:=1 to filesize (f) do
  58. begin
  59. read(f,x);
  60. end;
  61. closefile(f);
  62. beg1:=beg;
  63. writeln('Enter simvol');
  64. readln (x);
  65. uk:=poisk_po_kluchu(x,beg1);
  66. if uk<>nil
  67. then
  68. begin
  69. writeln ('Yes');
  70. writeln (uk^.info);
  71. end
  72. else writeln ('No');
  73. readln;
  74.  
  75.  
  76.  
  77. end.
  78.  


Nostalgia Вопрос ожидает решения (принимаются ответы, доступен мини-форум)

Вопрос задала: Nostalgia (статус: Посетитель)
Вопрос отправлен: 24 марта 2009, 21:18
Состояние вопроса: открыт, ответов: 0.


Мини-форум вопроса

Мини-форум пуст.

Чтобы оставлять сообщения в мини-форумах, Вы должны авторизироваться на сайте.

Версия движка: 2.6+ (26.01.2011)
Текущее время: 7 апреля 2020, 13:38
Выполнено за 0.01 сек.
Рейтинг@Mail.ru