高考问答sql中coalesce函数:一个pascal语言填空题
来源：百度文库 编辑：高考问答 时间：2024/05/03 05:34:03
下面的程序从键盘接收任意6个数方如数组A组中，假设这六个数为：8 1 4 2 5 6，则要输出一个具有如下内容的方阵。
8 1 4 2 5 6
6 8 1 4 2 5
5 6 8 1 4 2
2 5 6 8 1 4
4 2 5 6 8 1
1 4 2 5 6 8
program jym(input,output);
var
a:array[1..6] of integer;
i,j,k:integer;
begin
for i:= 1 to 6 do
read(空 1）;
for i:=1 to 6 do
begin
if i=1 then k:=1
else k:=(空2);
for j:=1 to (空3) do
begin
write (a[k]:2);
if k=6 then k:=1
else k:=(空4)
end;
writeln
end
end.
8 1 4 2 5 6
6 8 1 4 2 5
5 6 8 1 4 2
2 5 6 8 1 4
4 2 5 6 8 1
1 4 2 5 6 8
program jym(input,output);
var
a:array[1..6] of integer;
i,j,k:integer;
begin
for i:= 1 to 6 do
read(空 1）;
for i:=1 to 6 do
begin
if i=1 then k:=1
else k:=(空2);
for j:=1 to (空3) do
begin
write (a[k]:2);
if k=6 then k:=1
else k:=(空4)
end;
writeln
end
end.
空1:a[i]
空2:8-i
空3:6
空4:k+1;
这题不是很难，只有理清题目的思路就可以。
1:a[i]
2:8-i
3:6
4:k+1;
像是NOIP的题……
好难啊 不知道耶