本文通过一个Pascal程序示例展示了如何初始化及访问一维数组，并演示了简单的循环输出数组元素的过程。该程序还尝试超出数组边界进行赋值以展示编译器检查机制。
program Project2;
{$APPTYPE CONSOLE}
uses
SysUtils;
//interface implementation 怎么用暂不清楚
var
str:string;
A: array[0..2] of Integer;
B: array[1..2] of Integer;
i : Integer;
begin
{ TODO -oUser -cConsole Main : Insert code here }
{ Writeln('请输入一个整数');
Readln(str);
Writeln('你输入的是：',str);
}
A[0] := 1;
A[1] := 12;
A[2] := 15;
B[1] := 21;
B[2] := 22;
B[3] := 27; //错误,提示越界，作为右值不提示错误
for i:=0 to 2 do
begin
Writeln('A ',i,' ',A[i]);
end;
for i:=0 to 3 do
begin
Writeln('B ',i,' ',B[i]);
end;
Readln;
end.
{$APPTYPE CONSOLE}
uses
SysUtils;
//interface implementation 怎么用暂不清楚
var
str:string;
A: array[0..2] of Integer;
B: array[1..2] of Integer;
i : Integer;
begin
{ TODO -oUser -cConsole Main : Insert code here }
{ Writeln('请输入一个整数');
Readln(str);
Writeln('你输入的是：',str);
}
A[0] := 1;
A[1] := 12;
A[2] := 15;
B[1] := 21;
B[2] := 22;
B[3] := 27; //错误,提示越界，作为右值不提示错误
for i:=0 to 2 do
begin
Writeln('A ',i,' ',A[i]);
end;
for i:=0 to 3 do
begin
Writeln('B ',i,' ',B[i]);
end;
Readln;
end.
扫一扫
1270
被折叠的 条评论
为什么被折叠?
到【灌水乐园】发言
