VPF::[Pascal] Работа с деревьями - Форум программистов

Ангел

Дата 15.5.2007, 10:47 (ссылка)

(нет голосов)

Загрузка ...

Прозрачное Счастье

Профиль
Группа: Участник
Сообщений: 48
Регистрация: 17.12.2006

Репутация: нет
Всего: нет

Помогите, пожалуйста.

Задание:

Надо построить дерево (представить внешне за внутренним представлением) в стандартной форме и вывести его характерестики (кол-во листьев и прочее).

Ангел

Дата 9.6.2007, 01:07 (ссылка)

(нет голосов)

Загрузка ...

Прозрачное Счастье

Профиль
Группа: Участник
Сообщений: 48
Регистрация: 17.12.2006

Репутация: нет
Всего: нет

Код:

Код


var a:array[1..100,1..100]of byte;
    l:array[1..100]of byte;
    now:array[1..100]of byte;
    d:array[1..100]of byte;
    par:array[1..100]of byte;
    i,j,k,n,nown:integer;
    leaves,d1,d2,dl:integer;

begin
write('Š®«-¢® ¢¥àè¨ : '); readln(n);
writeln('¥¡à  : ');
for i:=1 to n do
 begin
 write(i,' : '); l[i]:=0;
 while(not(seekeoln(input)))do
  begin
  Inc(l[i]);
  read(a[i,l[i]]);
  end;
 readln;
 end;

leaves:=0;
for i:=2 to n do
 if(l[i]=1)then Inc(leaves);
writeln('Š®«-¢® «¨áâì¥¢ = ',leaves);

for i:=1 to n do d[i]:=0;
d[1]:=1; now[1]:=1; i:=0; nown:=1;
while(i<nown)do
 begin
 Inc(i);
 for j:=1 to l[now[i]] do
  if(d[a[now[i],j]]=0)then
   begin Inc(nown); now[nown]:=a[now[i],j]; d[now[nown]]:=d[now[i]]+1; end;
 end;
writeln('‚÷á®â  ¤¥à¥¢  (¥á«¨ ª®à¥ì 1-ï ¢¥àè¨ ) = ',d[now[nown]]);

d1:=now[nown];
for i:=1 to n do d[i]:=0;
d[d1]:=1; now[1]:=d1; i:=0; nown:=1;
while(i<nown)do
 begin
 Inc(i);
 for j:=1 to l[now[i]] do
  if(d[a[now[i],j]]=0)then
   begin Inc(nown); now[nown]:=a[now[i],j]; d[now[nown]]:=d[now[i]]+1; par[now[nown]]:=now[i]; end;
 end;
d2:=now[nown];
dl:=d[d2]-1;
writeln('„¨ ¬¥âà : ¨§ ',d1,' ¢ ',d2,' , „«¨  ¤¨ ¬¥âà  = ',dl);

k:=d2; for i:=1 to (dl div 2) do k:=par[k];
if(dl mod 2=0)then writeln('–¥âà : ',k)
else writeln('–¥âà÷ : ',k,',',par[k]);
end.

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Центр помощи \| Следующая тема »