Pascal小练习

《Pascal小练习》由会员上传分享，免费在线阅读，更多相关内容在教育资源-天天文库。

1、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三

2、个不同的数，将它们按由小到大的顺序输出。8、当前小学生的成绩单由以前的百分制改为优秀、良好、合格、不合格四个等级的等级制。编一程序完成分数的自动转换工作。转换规则如下：60分以下的为不合格；60到69分为合格；70到89分为良好；90分以上的为优秀。（提示：可以利用DIV运算来使程序更简明） 9、打印某年某月有多少天。（提示：A、闰年的计算方法：年数能被4整除，并且不能被100整除；或者能被400整除的整数年份。B、利用MOD运算可以判断一个数能否被另一个数整除） １０、编程模拟剪刀、石头、布游戏：用S表示剪刀，用R表示石头，用P表示布。规则是：剪刀剪布，石头砸剪刀，布包石

3、头。游戏者分别把自己的选择输入，计算机给出结果。==============================1源程序清单=================================vara,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源程序清单=================================vars,f,m,k:real;b

4、eginreadln(s,f,m);K:=s*60+f+m/60;writeln(k);end.==============================3源程序清单=================================varx:real;beginreadln(x);ifx<0thenwriteln('-')          elsewriteln('+');end.==============================4源程序清单=================================vara,b:real;beginreadln(a,b

5、);ifa>bthenwriteln(a*a)          elsewriteln(b*b);end.==============================5源程序清单=================================varg:real;beginread(g);ifg<=50thenwrite(g*0.15)              else write(50*0.15+(g-50)*0.25);end.==============================6源程序清单=================================v

6、arx:real;beginreadln(x);ifx<50thenwrite(x);if(x>=50)and(x<=100) thenwrite(0.9*x)elsewrite(100*0.9+(x-100)*0.8);end.==============================7源程序清单=================================vara,b,c,d:real;begin   readln(a,b,c);   ifa

7、  end;   ifb