儿时的编程算法心得笔记
作者：火鸟 redbirdli@hotmail.com火鸟编程追求小、快、精，所以算法问题成为了我不断学习和探索的方向，现将一些心得贴出，供诸位高手批评指正，也望能有些抛砖引玉的裨益。先来看看火鸟在注册表研究中的发现(此处为过去进行时，时间约为1999-2000年之间)。 隐藏驱动器算法 a..z 用 2的n次方表示如隐藏a和c 用2的0次+2的2次=5表示
var stmp:string;
itmp,irun,ival:integer;
begin
ival:=0;
stmp:=uppercase(edit1.text);
for irun:=1 to length(stmp) do
begin
itmp:=ord(stmp[irun])-66;
itmp:=Trunc(Ldexp(2,itmp));
ival:=ival+itmp;
end;
edit2.text:=inttostr(ival);
//以上是正向运算
stmp:='';
while ival 0 do
begin
for irun...[ 查看全文 ]
