前面两个题目我并不完全按照你所说的格式来输出,这个自己改了.

　　首先是折半查找的.

　　programfind;

　　var

　　str:string;

　　ch:char;

　　lo,hi:integer;

　　m:integer;

　　begin

　　write('请输入要查找的字符:');

　　readln(ch);

　　str:='ABDFGJLMPRSUVYZcdeghijoprsuvxyz';

　　lo:=0;

　　hi:=length(str)-1;

　　whiletruedo

　　begin

　　iflohithen

　　begin

　　writeln('没有找到');

　　break;

　　end

　　else

　　begin

　　m:=(lo+hi)shr1;

　　ifstr[m]=chthen

　　begin

　　writeln('位置',m);

　　break;

　　end

　　elseifstr[m]chthen

　　begin

　　hi:=m-1;

　　continue;

　　end

　　else

　　begin

　　lo:=m+1;

　　continue;

　　end;

　　end;

　　end;

　　readln;

　　end.

　　然后是用递归逆转输出数字的.

　　programReverseNum;

　　var

　　num:integer;

　　procedurefun(n:integer);

　　begin

　　ifn1then

　　begin

　　write(nmod10);

　　fun(ndiv10);

　　end

　　else

　　write(n);

　　end;

　　begin

　　write('请输入一个整数:');

　　readln(num);

　　fun(num);

　　readln;

　　end.

　　最后是求1-1000间满足条件的.

　　programProject1;

　　var

　　i:integer;

　　count:integer;

　　begin

　　fori:=1to1000do

　　begin

　　if(imod2=1)and(imod3=2)and(imod5=3)then

　　begin

　　write(i,'');

　　count:=count+1;

　　ifcountmod5=0then

　　writeln;

　　end;

　　end;

　　readln;

　　end.