作业帮pascal程序 输入单词按字母表顺序排序输出输入【随意】个单词,以end结尾,把输入的单词按照字典（字母表）顺序排列后输出,要求输入一个单词换一行继续输入,直到最后一行以end结束,用一维
来源：学生作业帮助网 编辑：作业帮 时间：2024/05/13 02:55:33
pascal程序 输入单词按字母表顺序排序输出输入【随意】个单词,以end结尾,把输入的单词按照字典（字母表）顺序排列后输出,要求输入一个单词换一行继续输入,直到最后一行以end结束,用一维
pascal程序 输入单词按字母表顺序排序输出
输入【随意】个单词,以end结尾,把输入的单词按照字典（字母表）顺序排列后输出,要求输入一个单词换一行继续输入,直到最后一行以end结束,用一维数组解
例：
输入
banana
pear
apple
end
运行后输出
apple
banana
pear
无需判断单词是否拼写正确
请高手给我改改这个,不知错在哪里
pascal程序 输入单词按字母表顺序排序输出输入【随意】个单词,以end结尾,把输入的单词按照字典（字母表）顺序排列后输出,要求输入一个单词换一行继续输入,直到最后一行以end结束,用一维
var
a:array[1..1000] of string;
i,j,n,b:integer;
k:string;
begin
n:=1;
readln(a[n]);
while a[n]'end' do
begin
n:=n+1;
readln(a[n]);
end;
dec(n);
for i:=1 to n-1 do
for j:=i+1 to n do
if a[i]>a[j] then
begin
k:=a[i]; a[i]:=a[j]; a[j]:=k;
end;
for i:=1 to n do
writeln(a[i]);
end.
问题补充回答如下：
while a[n]'end' do
begin
n:=n+1;
readln(a[n]); //你的程序错在这里,你用的是read,是不行的,因为你现在要读入字符串
end;