循环结构-多重循环.ppt

循环结构多重循环,Pascal暑假微课系列,第08课,多重循环,循环体结构的内部，又包括了循环结构。,Program abc(input,output);var a,b,c:integer;beginfor 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，则输出 end;,例：小明去市场买鸡，用500元买了90只鸡，其中母鸡一只15元，公鸡一只10元，小鸡一只5元，正好把钱买完。问公鸡、母鸡、小鸡各买了多少只？,二级求精：1.初始化a和b为0；2.for a:=0 to 33 do 3.for b:=0 to 50 do begin 4.计算小鸡 c:=90-a-b 5.若总数为500，则输出 If 15*a+10*b+5*c=500 then writeln(a,b,c)end;,例：小明去市场买鸡，用500元买了90只鸡，其中母鸡一只15元，公鸡一只10元，小鸡一只5元，正好把钱买完。问公鸡、母鸡、小鸡各买了多少只？,Program abc(input,output);var a,b,c:integer;beginfor 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.,