选修1“穷举法”ppt课件2高中信息技术.pptVIP

穷举法（枚举法）;学习目标;用穷举法解决问题;示例1;解题思路;穷举法的定义;金手指考试网 / 2016年金手指驾驶员考试科目一 科目四元贝驾考网 科目一科目四仿真考试题C1;解题思路;穷举法的使用范围;算法框架;示例2;解题思路;解题思路;穷举法;示例1优化程序;示例3;练习;破解密码;n:=25006; For i:=0 to 99 do Begin n:=n+i*100; if (n mod 37=0)or(n mod 67 =0) then writeln(n); End; ;猜冠军;;;;;const n=4; type stack=array[1..n] of integer; var i1,i2,i3,i4:integer; s:stack; function check:boolean; var i,j:integer; begin for i:=1 to n-1 do for j:=i+1 to n do if (s[i]=s[j]) or (s[i]-i=s[j]-j) or (s[i]+i=s[j]+j) then begin check:=false; exit end; check:=true end; ;procedure print; var i:integer; begin for i:=1 to n do write(s[i]:2); writeln end; begin for i1:=1 to n do for i2:=1 to n do for i3:=1 to n do for i4:=1 to n do begin s[1]:=i1;s[2]:=i2;s[3]:=i3;s[4]:=i4; if check then print; end; end. ;;本题目有9个格子，要求填数，如果不考虑问题给出的条件，共有9！=362880种方案，在这些方案中符合问题条件的即为解。因此可以采用枚举法。 但仔细分析问题，显然第一行的数不会超过400，实际上只要确定第一行的数就可以根据条件算出其他两行的数了。这样仅需枚举400次。（优化;;Begin for i:=1 to 3 do for j:=1 to 9 do if ji then for k:=1 to 9 do if (kj) and (ki) then begin s:=i*100+j*10+k; if 3*s1000 then if (sum(s)+sum(2*s)+sum(3*s)=45) and (mul(s)*mul(2*s)*mul(3*s)=362880) then begin writeln(s); writeln(2*s); writeln(3*s); writeln; end; end; end. ;阿姆斯特朗数。;程序： program ex3(input,outoutp); const maxlen=7; var i,j,currentnumber,highest,sum,total:longint; digit:array [0..maxlen+1] of integer; power:array [0..9,0..maxlen] of longint; begin for i:=0 to 9 do begin power[i,0]:=1; for j:=1 to maxlen do power[i,j]:=power[i,j-1]*i end;