主题：有问题 请教
maxff
[专家分：0] 发布于 2005-07-27 22:35:00
希望大家能用pascal编出下面这道题
要将一张100元的大钞票，换成 等值的10元 5元 2元 1元 一张的小钞票
要求每次换成40张小钞票，每种至少一张。编程输出所有可能算法 并适当考虑精简算法
回复列表 （共30个回复）
沙发
zhsas [专家分：1680] 发布于 2005-07-28 00:40:00
program zhs (input,output);
var
i,j,k,l:integer;
begin
for i:=1 to 9 do
for j:=1 to 17 do
for k:=1 to 37 do
begin
l:=40-i-j-k;
if (l>=1) and (i*10+j*5+k*2+l=100)
then writeln(i:5,j:5,k:5,l:5)
end
end.
板凳
MagicG [专家分：650] 发布于 2005-07-29 11:54:00
经典的做法哦``
让我想起了我的老师让我做这样的题目的时候他亲自给我示范的做法``
5555[em7][em7][em7][em7](感动ING,好久没见到老师了``)
3 楼
maxff [专家分：0] 发布于 2005-07-31 20:41:00
看看 这个方法好吗？
program money;
var a,b,c,d:integer;
begin
for a:=1 to 10 do
for b:=1 to 20 do
for c:=1 to 50 do
for d:=1 to 100 do
begin
if (a*10+b*5+c*2+d*1=100) and (a+b+c+d=40)
then writeln('10yuan ',a,' 5yuan ',b,' 2yuan ',c,' 1yuan ',d)
end;
end.
4 楼
MagicG [专家分：650] 发布于 2005-08-01 21:30:00
呵呵``也让我觉得感动呢,和我当年的做法如此类似!!!!!!
5555`````再一次感动```!!!
5 楼
口口and枕头 [专家分：1550] 发布于 2005-08-02 13:23:00
你多感动几次可能还有加分哟~
6 楼
MagicG [专家分：650] 发布于 2005-08-02 20:36:00
这位仁兄在我每次痛哭留涕地感动中时都给偶以温暖的关怀(加分)
SO 偶决定:在感动中留下偶的QQ:49053594,希望大家真诚交流,共同切磋,提高PASCAL水平才是偶们大家的梦想啊!!!!
7 楼
maxff [专家分：0] 发布于 2005-08-03 10:42:00
怎么样 这个 感动加分 很 好把
加我QQ362622145
谢谢了
8 楼
MagicG [专家分：650] 发布于 2005-08-03 20:59:00
偶加了```问题是你的身份验证?~!~```````
9 楼
maxff [专家分：0] 发布于 2005-08-03 21:32:00
忧闷 不能再给分了
10 楼
MagicG [专家分：650] 发布于 2005-08-03 21:35:00
呵呵~```一个贴子拿了50分,偶满足地做梦都会笑啦```:)
我来回复
您所在位置：