算法讲解之一题多解.PPT

算法讲解之一 题 多 解 模拟开关 FPC程序编写 模拟开关 【问题描述】 有n盏灯排成一排，依次标号1，2，…，n，每盏灯都有一根拉线开关，最初电灯都是关着的．现有n个人，都沿着电灯路线走过，第一个人走过时，把凡是号码是1的倍数的灯的开关拉一下；接着第二个人走过时，把凡是号码是2的倍数的灯的开关拉一下；第三个走过时，把凡是号码是3的倍数的灯的开关拉一下；……；最后，第n个人走过时，把最后那盏灯的开关拉一下．问最后都有哪些灯是开着的？ 【输入文件】文件名：moni.in 文件中只有一行，包含一个整数（其中5≤n≤10000） 【输出文件】文件名：moni.out 文件共一行，分别为哪些开着灯的编号。 【样例输入】 10 【样例输出】 1 4 9 模 拟 运 行（双层FOR循环） 算法一 算法讲解 为了判断灯的开关，我们需要标志性数组： b:array[1..10000]of longint; 根据题目我们知道，拉开关的规律就是依次把1的倍数、2的倍数直到n的倍数的开关拉一下，那么我们就可以得到第一次for循环： for i:=1 to n do 因为每次所有灯都要判断，所以第二层for循环就是： for j:=1 to n do 当第j盏灯是i的倍数时，就将b[j]置为相反的值： If j mod i=0 then b[j]:=not b[j]; 最后用for循环判断灯是否开着，如果b[j]仍为原值则输出： for i:=1 to n do if not b[j] then write(j,’ ‘); 程序（moni_1.pas） var n,i,j:longint; a:array[1..10000]of boolean; begin read(n); for i:=1 to n do for j:=1 to n do if j mod i=0 then a[j]:=not a[j]; for i:=1 to n do if a[i] then write(i, ); end. （运行次数：n ） 2 数 学 方 法（单层FOR循环） 算法二 算法讲解 根据观察我们发现，最后仍然亮着的都是自然数的平方数，所以可以得到一层运算： for i:=1 to trunc(sqrt(n)) do write(i*i,’ ‘); 程序（moni_2.pas） var n,i:longint; begin read(n); for i:=1 to trunc(sqrt(n)) do write(i*i, ); end. （运行次数：√n ） Thank you!