扫一扫,加我们为好友有惊喜哦~
-->

核心课程
开班动态
专题服务

您当前所在位置:首页 > 中心动态 >>
[常州电脑培训]pascal基本运算讲解

青少年编程学习咨询:0519-68877558(新北校区)、0519-69886161(文化宫校区)

integer:整数
real:小数
string:字符串

1、输入两个变量的值x和y,计算两个变量的和和差分别是多少?
方法一:输出三个值,中间一个值是括号
var x,y:integer;
begin
   readln(x,y);
   write(x + y);
   write(' ');
   write(x - y);
   readln;
end.

方法二:一次性输出三个值,中间用逗号隔开
var x,y:integer;
begin
   readln(x,y);
   writeln(x + y,' ',x - y);
   readln;
end.

例子:计算两个变量的和、差、积、商
var x,y:integer;
begin
   readln(x,y);
   writeln(x + y,' ',x - y);
   writeln(x * y,' ',x / y);
   readln;
end.

2、div:求商  mod:求余数
34 div 10 = 3
34 mod 10 = 4

45 div 10 = 4
45 mod 10 = 5

78 div 10 = 7
78 mod 10 = 8

结论:任何一个数 mod 10 = 个位

例题:输入一个两位整数,分别输出这个数的十位和个位
输入:12
输出:
1  2

样例程序:
var x,s,g:integer;
begin
    readln(x);
    s := x div 10;
    g := x mod 10;
    writeln(s,' ',g);
    readln;
end.

例题:输入一个两位数,将这个两位数倒过来输出
如:输入:12(s = 1,g = 2  g * 10 + s)
输出:21

12 = 1 * 10 + 2 * 1
123 = 1 * 100 + 2 * 10 + 3 * 1

样例程序:
var x,s,g:integer;
begin
    readln(x);
    s := x div 10;
    g := x mod 10;
    writeln(g,s);
    readln;
end.

方式二:
var x,s,g:integer;
begin
    readln(x);
    s := x div 10;
    g := x mod 10;
    writeln(g * 10 + s);
    readln;
end.

3、求一个两位数和它倒过来的数字之和
输入:18
输出:99
var x,s,g:integer;
begin
    readln(x);
    s := x div 10;
    g := x mod 10;
    writeln(g * 10 + s + x);
    readln;
end.

4、求一个三位整数的各个位上的数,用空格隔开。
输入:369
输出:3 6 9

4567 mod 10 = 7
4567 mod 100 = 67
4567 mod 1000 = 567

4567 div 10 = 456
4567 div 100 = 45
4567 div 1000 = 4

369 div 100 = 3
369 mod 10 = 9
369 div 10 mod 10 = 6
369 mod 100 div 10 = 6

例子:求一个三位数各个位的平方和。
var x,s,g,b:integer;
begin
    readln(x);
    b := x div 100;
    s := x div 10 mod 10;
    g := x mod 10;
    writeln(s * s + g * g + b * b);
    readln;
end.

5、拆出一个四位数的各个位,输出它倒过来的数,要求是一个整数,用空格隔开。
输入:1234
输出:1 2 3 4

样例程序:
var g,s,b,q,x:integer;
begin
    readln(x);
    g := x mod 10;
    s := x div 10 mod 10;
    b := x mod 1000 div 100;
    q := x div 1000;
    writeln(g * 1000 + s * 100 + b * 10 + q);
    readln;
end.

6、某电话公司利用四位数传递信息,现在要求对这个四位数进行加密,加密方式是每一位数加5后对10取余数,然后第一位和第三位对调、第二位和第四位对调。
请写出加密程序;
写出解密程序;

思路:
A、拆出这个数的各个位
B、(每位 + 5) mod 10
C、十 * 1000 + 个 * 100 + 千 * 10 + 百

样例程序:
var g,s,b,q,x:integer;
begin
    readln(x);
    g := x mod 10;
    s := x div 10 mod 10;
    b := x mod 1000 div 100;
    q := x div 1000;

    g := (g + 5) mod 10;
    s := (s + 5) mod 10;
    b := (b + 5) mod 10;
    q := (q + 5) mod 10;

    writeln(s * 1000 + g * 100 + q * 10 + b);
    readln;
end.

作业:
1、求一个任意的四位整数千位和百位之和 减去 个位和十位之和 的差。
输入:5621
输出:8

思路:
A、拆出:千位、百位、十位、个位
B、输出:千位 + 百位 - (十位 + 个位)

2、求一个五位数每位的立方和。
输入:12345
输出:225

立方:某个数的三次方 2的立方= 2 * 2 * 2 = 8

更多精彩请收藏:常州电脑培训


精彩文章推荐
辽宁卫视:微博卖鸡蛋,月入过万[2014-2-26]
【淘宝培训】淘宝SEO学习笔记[2013-9-25]
样式表入门知识[2013-6-18]
网页设计学习笔记——表单[2013-3-20]
常州网络营销培训:云端定位广告[2012-8-14]
软件测试的基本概念[2012-7-8]
保护个人电脑的十个常识[2012-4-11]
常州软件培训——数据库系统管理[2011-12-31]


返回顶部