主题:急!三个超级容易的题目,可我是初学者
彩虹的微笑
[专家分:0] 发布于 2009-03-29 13:47:00
1任意输入四个字符(英文),试着把它们按字典顺序输出,每个字符间空一格。
2任意输入一个同学的Pascal成绩:
90分以上为A(含90分) 60-80为C
80-90为B 60以下为D
回复列表 (共6个回复)
沙发
xieyubo [专家分:20] 发布于 2009-04-09 18:37:00
第一题:
const n=4;
var a:array[1..n] of char;
i,j:integer;t:char;
begin
for i:=1 to n do read(a[i]);
for i:=1 to n-1 do
for j:=n downto i+1 do
if a[j]<a[j-1] then
begin
t:=a[j];
a[j]:=a[j-1];
a[j-1]:=t;
end;
for i:=1 to n do write(a[i]:2);
end.
注意读入时不要输入空格。例如输入:yxca 则输出:a c x y
第二题:
var cj:integer;
begin
read(cj);
if cj>100 then write('Error!')
else if cj>=90 then write('A')
else if cj>=80 then write('B')
else if cj>=60 then write('C')
else if cj>=0 then write('D')
else write('Error!');
end.
板凳
小小DAVID [专家分:300] 发布于 2010-02-05 19:59:00
哈哈,凑个热闹
3 楼
CVN-70 [专家分:0] 发布于 2010-06-08 21:50:00
简单
4 楼
chip [专家分:80] 发布于 2010-08-06 11:56:00
既然有人卖力做了,我就偷懒不做了,哈哈!
5 楼
593170024 [专家分:500] 发布于 2010-09-23 14:12:00
3道题怎么2道题?
6 楼
lidongchao [专家分:30] 发布于 2010-10-04 11:31:00
我也会
我来回复