神马品牌网武警交通部队副政委:一段pascal小程序
来源：百度文库 编辑：神马品牌网 时间：2024/04/29 11:39:09
program xx(input output);
var
a:array[1..200] of integer;
temp ,i,j :integer
begin
for i:=1 to 200 do
read(a[i]);
for i{=1 to 199 do
if a[j] <a[j+1] then
begin
temp:=a[j];
a[j]=a[j+1];
a[j+1]:=temp;
end;
for i:=1 to 200 do
write(a[i]);
end.
请各位大虾加一句使它完整,并逐句解释
麻烦啦!!!
(打得好累------)
是冒泡排序
var
a:array[1..200] of integer;
temp ,i,j :integer
begin
for i:=1 to 200 do
read(a[i]);
for i{=1 to 199 do
if a[j] <a[j+1] then
begin
temp:=a[j];
a[j]=a[j+1];
a[j+1]:=temp;
end;
for i:=1 to 200 do
write(a[i]);
end.
请各位大虾加一句使它完整,并逐句解释
麻烦啦!!!
(打得好累------)
是冒泡排序
program xx(input output); /程序首部/
var /设置变量/
a:array[1..200] of integer;
temp :real;
i,j :integer;
begin
for i:=1 to 200 do
read(a[i]); /输入200个数到数组a中，就是要比较的数/
for i:=1 to 199 do /200个数，两两比较，要199次/
for j:=1 to 200-i do/依次递减，循环次数依次少1/
if a[j] <a[j+1]/前后两数比较大小,若后数大/
then begin
temp:=a[j]; /提出小的值/
a[j]=a[j+1]; /将第一位赋值给大数/
a[j+1]:=temp; /将小的值赋值给第二位，进行第二次比较/
end;
for i:=1 to 200 do
write(a[i]); /循环，依次打印排好的顺序/
end.
冒泡排序的基本思想是：依次比较相邻的两个数，将大数放在前面，小数放在后面。
举例：3 5 1 8
5 3 1 8
5 3 1 8
5 3 8 1
5 3 8 1
5 8 3 1
8 5 3 1
从C开始学的 对这种编程风格 已经不习惯了
没学过