turbo pascal 11教学版

输入：8 7 20 输出：10 1、先a div b求商数；
2，再a mod b 求余数*10；
3、如此循环n遍
var a,b,n,i,t:integer; begin readln(a,b,n); a:=a mod b;t:=0; for i:=1 to n do begin a:=a*10; if a div b mod 2=1 then t:=t+1; a:=a mod b; end; writeln(t); readln; end.
变形的斐波那契 问题描述：设有一个数列A1，A2， A3，……，AN……，其中A1，A2由 键盘输入，从A3开始，通过下列的 公式计算： var n,a1,a2,a3,i:longint; AN-2 AN-1 AN begin 偶数 奇数 -2+AN-1 write(‘N,A1,A2=');readln(n,a1,a2); 奇数 偶数 AN-2+2AN-1 for i:=3 to n do begin 偶数 偶数 AN-2+AN-1+1 if (a1 mod 2=0)and(a2 mod 2=1) then a3:=2*a1+a2; 奇数 奇数 AN-2+AN-1 if (a1 mod 2=1)and(a2 mod 2=0) then a3:=a1+2*a2; if (a1 mod 2=0)and(a2 mod 2=0) then a3:=a1+a2+1; 如：A1=1，A2=2， if (a1 mod 2=1)and(a2 mod 2=1) then a3:=a1+a2; 则A3=1+2*2=5， a1:=a2; ;(前项=后项，递推） A4=4+5=9， a2:=a3; A5=5+9=14 end; 输入N和A1，A2，输出第N项。 writeln('A(',n,')=',a3); readln; 如输入：N ，A1 ，A2= 9 1 2 则输出：A（9）=269 end.
练习2
有一列数1、3、5、 7、9、1、3、5、7、9、 1、3、5、7、9、……， 输入正整数n，求第n个 数及这n个数之和是多 少?
例：输入：8 输出：5 34
var n,a,s,i:longint; begin readln(n); a:=-1;s:=0; for i:=1 to n do begin a:=(a+2) mod 10; s:=s+a; end; writeln(a); writeln(s); readln; end.
练习3 输入m、n，求数列1， 6，7，12，13，18， 19，...的第m项被n除余 几？
例： 输入：6 7 输出：4
var m,n,a,i:longint; begin readln(m,n); a:=0; for i:=1 to m do if i mod 2=1 then a:=a+1 else a:=a+5; writeln(a mod n); readln; end.
2008年长沙市小学生计算机奥林匹克竞赛决赛试题
三、整数处理 电脑老师让小慧编程做一 道题：输入一个正整数A （A≤100000000），如果Ａ 的个位数字是5，则统计Ａ 能被5整除多少次？否则， 统计A当中含有多少个“0”？ 你能做吗？
例如：输入：125 输出：3 输入：305160 输出：2
var a,t:longint; begin readln(a); t:=0; if a mod 10=5 then while a mod 5=0 do begin a:=a div 5; t:=t+1; end else while a>0 do begin if a mod 10=0 then t:=t+1; a:=a div 10; end; writeln(t); readln; end.
（4）斐波那契公约（文件名：e4） var m,n,a,b,c,x,fm,fn,t:longint; begin 对于Fibonacci数列： readln(n,m); 1,1,2,3,5,8,13......大家应该 t:=2; a:=1; b:=1; 很熟悉吧~~~但是现在han有一个 repeat 很“简单”问题,：第n项和第m项 t:=t+1; 的最大公约数是多少？ c:=a+b; 输入格式 a:=b;(前项=后项，递推） 两个正整数n和m。 b:=c; （n,m<=40） if t=n then fn:=c; 输出格式 Fn和Fm的最大公约数。 if t=m then fm:=c; 样例输入 until t=m; 47 x:=fm+1; 样例输出 repeat 1 x:=x-1; until (fn mod x=0)and(fm mod x=0); 存在问题： writeln(x); （1）递推都错 readln; （2）第n项没算准 end. （3）拷贝不走样
注意括号
（2）求数列的和 （文件名：e2） 已知数列5、7、11、 17、25、…，输入正整数 n，编程输出该数列的第n 项和这n项的和。
例:输入: 4 输出: 17 40
存在问题： （1）1通不过 （2）输入输出不符 （3）输出只有一项
var a,b,n,i,s:longint; begin readln(n); a:=5;s:=a;b:=0; for i:=2 to n do begin b:=b+2; a:=a+b; s:=s+a; end; writeln(a); writeln(s); readln; end.
3
var n,a,b,a1,a2,t:integer; begin readln(n); readln(a1,a2); t:=0; a:=0; b:=0; repeat n:=n-1; a:=(a+1) mod a1; if a=0 then a:=a1; b:=(b+1) mod a2; if b=0 then b:=a2; if a=b then t:=t+1; until n=0; writeln(t); readln; N-1到0正好是N个 end.
readln(n);t:=0; a:=1; b:=2013; for i:=1 to n do begin a:=a*10; if a div b=8 then t:=t+1; a:=a mod b; end; writeln(t); readln; end.
练习4: 输入两个正整数A和B， 其中A、B都小于32767，求A ／B的值。要求计算结果精 确到小数点后N（1≤N≤200） 位，求这N位小数中奇数有 几个？
var m,n,k:longint; begin readln(n,m); k:=n+1; repeat k:=k-1; until (n mod k=0)and(m mod k=0); writeln('xuexiao=',n*m div (k*k)); readln; end.
2009年长沙市小学生计算机奥林匹克竞赛决赛试题
（3）N位小数（文件名：e3） 输入一个正整数N（1≤N≤200），求1 var a,b,n,i,t:integer; ／2013的值。要求计算结果精确到小数 点后N位，求这N位小数中有多少个8？ begin
输入：15 输出：2 （1/2013=0. 000496770988574） 存在问题： （1）小数点后N位 （2）先mod后div （3）把小数后一位一位推 到整数来找
第 十一 课
习 题 分 析 巩 固
（1）摆正方形（文件名e1） 用长a厘米，宽b厘米的 Var a,b,c:longint; 长方形硬纸片摆成一个正方 begin Readln(a,b); 形（中间无空隙），至少要 C:=a-1; 用几个长方形硬纸片？输入 Repeat a,b,输出长方形的个数. c:=c+1; Until (c mod a=0)and(c mod b=0); 例:输入: 6 4 Writeln((c*c) div (a*b)); 输出: 6 readln; End. 存在问题：
var n,x,i,s,t:longint; begin （5）阶乘非0位之和 readln(n,x); （文件名：e5） 输入二个正整数n(n<1000)， s:=1; x(x<6)，输出n的阶乘非0数字 for i:=1 to n do begin s:=s*i; 的最右x位的各位数字之和。 while s mod 10=0 do s:=s div 10; s:=s mod 1000000;（一定要六位） 如:输入: 18 5 输出:22 end;{writeln(s);}（括号） （18!=6402373705728000, t:=0; 0+5+7+2+8=22） for i:=1 to x do begin t:=t+s mod 10; 存在问题： s:=s div 10; （1）中间过程保留 位数多了或少了 end; （2）还有人先算全 writeln(t); 部再取舍 readln; （3）不能由x确定中 end. 间保留几位
2007年长沙市计算机奥林匹克竞赛决赛试题
四、判奇偶求和 输入一个正整数n,如果n是 奇数，则求1～n之间所有的偶 数之和；如果n是偶数，则求n 所有的约数之和。
输入：n（标准整型） 输出：和值（测试数据会保证 这个值在标准整型范围）
样例1：输入：11 输出：30 样例2：输入：12 输出：28
var n,i,t,s:longint; begin readln(n); t:=0;s:=0; for i:=1 to n do begin if i mod 2=0 then s:=s+i; if n mod i=0 then t:=t+i; end; if n mod 2=1 then writeln(s) else writeln(t); readln; end.