您的位置：程序门 -> delphi -> 语言基础/算法/系统设计

考试题目,请高手帮帮忙

[收藏此页] [打印本页]选择字色：背景色：字体：[大][中][小]

考试题目,请高手帮帮忙[已结贴,结贴人:terryding82]

发表于：2007-12-16 10:21:05 楼主

编制程序，根据用户输入的考试成绩（百分制，若有小数则四舍五入），按下表的划分标准，输出相应的等级，取名为pro3，保存在上述文件夹中

分数等级
90-100 优秀
80-89 良好
70-79 中等
60-69 及格
〈60 不及格
提示：可以使用case语句；也可使用if..then…else语句。
四舍五入可以使用round函数。

发表于：2007-12-16 11:16:391楼得分:20

真是愧对你的专业、你的父母，这种问题也来提问，随便看一下书就知道。

delphi（pascal) code

function getmarkrank（const mark: double): string;
begin
  case round（mark) of
    90..100: result := '优秀';
    80..89 : result := '良好';
    70..79 : result := '中等';
    60..69 : result := '及格';
    0..59  : result := '不及格';
    else result := '非法分数';   
  end;
end;

调用，比如通过显示对话框方式，也可以输出到一个文本框中：
showmessage（getmarkrank（89.5));

发表于：2007-12-16 11:23:132楼得分:0

我就是没有书...不过还是感谢你

下一篇：谁能帮我遍这个程序呀
上一篇：text 文件内容查找出错，谁帮我看看代码，在线等

其他资讯