1、写函数创建长度为10的数组。数组中的元素为递增的奇数。首项为1。
program proarr;
{定义求奇数序列的函数}
function jishu(n:integer):integer;
begin
jishu := 2 * n - 1;
end;
{定义数组，存放奇数}
var a:array[1..10] of integer;
i,j:integer;
begin
{为数组赋值}
for i := 1 to 10 do
a[i] := jishu(i);
{打印数组的值}
for i := 1 to 10 do
write(a[i],' ');
readln;
end.
2、创建长度为10的数组，数组中的元素为递增的等比数，比值为3。首项为1
program proarr;
var i,x:integer;
function dengbi(n:integer):integer;
begin
x := 1;
for i := 1 to n do
x := x * 2;
dengbi := x;
end;
var n,r:integer;
a:array[1..10] of integer;
begin
for i := 1 to 10 do
a[i] := dengbi(i);
for i := 1 to 10 do
writeln(a[i]);
readln;
end.
咨询电话：400-0808-102 联系QQ:1294015820
地址：常州新北区太湖东路常州创意园5楼
常州计算机基础培训学校|常州电脑基础培训中心|常州商务办公软件培训班
