8、整除和求余.ppt

* 第八讲 整除和求余 整除运算DIV、求余运算MOD在整数处理时有很多技巧，包括求整除商、求整数的某位数、四舍五入求整、求周期问题等等。 第八讲 整除和求余 一、基本功能运算 1、输入两个整数a和b，计算a除以b的商 和a除以b的余数。 program ex1_1; var a,b,s,y:integer; begin write(‘a,b=’); readln(a,b); s:=a div b; y:=a mod b; writeln(a,’/’,b,’=’,s,’ yu ’,y) end. 请用ab、a=b、ab多种情况输入数据，得出两种基本运算的特点。(8与3；5与5；2与3) 第八讲 整除和求余 2、时间的小时、分钟、秒之间有如下关系：1小时=60分，1分=60秒。输入秒，转换成X时X分X秒的格式。 program ex1_2; var s,s1,m,h:integer; begin write(‘Input s:’); readln(s); s1:=s; m:=s div 60; h:=m div 60; m:=m mod 60; {去掉了小时整数后留下的整分钟数} s:=s mod 60; {去掉了分钟整数后留下的整秒数} writeln(s1,’s=’,h,’h’,m,’m’,s,’s’) end. 说明：首先，把秒转换成分，在把分转换成小时，最后求出扣除小时后的分和去除分的秒。 第八讲 整除和求余 3、爱计算机计算机从娃娃抓起爱计算机计算机从娃娃抓起……依次重复排列，请问：该长串的第100个字是原字串的第几个字？第N个字是原字串的第几个字？ program ex1_3; var m,n:integer; begin n:=100; m:=n mod 12; writeln(Di 100 ge zi shi di ,m, zi.); write(Input n:); readln(n); m:=n mod 12; writeln(Di ,n, ge zi shi di ,m, zi.); end. {注：此程序执行时若所查的字正好是原字串长度的整倍数，则输出为零，这意味着所查的字即为原字串的最后一个字。在此例中也就是第12个字“起”。} 第八讲 整除和求余 二、求某位数字 4、输入一个任意的三位整数，依次输出百位数字、十位数字和个位数字。 program ex1_4; var n,b,s,g:integer; begin write(Input n:); readln(n); b:=n div 100; g:=n mod 10; s:=n div 10 mod 10; writeln(b=,b, s=,s, g=,g) end. 说明：通常用div取左边的数字，用mod取右边的数字。 第八讲 整除和求余 4、输入一个任意的四位整数，依次输出千位数字、百位数字、十位数字和个位数字。 program ex1_4; var n:longint; b,s,g,q:integer; begin write(Input n:); readln(n); q:=n div 1000; b:=n div 100 mod 10; s:=n div 10 mod 10； g:=n mod 10; writeln(‘q=,q, b=,b, s=,s, g=,g) end. 说明：通常用div取左边的数字，用mod取右边的数字。 第八讲 整除和求余 5、能被3整除的特征为：各个数位之和能被3整除。对于输入一个四位数字，判断其是否能被3整除。 program ex1_5; var n,a,b,c,d,s,y:integer; begin write(Input n:); readln(n); d:=n mod 10; n:=n div 10; c:=n mod 10; n:=n div 10; b:=n mod 10; a:=n div 10; s:=a+b+c+d; y:=s mod 3; writeln(y=,y); end. 说明：从左到右，依次取出千、百、十、个各位数字，然后相加，相加之和除3的余数为0，说明该数能被3整除，余数不为0，则不能被3整除。 第八讲 整除和求余 练习题 1、人民币分元、角、分。请你以输入以分为单位的某一个数，然后以×元×角×分的格式输出结果。 2、有一根长9131厘米长的铁丝，全部做成若干个边长为11厘米的正方形或全部做成若干个边长为17厘米宽6厘米的长方形若干个，做成哪一种余料更少? 3、今天是星期六，从今天起，第1