24H免费课程咨询  TEL:13401595960   QQ:1870218756  微信:13401595960(李老师)

东方博宜

网站首页 > 软件开发资讯 > 青少年编程

PASCAL编程笔记5

2017-06-17 14:22:49 东方博宜 阅读

1、分支语句


   if:如果


   then:那么


   else:否则



例子:如果今天不下雨,那么我就去打篮球,否则我就在家看电影。


    如果 下雨  那么


     看电影


    否则

      打篮球



    if 下雨  then

        

       看电影

    else 

       打篮球



例子:从键盘输入小明的成绩,如果该成绩小于60,则输出不及格,否则输出及格。

var a:integer;

begin

  read(a);

  if a < 60 then  

     writeln('bujige')

  else

     writeln('jige');

end.



例子:从键盘输入一个三位数,求该三位数每一位上的数字之和!


    输入:123


    输出:6


    

    输入:456


    输出:15



  思路:


        A、从键盘读取一个三位数!

        B、求出这个三位数百位、十位、个位上的数字。

        C、求和


  var x,a,b,c:integer;

begin

  read(x);

  a := x div 100;

  b := x div 10 mod 10;

  c := x mod 10;

  writeln(a +b +c );

end.



作业:


 A、回去抄写一遍本次课的代码(下次课随机抽取默写)!


 B、完成下列题目:



   1、从键盘输入一个四位数,求该四位数每位上的数字之和!


        输入 1234

        输出  10

  

   2、(思考题)从键盘输入一个三位数,然后倒序输出!



        输入 123


        输出 321


  


Powered by 东方博宜教育咨询江苏有限公司  ©2008-2017 www.czos.cn