aktuelle Version des Vorlesungsskripts - ZIB

inp, { input file }
outp : text; { output file }
BEGIN {MAIN PROGRAM}
{====== Input of complete graph =====}
reset(inp);
rewrite(outp);
{- number of nodes -}
writeln(outp,’Enter number of nodes:’);
read(inp,n);
IF (nmax_n) THEN
BEGIN
writeln(outp,’Number of nodes too large or not positive!’);
HALT;
END;
{- initialize dope vector -}
nchoose2 := (n * (n-1)) DIV 2;
FOR i:=1 TO nchoose2 DO
w[i] := inf;
dope[1] := -1;
FOR i:=2 TO n DO
dope[i] := dope[i-1] + n - i;
{- input mode -}
writeln(outp,’Enter input mode:’);
read(inp,mode);
{- edge weights -}
CASE mode OF
0 : {* full matrix *}
BEGIN
FOR i:=1 TO n DO
FOR j:=1 TO n DO
BEGIN
read(inp, c);
IF i0) DO
BEGIN
IF (in) OR
(jn)
THEN BEGIN
writeln(outp,’Input error, node out of range!’);
HALT;
END;
IF i