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

东方博宜

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

PASCAL编程笔记4

2017-06-17 14:20:28 东方博宜 阅读

1、


   基本运算:


   +  -  *  / 


   mod  求余数


   div  整除


   78 div 10 = 7


   78 mod 10 = 8



2、有一个二位数,如何求出该数的十位和个位上的数字的和!

   

var a,b,c:integer;

begin


  a := 78;

  b := 78 div 10;

  c := 78 mod 10;

  writeln(b + c);

end.



3、如何取出三位数每一位上的数字?


    123 


    百位:  123 div 100


    十位:  123  div 10 mod 10


    个位:  123  mod 10



4、如何取出四位数每一位上的数字


    5678


    千位:  5678 div 1000


    百位:  5678 div 100 mod 10


    十位:  5678 div 10 mod 10


    个位:  5678 mod 10



5、如何取出5位数上的每一位上的数字


    34567


    万位:   34567 div 10000


    千位:   34567 div 1000 mod 10


    百位:   34567 div 100 mod 10


    十位:   34567 div 10 mod 10


    个位:   34567 mod 10 

   

6、  read 读


     从键盘读取一个数,存放到变量中!


     var a:integer;

begin

   read(a);

   writeln(a);

end.     




7、从键盘读取2个数,并计算这个2个数的和!


   var a,b:integer;

begin

   read(a);

   read(b);

   writeln(a + b);

end.

  



8、做题网站:


   http://oj.jzxx.net/


   



9、1001: 【入门】已知一个圆的半径,求解该圆的面积和周长


var a,b,c:real;

    r:integer; 

begin

   read(r);

   a := 3.1415926;

   b := a * r * r;

   c := 2 * a * r;

   writeln(b:0:2);

   writeln(c:0:2);

end.




--------------作业-------------------------------------------------

如何在一行内输出2个数,中间有个空格!


var a,b:integer;

begin

   a := 1;

   b := 2;

   writeln(a,' ',b);

end.



1006: 【入门】求商数和余数


1004: 【入门】求任意三位数各个数位上数字的和




A、回去书写一遍今天的上课。



B、完成作业中2道题目。


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