循环结构多重循环.PPTVIP

* 循环结构——多重循环 Pascal暑假微课系列 第08课 多重循环 循环体结构的内部，又包括了循环结构。 Program abc(input,output); var a,b,c:integer; begin for a:=0 to 33 do for b:=0 to 50 do begin c:=90-a-b; if 15*a+10*b+5*c=500 then writeln(a:5,b:5,c:5); end; end. 内 循 环 外 循 环 例：小明去市场买鸡，用500元买了90只鸡，其中母鸡一只15元，公鸡一只10元，小鸡一只5元，正好把钱买完。问公鸡、母鸡、小鸡各买了多少只？ 分析：设母鸡a只，公鸡b只，小鸡c只（c=90-a-b）只， 则15*a+10*b+5*(90-a-b)=500元。 a值可以是0-33 (500 div 15=33)，b值可以是0-50(500 div 10) 一级算法： 1.初始化a和b为0； 2.for a:=0 to 33 do 3.for b:=0 to 50 do begin 4.计算小鸡 5.若总数为500，则输出 e