pascal循环练习

来源：百度知道 编辑：UC知道 时间：2024/06/07 19:54:28
11.有三种明信片:第一种每套一张，售价2元；第二种每套一张，售价4元； 第三种每套9张，售价2元。现用100元钱要买100张明信片，要求每种明信片至少要买一套，问三种明信片应各买几套？请输出全部购买方案。
12.某人想把一元钱换成伍分、贰分、壹分这样的零钱， 在这三种零钱中每种零钱都至少各有一个的情况下，共有多少种兑换方案。并打出这些方案。
急！！！

那天帮你写了三个这样的程序，难道还没总结出规律呀，这些程序都是一个模式的，要多思考。第11题程序如下：

var a,b,c:integer;
begin
for a:=0 to 100 div 2 do
for b:=0 to (100-2*a) div 4 do
for c:=0 to (100-2*a-4*b) div 9 do
if (a+b+c*9=100) {张数100}
and (2*a+4*b+9*c=100) {钱100块}
then writeln('三种明信片所买的张数:',a:5,b:5,c:5);
end.

第12题程序如下：

var a,b,c:integer;
begin
for a:=0 to 100 div 5 do
for b:=0 to (100-5*a) div 2 do
for c:=0 to (100-5*a-2*b) do
if (5*a+2*b+c=100)then
writeln('五分、二分、一分的张数:',a:5,b:5,c:5);
end.