程序设计基础(郑大).docVIP

输入三个整数 x,y,z，由小到大输出。 if xy 交换 x,y if xz 交换 x,z if yz 交换 y,z 有一个正整数，将该数倒序输出。 方法 1： s←0 Repeat r←n mod 10 s←s*10+r n←n div 10 until n=0 方法 2: s←0 while n0 do begin r←n mod 10 s←s*10+r n←n div 10 end 判断一个对称数是否为对称数（如 232） 。 先倒序，再比较 质因子分解 n k←zwhile n1 do begin if n mod k =0 then begin wtite(k) n←n div k end else k←k+1 End 5． 最小公倍数，最大公约数（欧几里得算法，辗转相除法） n1←n， m1←m /* nm */ while m0 do begin r←n mod m n←m m←r end /* n 是最大公因子 */ n1*m1/n 是最小公倍数 6． 求 s＝a＋aa+aaa+aaaa+?? s←0;k←0;t←0 while k 如： 2+22+222+2222+?? 有 1,2,3,4，任选三个互不相同的数组成一个三位数，有多少个这样的三位数？分别都是 多少？ i←0;n←0; while i=4 do begin j←1 while j=4 do begin k←1 while k=4 do begin if (ij) and (ik) and (jk) then begin write (i,j,k) n←n+1 end k←k+1 end j←j+1 end 8． 给出日期 y，m，d，计算该日期是该年的第几天？ k←1, s←0 while k=m-1 do begin case k of case 1,3,5,7,8,10,12: s←s+31 case 2: if y 闰年 s←s+29 else s←s+28 case 4,6,9,11 :s←s+30 end k←k+1end s←s+d 如果一个数正好等于它的各因子之和，则该数称为“完全数” 。找出 1000 以内的所有完 全数。 （完全数如：6=1+2+3） j←1 while j=1000 do begin s←0 i←1 while i=n do begin f←f1+f2 s←s+f f1←f2 f2←f k←k+1 end 判断 100～200 之间有多少个素数？ j←101, n←0 while j end write(n) 一个球从 100 米高度自由落下， 每次落地后反弹到原高度的一半再落下， 求它在第 10 次落地时共经过了多少米？第 10 次反弹高度是多少？ f←100, h←f/2, n←2 while n=10 do begin f←f+2*h h←h/2 n←n+1 end write(f,h) /* h 为反弹高度 */ 猴子吃桃子问题：猴子第一天摘下若干个桃子，当即吃了一半再多一个，第二天又 将剩下的桃子吃一半多一个，按此方法，第 10 天早上想吃时只剩下一个桃子了。求猴 子第一天摘了多少桃子？ day←9, x2←1 while day0 do Begin x1←(x2+1)*2 x2←x1 day←day-1 end write(x1) 甲乙两个乒乓球队进行比赛，各出一人。甲队为 a，b，c 三人，乙队为 x，y，z 三 人。a 不和 x 比，c 不和 x，z 比，输出两队的比赛方案。 i←’x’ while i=’z’ do begin j←’x’ while j=’z’ do begin k←’x’ while k=’z’ do begin if (ij) and (ik) and (jk) then if (i’x’) and (c’x’) and (c’z’) then write(“a:”,i,”b:”,j,”c:”,k) k←k+1 end j←j+1 end i←i+1 end 有一分数序列：2/1，3/2，5/3，8/5，13/8，21/13??，求前 20 项之和。 a←2, b←1, s←0, n←1 while n=20 do begin s←s+a/b t←a+b b←a a←t /* 也可 t←a,a←a+b,b←t */ end 16． 输入一个分数，将其转换成等价的既约分数并输出。如 6/15 简化为 2/5。 提示：用最大公因子分别除分子和分母。 17．