pascalREADWRITE拓展练习(答案)_拓展练习答案

pascalREADWRITE拓展练习(答案)由刀豆文库小编整理，希望给你工作、学习、生活带来方便，猜你可能喜欢“拓展练习答案”。

READ/WRITE 拓展练习

1． 计算电费和水费。电费计算规则如下：峰时每千瓦时0.617元，谷时每千瓦时0.307元。

水费计算规则如下：每立方米1.03元，排污费（用水量九折）每单位0.90元。从键盘输入F（峰时用电量）、G和S（用水量），输出（1）电费；（2）水费；（3）水电费（均保留两位小数，换行输出）。如输入 120 56 11，则输出

DF=91.23YUAN

SF=20.24YUAN

SDF=111.47YUAN

var f,g,s:integer;

df,sf:real;

begin read(f,g,s);

df:=f*0.617+g*0.307;

sf:=s*1.03+s*0.9*0.9;

writeln('DF=',df:0:2,'YUAN');

writeln('SF=',sf:0:2,'YUAN');

writeln('SDF=',df+sf:0:2,'YUAN');

end.2.兑换纸币：输入一整数X元，将其兑换成50元、20元、10元、5元和1元纸币，要求张数最少。如输入X=78，则输出

50yuan=1zhang

20yuan=1zhang

10yuan=0zhang

5yuan=1zhang

1yuan=3zhang

var x,x1,x2,x3,x4,x5,x6:integer;

begin read(x);

x1:=x div 50;writeln('50yuan=',x1,'zhang');

x2:=(x-x1*50)div 20;writeln('20yuan=',x2,'zhang');

x3:=(x-x1*50-x2*20)div 10;writeln('10yuan=',x3,'zhang');

x4:=(x-x1*50-x2*20-x3*10)div 5;writeln('5yuan=',x4,'zhang');

x5:=x-x1*50-x2*20-x3*10-x4*5;writeln('1yuan=',x5,'zhang');

end.3.从键盘上读入整数X，Y，输出除法竖式表示。如输入X，Y=57665，则输出竖式如下

8-----

65/ 576

520

-------

var x,y,z,x1,y1,z1,x2,y2:integer;

begin readln(x,y);

writeln('':12,x div y);writeln('':10,'---');writeln(' ':6,y,'/ ',x);writeln(' ':10,(x div y)*y);writeln('':10,'----');writeln(' ':11,x mod y);end.