IF综合练习参考答案.docVIP

Pascal入门（IF综合练习参考答案） (2010-07-15 11:12:12) 转载 1.从键盘上输入一个自然数，将它转换成24小时制表示时间。如输入T=720，则输出7：20 am?，若输入T=1570，则输出16：10pm（因为后两位70大于60，进一位到小时），若输入数据有错，则显示“error”（如输入T=12034、或T= -2或T=3012等）。 输入输出样例： 输入 t=965 输出 10：5am var t,t1,t2:integer; begin write(t=);read(t); ?if (t1) or (t9999) then write(error) ??else ? begin t1:=t div 100;t2:=t mod 100; ? if t260 then begin t2:=t2-60;t1:=t1+1 end; ? if (t124) then write(error) else ? begin ? write(t1,:,t2); ? if t1=12 then write(am) else write(pm); ? end;? end; end. ? 2.编写一个乘法运算的程序。从键盘输入两个99（包括99）以内的正整数，进行乘法运算，按竖式计算格式输出。输入输出样例：??? ??输入：34?? 12↙?? 输出：??? ??34???? ??????? × ?12 ----------? ?68 34???? ?? ---------- 408 输入：89?? 7↙?? 输出：???? 89???? ?? × ?7 ---------???? 623 var a,b:longint; begin? readln(a,b);? writeln(a:10); ?????? writeln(b:10);? writeln(----------); ?????? if b div 10=0 then writeln(a*b:10); ?????? if b div 100 then begin ?????? writeln(b*(a mod 10):10); ?????? writeln(b*(a div 10):9); ?????? writeln(----------); ?????? writeln(b*a:10); ?????? end; end. 3.小明得到一笔优秀学生奖学金N元（N为整数，1≤N≤500），到商店去买笔，笔的单价有6角、7角、8角和9角四种，如果小明准备将钱全部用于买笔，不流余钱，请编程帮助小明算出这N元最多可以买几支笔？最少可以买几支笔？如果不可能，则用0表示。 输入输出样例： 输入：N=10 输出：Zuiduo=16 Zuishao=12 var ??? n,m : longint; begin ? write(N = ); ? readln(n); ? if n = 1 ??? then writeln(0) ??? else begin ?????????? writeln(Zuiduo = ,n*10 div 6); ?????????? if n*10 mod 9 0 then m := 1 else m:= 0; ?????????? writeln(Zuishao = ,n*10 div 9 + m); ???????? end; end. 4.小明家的院子里有一棵苹果树，每到秋天树上就会结出12个苹果。苹果成熟的时候，小明就会跑去摘苹果。小明有个40厘米高的板凳，当他不能直接用手摘到苹果的时候，就会踩到板凳上再试试。 现在已知12个苹果到地面的高度，以及小明把手伸直的时候能够达到的最大高度，请帮小明算一下他能够摘到的苹果的数目。假设他碰到苹果，苹果就会掉下来。 ?【输入】 ?输入两行数据。第一行包含10个100到200之间（包括100和200）的整数（以厘米为单位）分别表示10个苹果到地面的高度，两个相邻的整数之间用一个空格隔开。第二行只包括一个100到120之间（包含100和120）的整数（以厘米为单位），表示小明把手伸直的时候能够达到的最大高度。 【输出】 输出一行，这一行只包含一个整数，表示小明能够摘到的苹果的数目。 【样例输入】 100 200 150 140 129 134 167 198 200 111 135 178 110 【样例输出】 7 var n1,n2,n3,n4,n5,n6,n7,n8,n9,n10,n11,n12,a,x:integer; begin ? readln(n1,n2,n3,n4,n5,n6,n7,n8,n9,n10,n11,n12); ? readln(a); ? x:=0;a:=a+40;