| ← Июль 2011 → | ||||||
|
1
|
2
|
|||||
|---|---|---|---|---|---|---|
|
5
|
7
|
8
|
9
|
10
|
||
|
11
|
12
|
13
|
14
|
15
|
16
|
17
|
|
18
|
19
|
20
|
21
|
22
|
23
|
24
|
|
25
|
26
|
27
|
28
|
29
|
30
|
31
|
За последние 60 дней ни разу не выходила
Сайт рассылки:
http://prog.rusfaq.ru/pascal
Открыта:
14-03-2002
Статистика
0 за неделю
RFpro.ru: Программирование на языке Pascal
Хостинг портала RFpro.ru: РАССЫЛКИ ПОРТАЛА RFPRO.RU
Лучшие эксперты данной рассылки
/ КОМПЬЮТЕРЫ И СОФТ / Программирование / Pascal (Паскаль)
Вопрос № 183717: Здравствуйте! У меня возникли сложности с таким вопросом: Нужно написать программу на Turbo Pascale под windows. Построить бинарное дерево поиска целочисленного типа данных. Выполнить обход дерева слева направо (левое поддерево - корен... Вопрос № 183717:
Здравствуйте! У меня возникли сложности с таким вопросом:
Отправлен: 26.06.2011, 12:19 Отвечает Сергей Бендер (Бакалавр) : Здравствуйте, лыков валерий олегович! Итак, сведём и оформим ответ с учётом исправлений сделанных в мини-форуме по упомянутой ссылке. Код :
Program derevo;
Uses Crt;
{ Варианты запуска обхода с подсчетом:
1 - количество вершин, имеющих хотя бы одну ненулевую связь;
2 - количество вершин, имеющих две ненулевые связи;
3 - количество вершин, имеющих не более одной ненулевой связи.
}
Const NeMensheOdnoj=1;
Dve=2;
NeBolsheOdnoj=3;
Type inform = Integer;
ss = ^zveno;
zveno = Record
key: Integer;
inf: Inform;
left, right: ss;
End;
Var t:ss;
n,nn,c,i,k: Integer;
{----формирование дерева----}
Procedure Vstavka (Var p: ss; x: Integer);
Begin
{Если добрались конца ветвления, то добавляем новый элемент}
If p = Nil Then
Begin
New (p);
p^.inf:=x;
p^.key:=1;
p^.left:=Nil;
p^.right:=Nil;
End
{Если это уже существующий элемент}
else begin
{Если вставляемый меньше имеющегося, то отправляем его в левую ветку}
If x<p^.inf Then Begin Vstavka (p^.left,x); End;
{Иначе -- в правую}
If x>=p^.inf Then Begin Vstavka (p^.right,x); End;
end;
End;
{----вывод дерева----}
Procedure Print (Var p: ss; h: Integer);
Var i: Integer;
Begin
If p <> Nil Then
Begin
{Сначала распечатываем правое поддерево, увеличив отступ}
Print(p^.right,h+4);
For i:=1 To h Do Write (' ');
{Потом сам элемент}
Writeln (p^.inf);
{Потом левое поддерево}
Print (p^.left,h+4);
End;
End;
{ Рекурсивная функция, деалющая подсчёт для текущего дерева }
Function Count(p: ss; v: integer):integer;
Begin
{ Нет элемента -- результата ноль }
IF p = Nil Then Count:=0
Else Begin
{ Рассматриваются варианты вызова функции с соответствующими условием }
{ Первый вариант -- либо left, либо right не равны Nil }
If ((v = NeMensheOdnoj) and ((p^.left <> Nil) or (p^.right <> Nil)))
or
{ Второй вариант -- и left, и right не равны Nil }
((v = Dve) and ((p^.left <> Nil) and (p^.right <> Nil)))
or
{ Третий вариант -- либо left, либо right равны Nil }
((v = NeBolsheOdnoj) and ((p^.left = Nil) or (p^.right = Nil)))
{ Какой-то из вариантов сработал => ставим 1
и добавляем результаты рекурсивных вызовов левой и правой ветви }
Then Count:=1 + Count(p^.left,v) + Count(p^.right,v)
{ Иначе берём 0 и добавляем рекурсивные вызовы }
else Count:=0 + Count(p^.left,v) + Count(p^.right,v)
End;
End;
{----обход дерева----}
Begin ClrScr;
Writeln ('Vvedite koli4estvo elementov dereva: ');
Readln (n);
randomize;
For i:=1 To n Do
Begin
Writeln('Vvedite o4erednoj element');
Read (c);
Vstavka (t,c);
End;
{ Тут было Print (t,с); -- это ошибка }
Print (t,0);
Writeln('Koli4estvo vershin c >= 1 nenulevoj svjazi: ',Count(t,NeMensheOdnoj));
Writeln('Koli4estvo vershin c 2 nenulevymi svjazjami: ',Count(t,Dve));
Writeln('Koli4estvo vershin c <= 1 nenulevoj svjazi: ',Count(t,NeBolsheOdnoj));
Readkey;
End.
Добавлен размер тега код.
----- ∙ Отредактировал: Зенченко Константин Николаевич (Модератор) ∙ Дата редактирования: 01.07.2011, 11:05 (время московское)
Ответ отправил: Сергей Бендер (Бакалавр)
Оценить выпуск »
Задать вопрос экспертам этой рассылки »Скажите "спасибо" эксперту, который помог Вам!Отправьте СМС-сообщение с тестом #thank НОМЕР_ОТВЕТАна короткий номер 1151 (Россия) Номер ответа и конкретный текст СМС указан внизу каждого ответа.
* Стоимость одного СМС-сообщения от 7.15 руб. и зависит от оператора сотовой связи.
(полный список тарифов) © 2001-2011, Портал RFPRO.RU, Россия
Авторское право: ООО "Мастер-Эксперт Про" Калашников О.А. | Гладенюк А.Г. Хостинг: Компания "Московский хостер" Версия системы: 2011.6.31 от 07.05.2011 |
| В избранное | ||
