中科新闻网漂亮的外国宝宝:如何把这些题目在Pascal里编程？
来源：百度文库 编辑：中科新闻网 时间：2024/04/28 15:17:54
例1-1-1 有A、B、C、D、E五个人，安排值周一、周二、周三、周四、周五的班，每人值一天，共有多少种不同的安排，编程打印输出各种安排。（排列）
例1-1-2 在 红、黄、蓝、黑、白 五种颜色的五个彩球中，取出三个彩球的各种取法共有多少种，编程打印输出各种取法。（组合）
例1-1-4 有长度为3、4、5、6、7、8、9的小木棍各一根，从中选取三根作为三角形的边长，问能构成多少种不同类型的三角形，编程打印输出各种不同类型的三角形。（组合）
例1-1-2 在 红、黄、蓝、黑、白 五种颜色的五个彩球中，取出三个彩球的各种取法共有多少种，编程打印输出各种取法。（组合）
例1-1-4 有长度为3、4、5、6、7、8、9的小木棍各一根，从中选取三根作为三角形的边长，问能构成多少种不同类型的三角形，编程打印输出各种不同类型的三角形。（组合）
枚举啊～
例如第一个：
for a:=1 to 5 do
for b:=1 to 5 do
for c:=1 to 5 do
for d:=1 to 5 do
for e:=1 to 5 do
if (a+b+c+d+e=15) and (a*b*c*d*e=120) and (a*a+b*b+c*c+d*d+e*e=55) then begin
inc(total);
writeln(a:2,b:2,c:2,d:2,e:2);
end;
writeln('total=',total);
第二个
for a:=1 to 3 do
for b:=a+1 to 4 do
for c:=b+1 to 5 do
begin
inc(total);
writeln(a:2,b:2,c:2);
end;
writeln('total=',total);
第三个
for a:=3 to 6 do
for b:=a+1 to 7 do
for c:=b+1 to 8 do
if (a<b+c) and (b<a+c) and (c<b+a) then begin
inc(total);
writeln(a:2,b:2,c:2);
end;
writeln('total=',total);
自己再想想～