Изучила динамические структуры и пытаюсь выполнить задание: создать односвязный линейный список,содержащий список ребер графа и вывести его на экран в стринггрид.
В стрингриде находится матрица смежности графа,а чтобы составить список ребер я прохожусь по элементам матрицы,стоящих выше главной диагонали и на ней,и если нахожу цифру 1,то в односвязный линейный список добавляю i и j.
1. Что я делаю не так,потому что список не выводится (скорее всего неправильно где-то создаю)? Может кто-нибудь указать ошибку?
2. Можно ли в одну ячейку записать одновременно два значения через пробел?
Пример:
входные данные:
5
0 0 1 0 0
0 0 1 0 1
1 1 0 0 0
0 0 0 0 0
0 1 0 0 0
выходные данные:
1 3
2 3
2 5
Код:
1 2 3 4 5 6 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 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 | type
matr= array [ 1..10 , 1..10 ] of integer ;
mass= array [ 1..100 ] of integer ;
uk=^list;
list= record
inf: integer ;
next:uk;
end ;
var
Form1: TForm1;
ms:matr;
x,y:mass;
i,j,n: Integer ;
blist:uk;
flag: boolean ;
str: string ;
implementation
{$R *.xfm}
procedure make( var blist:uk; inf: integer );
begin
new(blist);
blist^.inf:=inf;
blist^.next:= nil ;
end ;
function pust(blist:uk): boolean ;
begin
if (blist<> nil ) then
result:= false
else
result:= true
end ;
procedure incertK(blist:uk; inf: integer );
var blist1:uk;
begin
if (pust(blist)) then
begin
showmessage( 'Пустой' );
exit;
end ;
while (blist^.next<> nil ) do
begin
blist:=blist^.next;
end ;
make(blist1,inf);
blist^.Next:=blist1;
end ;
procedure printspisok(blist:uk);
var
str: string ;
begin
if pust(blist) then
begin
ShowMessage( 'Pustoy' );
str:= '' ;
Exit;
end ;
str:= '' ;
while (blist<> nil ) do
begin
str:=str+inttostr(blist^.inf)+ ' ' ;
blist:=blist^.next;
end ;
end ;
procedure TForm1 . Button2Click(Sender: TObject);
var
i,j: Integer ;
begin
for i:= 1 to n do
begin
for j:= 1 to n do
begin
if (i<=j) and (StrToInt(sd1 . Cells[j,i])= 1 ) then
begin
if blist= nil then
make(blist,i)
else
incertK(blist,i);
end ;
end ;
end ;
printspisok(blist);
Label1 . Caption:=str;
end ;
|