pascal 输入10个字母，按顺序排列出来，用冒泡法做做好了之后，再给积分

显示全部楼层 · 2012-3-27 22:00:05

const n=10;
//定义n=10var i,j:longint; ch:char;
a:array[1..10]of char;begin
for i:=1 to n do
read(a);
for i:=1 to n-1 do
for j:=i+1 to n do
if a>a[j] then
//字符是可以直接比较大小的，按Ascii码的大小比较
begin ch:=a; ...

千问 · 2012-3-27 22:00:05

跟数字的排序是一样的var
i,j:longint;
a:array[1..10] of char;begin
for i:=1 to 10 do read(a);{如果是每行读入一个的话，请把read改成readln}
for i:=1 to 9 do
for...

千问 · 2012-3-27 22:00:05

vara,d,e,i,j,k:integer;b:array[1..26]of char;c:array[1..26]of integer;beginreadln(a);for a:=1 to a dobegin
readln(b[a]);
c[a]:=ord(b[a]);end...

pascal 输入10个字母，按顺序排列出来，用冒泡法做 做好了之后，再给积分

pascal 输入10个字母，按顺序排列出来，用冒泡法做做好了之后，再给积分