Pascal程序设计答案.pdf

试题名称 ： Pascal程序设计 层次:( 本 ) 年级： 2015 级 专业： 学号： 姓名： 分数： 编程（每题10分） 1、已知图圆柱体的高为12，底面圆的半r径为7，求圆柱体表面积。 const pi=3.14159; {定义π =3.14159} r=7; {半径 =7} h=12; {高 =12} X=2; {结果保留两位小数} var di,ce:real; begin di:=pi*r*r*2; {求底面积（若没有顶部面积，可 jiang"*2" 去掉）} ce:=2*r*pi*h; {求侧面积} writeln(pi+ce:0:X);{输出答案} end. 2.输入一个三位自然数，把这个数的百位与个位数对调，输出对调后的自然数。 x=n/100; y=n%100/10; z=n%10; printf("%d",z*100+10*y+x); 3、编写程序把一个三位整数反转，例如358反转成853。 第 1 页 共 5 页 4、判断两个数a，b，输出较大数的平方值。 5、某市的士费起步价8元，可以行使3公里。3公里以后，按每公里2.3元计算，输入的士的公里数，请你 计算顾客需付费多少元？ 6、某服装公司为了推销产品，采取这样的批发销售方案:凡订购超过100 套的，每套定价为50元，否则每套 第 2 页 5 页 价格为80元。编程由键盘输入订购套数，输出应付款的金额数。 7、已知某圆的半径R=139，求该圆的周长C与面积S？ 8、加法计算器：编程由键盘输入两个整数a和b，将它们的和输出到屏幕上。 第 3 页 共 5 页 9、假设邮局规定寄邮件时若每件重量在1公斤以内(含1公斤)，按每公斤1.5元计算邮费，如果超过1公斤 时，其超出部分每公斤加收0.8元。请编程序计算邮件收费。 10、从键盘读入一个数，判断它的正负。是正数，则输出“+”，是负数，则输出“-”。 第 4 页 共 5 页 教学负责人 签 字 年 月 日 第 5 页 共 5 页