Pascal小练习.docVIP

1、从读入三角形的边长a，b，c,计算它的面积和周长，输出。请查找三角形的海伦公式 ?2、 输入一个时、分、秒，把它转换为分钟数。 ?3、 从键盘读入一个数，判断它的正负。是正数，则输出+，是负数，则输出-。 ?4、 输入两个数a,b，输出较大数的平方值。 ?5、铁路托运行李规定：行李重不超过50公斤的，托运费按每公斤0.15元计费；如超50公斤，超过部分每公斤加收0.10元。编一程序完成自动计费工作。 ?6、某超市为了促销，规定：购物不足50元的按原价付款，超过50不足100的按九折付款，超过100元的，超过部分按八折付款。编一程序完成超市的自动计费的工作。 ?7、 输入a,b,c三个不同的数，将它们按由小到大的顺序输出。 8 、当前小学生的成绩单由以前的百分制改为优秀、良好、合格、不合格四个等级的等级制。编一程序完成分数的自动转换工作。转换规则如下：60分以下的为不合格；60到69分为合格；70到89分为良好；90分以上的为优秀。（提示：可以利用DIV运算来使程序更简明） ? 9 、打印某年某月有多少天。（提示：A、闰年的计算方法：年数能被4整除，并且不能被100整除；或者能被400整除的整数年份。B、利用MOD运算可以判断一个数能否被另一个数整除） ?１０、编程模拟剪刀、石头、布游戏：用S表示剪刀，用R表示石头，用P表示布。规则是：剪刀剪布，石头砸剪刀，布包石头。游戏者分别把自己的选择输入，计算机给出结果。==============================1源程序清单================================= var a,b,c,p,l,s:real;beginreadln(a,b,c);p:=(a+b+c)/2;s:=sqrt(p*(p-a)*(p-b)*(p-c));l:=a+b+c;writeln(s:5,l:5);end. ==============================2源程序清单================================= var s,f,m,k:real;beginreadln(s,f,m);K:=s*60+f+m/60;writeln(k);end. ==============================3源程序清单================================= var x:real;beginreadln(x);if x0 then writeln(-)?????????? else writeln(+);end. ==============================4源程序清单================================= var a,b:real;beginreadln(a,b);if ab then writeln(a*a)?????????? else writeln(b*b);end. ==============================5源程序清单================================= var g:real;beginread(g);if g=50 then write(g*0.15)?????????????? else? write(50*0.15+(g-50)*0.25);end. ==============================6源程序清单================================= var x:real;beginreadln(x);if x50 then write(x);if (x=50) and (x=100)? then write (0.9*x)else write(100*0.9+(x-100)*0.8);end. ==============================7源程序清单================================= var a,b,c,d:real;begin??? readln(a,b,c);??? if ab then begin??????????? d:=a;??????????? a:=b;??????????? b:=d;????? end;??? if bc then begin??????????? d:=b;??????????? b:=c;??????????? c:=d;????? end;??? if ab then begin??????????? d:=a;??????????? a:=b;??????????? b:=d;??