基础Pascal

显示全部楼层 · 2009-3-21 22:35:48

有1到10十个数,要求把中间的5和6,五移动到前面第一个,六移动到最后一个.!只用一个循环!谢谢!
要求用free pascal

千问 · 2009-3-21 22:35:48

ls的连输出都没有。。。我用的就是FPprogram wood; var i,x:integer; a:array[1..10]of integer; begin for i:=1 to 10 do a:=i; x:=a[4];{交换4，5的位置} a[4]:=a[5]; a[5]:=x; x:=a[6]; for i:=6 to 9 do{改变6~10的值} a:=a[i+1]; a[10]:=x; for i:=1 to 10 do write(a:3); end....

千问 · 2009-3-21 22:35:48

var j,i:integer;
a:array[1..10] of integer;begin for i:=1 to 10 do a:=i; for i:=1 to 4 do begin
a[5-i]:=a[6-i];
a[10-i]:=a[11-i]...

千问 · 2009-3-21 22:35:48

program change(input,output);var a:array[1..10] of integer;n,i,j:integer;begin for i:=1 to 10 do read(a); n:=a[5];j:=a[6]; for i:=1 to 4 do a[i+1]:=a;...

千问 · 2009-3-21 22:35:48

var j,i:integer; a:array[1..10] of integer; begin for i:=1 to 10 do a:=i; a[1]:=5; a[10]:=6; end....