Ну как-то так
Код:
1 2 3 4 5 6 7 8 9 10 | type
uk=^list;
list=record
i,j:Integer;
next:uk;
end;
var
blist:uk=nil;
|
И не забывайте, если используются типизированные указатели, то значок ^ можно не писать
Код:
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 | procedure make(var ablist:uk; aI,aJ:Integer);
begin
new(ablist);
ablist.i:=ai;
ablist.j:=aj;
ablist.next:=nil;
end;
procedure incertK(ablist:uk);
var
temp:uk;
begin
if(pust(blist))then
begin
blist:=ablist;
exit;
end;
temp:=blist;
while(temp.next<>nil) do
begin
temp:=temp.next;
end;
temp.next:=ablist;
end;
function printspisok(blist:uk):tsring;
begin
if pust(blist) then
begin
Result:='Pustoy';
Exit;
end;
Result:='';
while(blist<>nil)do
begin
Result:=Result+#13#10+
format([blist.i, blist.j]);
blist:=blist.next;
end;
end;
procedure TForm1.Button2Click(Sender: TObject);
var
i,j:Integer;
temp:uk;
begin
for i:=1 to n do
begin
for j:=1 to i do
begin
if (StrToInt(sd1.Cells[j,i])=1) then
begin
make(temp,i,j);
incertK(temp);
end;
end;
end;
Label1.caption := printspisok(blist);
end;
end.
function printspisok(ablist:uk):tsring;
begin
if pust(ablist) then
begin
Result:='Pustoy';
Exit;
end;
Result:='';
while(ablist<>nil)do
begin
Result:=Result+#13#10+
format('%d %d,[ablist.i, ablist.j]);
ablist:=ablist.next;
end;
end;
|
18.01.2016, 16:36
Древовидный вид