Pascal_穷举.pptVIP

穷举法 一、引入 实例一：编一个程序找出三位数到七位数中所有的阿姆斯特朗数。阿姆斯特朗数也叫水仙花数,它的定义如下:若一个n位自然数的各位数字的n次方之和等于它本身,则称这个自然数为阿姆斯特朗数。例如153(153=1*1*1+3*3*3+5*5*5)是一个三位数的阿姆斯特朗数,8208则是一个四位数的阿姆斯特朗数。 一、引入 算法描述： for I:=100 to 9999999 do begin 验证是否是阿姆斯特朗数，若是则输出； end; 一、引入 实例二：从键盘输入一个正整数N，验证其是否为质数，若是则输出“YES”，否则输出“NO”。 一、引入 算法描述： Read(n); for I:=2 to n-1 do begin 验证i是否是n的因子，若是则做标记； end; 二、穷举法的基本概念 三、穷举算法模式 四、穷举法应用 实例二：有形如：ax3+bx2+cx+d=0? 这样的一个一元三次方程。给出该方程中各项的系数(a，b，c，d? 均为实数)，并约定该方程存在三个不同实根(根的范围在-100至100之间)，且根与根之差的绝对值=1。要求由小到大依次在同一行输出这三个实根(根与根之间留有空格)，并精确到小数点后2位。 样例 输入：1?? -5?? -4?? 20 输出：-2.00?? 2.00?? 5.00 本题是2001年全国信息学奥林匹克竞赛高中组复赛第一题，如果考虑解方程的话则比较麻烦。我们可以换个角度思考问题，在-100到100之间找三个满足方程的实数，由于穷举时必须用整型变量，题目又要求保留两位小数，我们只需将循环变量扩大100倍即可顺利穷举，最后只要将所求结果再缩小100倍即可。 程序如下： Var a,b,c,d,x:real; i,x1,x2,x3:Integer; Begin Read(a,b,c,d); x1:=MaxInt; x2:=x1; x3:=x1; For i:=-10000 To 10000 Do Begin x:=i/100; If Then If ix1 Then x1:=i Else If ix2 Then x2:=i Else If ix3 Then x3:=i;{确保x1x23} End; Writeln(x1/100:0:2, ,x2/100:0:2, ,x3/100:0:2); End. 四、穷举法应用 四、穷举法应用 四、穷举法应用 四、穷举法应用 四、穷举法应用 四、穷举法应用 五、如何优化穷举算法 五、如何优化穷举算法 五、如何优化穷举算法 五、如何优化穷举算法 五、如何优化穷举算法 五、如何优化穷举算法 五、如何优化穷举算法 五、如何优化穷举算法 五、如何优化穷举算法 五、如何优化穷举算法 五、如何优化穷举算法 五、如何优化穷举算法 五、如何优化穷举算法 五、如何优化穷举算法 五、如何优化穷举算法 五、如何优化穷举算法 五、如何优化穷举算法 五、如何优化穷举算法 五、如何优化穷举算法 五、如何优化穷举算法 五、如何优化穷举算法 五、如何优化穷举算法 procedure print; var i:integer; begin for i:=1 to n do write(s[i]:2); writeln end; begin while s[0]=1 do begin j:=n; while? (s[j]=4) ?do?j:=j-1; s[j]:=s[j]+1; for?I:=j+1?to?n?do?? s[I]：=1; ? if check then print; end; end. procedure print; var i:integer; begin for i:=1 to n do write(s[i]:2); writeln end; procedure search(k: integer); var i:integer; begin if k n then begin if check then begin count:=count+1;print;end; end else for i := 1 to n do begin