home *** CD-ROM | disk | FTP | other *** search
/ Oakland CPM Archive / oakcpm.iso / sigm / vol133 / print.pas < prev   
Encoding:
Pascal/Delphi Source File  |  1984-04-29  |  1.5 KB  |  66 lines
  1. EXTERNAL LINEAR::PRINT(1);
  2.  
  3. Procedure PRINTH;
  4. begin
  5.   writeln;
  6.   writeln(' PROGRAM NAME = ', Pname);
  7.   writeln(' Number of Rows   = ', M:6);
  8.   writeln(' Number of Columns   = ', N:6);
  9.   writeln
  10. end(*---of PRINTH---*);
  11.  
  12. Procedure PRINTC( B : row ; C : col );
  13. VAR    I : integer;
  14. begin
  15.   writeln;
  16.   writeln('  ---Initial Data---');
  17.   writeln;
  18.   writeln(' Objective Vector, Cost of Feeds');
  19.   writeln;
  20.   For I:=1 to N do
  21.     writeln( Colname[I]:22, C[I]:14:8 );
  22.   writeln;
  23.   writeln(' RHS Vector, Nutrient Requirements');
  24.   WRITELN;
  25.   For I:=1 to M do
  26.     writeln( Rowname[I]:22, B[I]:14:8 );
  27.   writeln
  28. end(*---of PRINTC---*);
  29.  
  30. Procedure PRINTD;
  31. VAR    I, J : integer;
  32. begin
  33.   writeln;
  34.   writeln(' ABAR array');
  35.   writeln;
  36.   For J:=1 to N do
  37.     For I:=1 to M do
  38.       Writeln(I:6,J:6,'  ', Rowname[I]:22, Colname[J]:22, ABAR[I,J]:14:8);
  39.   writeln;
  40.   {writeln(' ABAR(M+1), ABAR(M+2)'); this section omitted as meaningless
  41.   writeln;
  42.   For I:=1 to N do
  43.     writeln( Colname[I]:22, ABAR[M1,I]:14:8, ABAR[MP,I]:14:8 );}
  44.   writeln
  45. end(*---of PRINTD---*);
  46.  
  47. Procedure PRINTX;
  48. VAR    I : integer;
  49.     S : STRING 20;
  50. begin
  51.   writeln;
  52.   writeln(' List and X Arrays');
  53.   writeln('                         FEED               LBS (CWT)');
  54.   writeln;
  55.   For I:=1 to MP do
  56.     begin
  57.     S := '                    ';
  58.     If (list[I]<=N) then S := Colname[ List[I] ];
  59.     If I>M then S := Rowname[I] ;
  60.     writeln( I:8,'  ', S:22, list[I]:7, X[I]:18:8 )
  61.     end(*FOR*);
  62.   writeln('               "M+1" is cost of ration times (-1)');
  63.   writeln
  64. end(*---of PRINTX---*);
  65.  .
  66.