Даже и не знал, куда запихнуть свой вопрос: то ли в Теорию, то ли в Задачи...
Фигня вот в чем:
Procedure BuildMS;
Var i,j: integer;
StartOfEdge, EndOfEdge: integer; { // nachalo i konec dugi}
BEGIN
case WhatKind of
0:
begin { // !!! OF CASE = 0 }
for j:=1 to E do
begin
for i:=1 to N do
begin
if (MI[i,j] = 1) then StartOfEdge:=i;
if (MI[i,j]= -1) then EndOfEdge:=i;
end;
MSb[StartOfEdge,EndOfEdge]:=1;
end;
for i:=1 to N do
begin
for j:=1 to N do
begin
Write(' ',MSb[i,j]);
end;
WriteLn;
end;
end; { // !!! OF CASE = 0 }
1:
begin { // !!! OF CASE = 1 }
WriteLn('[x] Under Construction');
end; { // !!! OF CASE = 1 }
END;
Желательно увидеть всю программу...
Procedure BuildMI;В том же месте надо добавить End и в процедуре BuildMS...
Var i,j: integer;
BEGIN
case WhatKind of
0:
begin { // !!! OF CASE = 0 }
E:=0; { // obnulyaem chislo dug }
for i:=1 to N do
for j:=1 to N do
if (MS[i,j] = 1) then
begin
E:=E+1; { // nashli dugu }
MI[i,E]:=1;
MI[j,E]:=-1;
end;
for i:=1 to N do
begin
for j:=1 to E do
begin
if(MI[i,j]<0) then Write(' ',MI[i,j])
else Write(' ',MI[i,j]);
end;
WriteLn;
end;
end; { // !!! OF CASE = 0 }
1:
begin { // !!! OF CASE = 1 }
WriteLn('[x] Under Construction');
end; { // !!! OF CASE = 1 }
end; { <--- Добавить}
END;
блин... и то правда
спасибо!