首页 > 试题广场 >

program excp2 var ...

[填空题]

program   excp2
var
  i, j : integer;
  a : array[1..14] of  integer;
procedure sw(i1, j1 : integer);
var
  k1 : integer;
begin
  for  k1:= 1  to(j1 - i1 + 1) div 2  do
  begin
    a[i1 + k1 - 1] := a[i1 + k1 - 1] + a[j1 - k1 + 1];
    a[j1 - k1 + 1] := a[i1 + k1 - 1] - a[j1 - k1 + 1];
    a[i1 + k1 - 1] := a[i1 - k1 + 1] - a[J1 - k1 + 1];
  end;
end;
begin
  j := 211;
  for i:=1 to 14 do
  begin
    a[i] := i;
    j := j - i
  end;
  sw(1, 4);
  sw(5, 10);
  sw(11, 14);
  sw(1, 14);
  for i:=1  to 14  do
  begin
    if  j mod I = 1  then write (a[i]: 3);
    j := j - a[i];
  end;
  WRITElN
end.

程序输出结果为：1

查看正确选项