Question

关于pascal数组

能不能给个完整的关于Pascal数组的代码，在详细解释一下

Answer 1

var
a:array[1..10]of longint; b:longint;
begin
randomize;
for b:=1 to 10 do
begin
a[b]:=random(30)+1; writeln(a[b]); end;
end.
这是个很简单的运用数组的程序。可以随机出现10个数。
数组的定义格式： 变量名：array[数组的范围｛由..连接。可以定义一个二维数组，如a:array[1..100,1..100]of longint;还可以定义更高的｝] of 数组的类型；
运用数组时，一般采用格式： 变量名[x｛由数组几维决定中括号内的数字个数。｝]
一般来说，一个数组等于多个变量，我们需要用变量名后面的中括号来确定数组中具体的一个变量。运用数组也更加方便运算和循环。
关于多维数组，有点像多维空间一样，需要具体定位数组中的一个变量，就如在一个空间里找人。

Answer 2

type
asd=array[1..1000]of longint;
var
js,c:longint;
i:longint;
dsa:asd;
procedure sub(x: longint;var yy: boolean);
var k,m:longint;
begin
k:=trunc(sqrt(x));
for m:=3 to k do
if odd(m) then
if x mod m=0 then yy:=false;
end;
procedure abc(t:longint);
var
a,b,s:longint;
n:longint;
yes: boolean;
begin
b:=3;
repeat
a:=b;
repeat
yes:=true;
inc(b,2);
sub(b,yes);
if yes then s:=b-a;
until yes;
until s>=t;
for n:=a+1 to a+t do begin
dsa[n]:=1;
js:=js+1;
end;
dsa[js+a+1]:=2;
writeln;
readln
end;
begin
read(c);
abc(c);
for i:=1 to 1000 do begin if dsa[i]=1 then write(i,' ');
if dsa[i]=2 then write(i);
end;
readln;
end.
打字不易，如满意，望采纳。

追问

能不能解释一下数组。？

Answer 3

type
asd=array[1..1000]of longint;
var
js,c:longint;
i:longint;
dsa:asd;
procedure sub(x: longint;var yy: boolean);
var k,m:longint;
begin
k:=trunc(sqrt(x));
for m:=3 to k do
if odd(m) then
if x mod m=0 then yy:=false;
end;
procedure abc(t:longint);
var
a,b,s:longint;
n:longint;
yes: boolean;
begin
b:=3;
repeat
a:=b;
repeat
yes:=true;
inc(b,2);
sub(b,yes);
if yes then s:=b-a;
until yes;
until s>=t;
for n:=a+1 to a+t do begin
dsa[n]:=1;
js:=js+1;
end;
dsa[js+a+1]:=2;
writeln;
readln
end;
begin
read(c);
abc(c);
for i:=1 to 1000 do begin if dsa[i]=1 then write(i,' ');
if dsa[i]=2 then write(i);
end;
readln;
end.
求采纳为满意回答。

追问

能不能解释一下数组

Answer 4

type
asd=array[1..1000]of longint;
var
js,c:longint;
i:longint;
dsa:asd;
procedure sub(x: longint;var yy: boolean);
var k,m:longint;
begin
k:=trunc(sqrt(x));
for m:=3 to k do
if odd(m) then
if x mod m=0 then yy:=false;
end;
procedure abc(t:longint);
var
a,b,s:longint;
n:longint;
yes: boolean;
begin
b:=3;
repeat
a:=b;
repeat
yes:=true;
inc(b,2);
sub(b,yes);
if yes then s:=b-a;
until yes;
until s>=t;
for n:=a+1 to a+t do begin
dsa[n]:=1;
js:=js+1;
end;
dsa[js+a+1]:=2;
writeln;
readln
end;
begin
read(c);
abc(c);
for i:=1 to 1000 do begin if dsa[i]=1 then write(i,' ');
if dsa[i]=2 then write(i);
end;
readln;
end.
是否可以解决您的问题？

追问

能不能解释一下数组