Графы.Определение смежных вершин по заданной матрице

[Solnce90]

Программная реализация определения смежных вершин по заданное матрице смежности. Через процедуры

[kostya93]

вроде так...

uses crt;
type mas=array[1..100,1..100] of byte;
type name=array[1..100] of String;
var i,j,v,n,k,z:integer;
pr:boolean;
a,w:mas;
d:String;
names:name;
label metka;
Procedure print(vv:integer;m:mas;myname:name) ;
var i1,j1:integer;
Begin
i1:=1;
while i1<=vv do
begin
write(myname[i1]);
j1:=1;
while j1<=vv do
begin
write(' ',m[i1,j1],' ');
inc(j1);
end;
writeln;
inc(i1);
end;
End;
BEGIN
writeln('Неориентированный граф:');
write('Введите число вершин в графе: ');
readln(v); {Формирование матрицы смежности}
i:=1;
while i<=v do
begin
write('Введите количество вершин, смежных ',i,'-ой вершине: ');
readln(n);
write('Введите её имя = ');
readln(d);
names[i] :=d;
writeln('Введите вершины, смежные с ',i,' - й вершиной: ');
j:=1;
while (j<=n) do
begin
write('Введите вершину, которой она смежна = ');
readln(k);
write ('введите расстояние = ');
readln(z);
w[i,k]:=z;
a[i,k]:=w[i,k];
inc(j);
end;
inc(i);
end;
writeln;
writeln('Матрица смежности:');
print(v,a,names);
readln
END.