模拟题5

题目描述

　　差为2的两个素数被称为孪生素数对,例如3和5, 11和13.
　　给定一个区间，请输出区间内所有的孪生素数对.

输入格式

　　两个正整数a,b,其中a<b，以空格分开

输出格式

　　区间[a,b]内的所有孪生素数对，按从小到大顺序。每行一个素数对，其中小的在前，大的在后，以空格分开。
　　如果区间内没有素数对的话，输出-1.

样例输入

2 15

样例输出

3 5
5 7
11 13

样例输入

14 18

样例输出

-1

 http://www.cnblogs.com/skysun

很水的一道题，暴力可以过（直接从2到sqrt（n）来判断n是不是素数）

但是我不是只想过一道题而已

学习了一下非递归的二分，复习了一遍打表

非递归二分：

当要找数组里第一个大于等于w的元素时

k:=midfind(l,r+1,w)，这里r+1是非常亮的一个地方

就是当l到r这个区间没有合法值时，会到r+1 这个位置，

便于进行人工判断处理

其实递归二分也可以这么打，

今天打了一下非递归的，感觉不错

代码如下：

program sky;
var
i,j,tot,n : longint;
k,x,y : longint;
bj : boolean;
a : array[0..100000] of longint;
v : array[0..1000001] of boolean;
function midfind(l,r,w: longint ):longint;
var
mid : longint;
begin
while l<r do
begin
mid:=(l+r)shr 1;
if a[mid]>=w then r:=mid
else l:=mid+1;
end;
exit(l);
end;
begin
a[1]:=2; n:=1000000;
for i:=2 to n do
if not v[i] then
begin
j:=1; inc(tot); a[tot]:=i;
while i*j<=n do
begin
v[i*j]:=true;
inc(j);
end;
end;
readln(x,y);
k:=midfind(1,tot+1,x);
if k=tot+1 then
begin
writeln(-1);
halt;
end;
while a[k+1]<=y do
begin
if a[k]+2=a[k+1] then
begin
bj:=true;
writeln(a[k],' ',a[k+1]);
end;
inc(k);
end;
if not bj then writeln(-1);
end.

二分是一个细节很多的function，需要多加练习，
必须达到怎么打都不错，看完就能打的地步。