home *** CD-ROM | disk | FTP | other *** search
/ Power Programming / powerprogramming1994.iso / progtool / pascal / pascsrc.arc / ARRAYS2.PAS < prev    next >
Pascal/Delphi Source File  |  1988-01-15  |  1KB  |  38 lines

  1.                                 (* Chapter 6 - Program 2 *)
  2. program Multiple_Arrays;
  3.  
  4. var Index,Count     : integer;
  5.     Checkerboard    : array[1..8] of array[1..8] of integer;
  6.     Value           : array[1..8,1..8] of integer;
  7.  
  8. begin (* Main program *)
  9.    for Index := 1 to 8 do begin  (* index loop *)
  10.       for Count := 1 to 8 do begin
  11.          Checkerboard[Index,Count] := Index + 3*Count;
  12.          Value[Index,Count] := Index + 2*Checkerboard[Index,Count];
  13.       end;
  14.    end;  (* of index loop *)
  15.  
  16.    Writeln(' Output of checkerboard');
  17.    Writeln;
  18.    for Index := 1 to 8 do begin
  19.       for Count := 1 to 8 do
  20.          Write(Checkerboard[Index,Count]:7);
  21.       Writeln;
  22.    end;
  23.  
  24.    Value[3,5] := -1;  (* change some of the value matrix *)
  25.    Value[3,6] := 3;
  26.    Value[Value[3,6],7] := 2;  (* This is the same as writing
  27.                                 Value[3,7] := 2;            *)
  28.    for Count := 1 to 3 do
  29.       Writeln; (* Three blank lines *)
  30.    Writeln('Output of value');
  31.    Writeln;
  32.    for Count := 1 to 8 do begin
  33.       for Index := 1 to 8 do
  34.          Write(Value[Count,Index]:7);
  35.       Writeln;
  36.    end;
  37. end. (* of main program *)
  38.