注册 登录  
 加关注
   显示下一条  |  关闭
温馨提示!由于新浪微博认证机制调整,您的新浪微博帐号绑定已过期,请重新绑定!立即重新绑定新浪微博》  |  关闭

金瑞中学信息技术教学博客平台

有梦想的教师最幸福…

 
 
 

日志

 
 

信息学奥赛题库10  

2012-05-31 11:50:08|  分类: ◇ 信息学奥赛 |  标签: |举报 |字号 订阅

  下载LOFTER 我的照片书  |

1、读入一个小写字母。如果这个字母在字母表的前半部,则输出其后继字母;否则输出其前趋字母。

     program example4_3;

         var letter:char;

         begin

             readln(letter);

             if letter<=’m’  then writeln(Succ(letter))

                       else writeln(Pred(letter))

    end.

 

                        1/(x-2)     (x≠2)     

2、  y=      

                         x           (x=2)

 

    program example4_4;

         var  y,x:real;

         begin

              writeln('Input x: ');

              readln(x);

              if x=2 then y:=x else y:=1/(x-2);

              writeln('y=', y)

    end.

 

                    a  (x<a)

3、     y= 1  (x=a)

                    x  (x>a)

 

    program example4_5_1;

          var  y,x,a:real;

         begin

             writeln('Input a and x: ');

            readln(a, x);

            if x<a then y:=a;

           if x=a then y:=1;

           if x>a then y:=x;

          writeln('y=',y)

    end.

 

    程序运行结果如下:

    Input a and x:

    1 4     (从键盘输入a=1x=4)

    y=4.0000000000E+00

 

4、  输出一位数字的英文拼法。

    program example4_6;

    Var n: integer;

    Begin

      write('Input the number: ');

      readln(n);

        case n of

            0:  writeln(’Zero’);

            1:  writeln(’One’);

            2:  writeln(’Two’);

            3:  writeln(’Three’);

            4:  writeln(’Four’);

            5:  writeln(’Five’);

            6:  writeln(’Six’);

            7:  writeln(’Seven’);

            8:  writeln(’Eight’);

            9:  writeln(’Nine’)

        end  {case}

    end.

 

5、  求两个实数的和、差、积、商。

    program example4_7;

var   a,b,w : real;

   operator : char;

    begin

      write(’Enter two operands:  ’);

readln(a,b);

write(’Enter operator:  ’);

readln(operator);

        case operator of

          ’+’ :  w:=a+b;

          ’-’ :  w:=a-b;

          ’*’ :  w:=a*b;

          ’/’ :  w:=a/b

         end;

        writeln(w) 

    end.

6、  根据学生的成绩给予对应的等第,对应的关系如下表所示。

 

 

成绩

等第

90~100

80~89

60~79

60以下

 

    program example4_8;

    Var s:integer;

        ch:char;

    Begin

      write('input the score: ');

      readln(s);

      if (s>=0) and (s<=100) then

          begin

             case s div 10 of

                  10,9:  ch:='A';

                     8:  ch:='B';

                   7,6:  ch:='C';

             else        ch:='D'

             end;{case}

             writeln(s, '--', ch)

          end

       else writeln('The score is elegal')

    end.

  评论这张
 
阅读(32)| 评论(0)
推荐 转载

历史上的今天

在LOFTER的更多文章

评论

<#--最新日志,群博日志--> <#--推荐日志--> <#--引用记录--> <#--博主推荐--> <#--随机阅读--> <#--首页推荐--> <#--历史上的今天--> <#--被推荐日志--> <#--上一篇,下一篇--> <#-- 热度 --> <#-- 网易新闻广告 --> <#--右边模块结构--> <#--评论模块结构--> <#--引用模块结构--> <#--博主发起的投票-->
 
 
 
 
 
 
 
 
 
 
 
 
 
 

页脚

网易公司版权所有 ©1997-2017