Transportation problem: Difference between revisions

Content added Content deleted

Inline

@@ Line 921: / Line 921: @@
       Sb:longint=0;
-Type predpr=Array [1..N] of longint;
+Type points=Array [1..N] of longint;
-     rasp=Array [1..N,1..N] of longint;
+     distribution=Array [1..N,1..N] of longint;
-Var A,B,alfa,beta,B_d,x:predpr;
+Var A,B,alfa,beta,B_d,x:points;
-    c,p:rasp;
+    c,p:distribution;
     f,f0,x_min,Sp:longint;
     Nt,x_p,r,r_min,ki,kj,Na,Nb,h,l,i,j:byte;
@@ Line 931: / Line 931: @@
     u:Array[1..N*N] of byte;
-Procedure Nul (var a:predpr);
+Procedure Nul (var a:points);
 var i:byte;
 Begin
@@ Line 1,042: / Line 1,042: @@
 End;
-Procedure EnterIntoTheTable (var a:predpr; b:byte; c:char); { Entering into the table }
+Procedure EnterIntoTheTable (var a:points; b:byte; c:char); { Entering into the table }
 var i,l,m:byte;
 Begin
@@ Line 1,076: / Line 1,076: @@
 Function CalculatingThePotentials:boolean;      { Calculating the potentials }
 var k,i,j:byte;
-    Z_a,Z_b:predpr;
+    Z_a,Z_b:points;
     d:boolean;
 Begin