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的代码进行学习,本来想快点熟悉的,结果对照基础学习了一遍才发现,不是工科出身的我学习起来有一定难度,不过我不会放弃,知识都是一点一滴积累的,没有谁是天才,即便有,我也相信天才靠的是勤奋...
