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.
高三语文拓展练习591．下列各组词语中加点的字，读音全都相同的一组是（）A．嗔怪称赞瞋目怒视瞠目结舌 ．．．．B．譬如癖好否极泰来劈头盖脸 ．．．．C．旋律娴熟悬崖勒马弦外之音 ．．．．D．磨坊蓦然脉脉含情没齿......
《石榴》基础知识拓展练习及答案石榴四 课外拓展阅读（15分）燕 子席慕蓉初中的时候，学会了那一首《送别》的歌，常常爱唱“长亭外，古道边，芳草碧连天……”有一天下午，父亲忽然叫住我......
拓展练习11一、扬州是一座历史文化名城，自古以来就有很多脍炙人口的诗句是赞美扬州的，如“故人西辞黄鹤楼，烟花三月下扬州”。你能再写两句吗？________________________，________......
刀豆文库小编为你整合推荐4篇阿房宫拓展练习，也许这些就是您需要的文章，但愿刀豆文库能带给您一些学习、工作上的帮助。......
阿房宫拓展练习阅读下面的选文，回答问题。王冕者，诸暨人。七八岁时，父命牧牛垄上，窃入学舍，听诸生诵书，听已辄默记。暮归，忘其牛，来责蹊田。父怒挞之，已而复如初。母曰：“儿痴如此，曷不......
