回 帖 发 新 帖 刷新版面

主题:急!三个超级容易的题目,可我是初学者

1任意输入四个字符(英文),试着把它们按字典顺序输出,每个字符间空一格。
2任意输入一个同学的Pascal成绩:
     90分以上为A(含90分)     60-80为C
     80-90为B                  60以下为D

回复列表 (共6个回复)

沙发

第一题:
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.

板凳

哈哈,凑个热闹

3 楼

简单

4 楼

既然有人卖力做了,我就偷懒不做了,哈哈!

5 楼

3道题怎么2道题?

6 楼

我也会

我来回复

您尚未登录,请登录后再回复。点此登录或注册