二维数组

program arrtest;

{$APPTYPE CONSOLE}
type
  matrix = array[1..5, 1..4] of Integer;

var
  a: matrix;
  i, j: Integer;

begin
  //数组赋值，按矩阵格式输出
  for I := 1 to 5 do
    for j := 1 to 4 do
    begin
      a[i, j] := i * j;
      if j = 4 then
        Writeln(a[i, j]: 4)
      else
        write(a[i, j]: 4);
    end;
  readln;
end.

效果如下:

 

之前学习APPLEM2的代码的过程中遇到好多基本的东西一知半解(比如用到的第三方控件,对那些控件的代码看的是一脸迷糊),为了系统学习一下,重新回头把C语言和PASCAL的基础知识学习了一遍,在这里开辟一个知识点的回顾,帮助自己复习一下,加深对代码的理解.之后将继续对APPLEM2的代码进行学习,本来想快点熟悉的,结果对照基础学习了一遍才发现,不是工科出身的我学习起来有一定难度,不过我不会放弃,知识都是一点一滴积累的,没有谁是天才,即便有,我也相信天才靠的是勤奋...