首届 Delphi 编程竞赛结果揭晓！ (0分)

  • 主题发起人 主题发起人 yysun
  • 开始时间 开始时间
我觉得应该开个擂台赛，就像电脑爱好者杂志那样，每个月和每两周出一题
 
真的不错!!
我选择我喜欢,我要参与
 
发一份给我，看看质量如何！
lizaiying12@163.com
 
有奖金吗?[:D]
 
做得真不赖！看文档和点评就知道不愧为大师级，要好好学习。
aimingoo和yysun，我有一个关于NETBIOS的问题，可以向你们求教吗？
 
你问吧。什么问题？我答不了，大富翁里也还有更高的高手呢。:)
对了，建议你另开一个新贴。
 
To aimingoo and 所有高手:
借宝地一用
请教一个算法问题,请帮我看一看
http://www.delphibbs.com/delphibbs/dispq.asp?LID=1190013
 
一个DLL,用来接收函数表达式和变量值,并返回函数值
如: result:= fun('sin(x)*exp(x)',0.1);

library fun;
uses
sharemem,
SysUtils,
StdCtrls,
math;
function rapidstrtofun(s:string;x:double):double;
var
posi:array[1..50]of integer;
data:array[1..50]ofdo
uble;
mulsign,plusign:array[1..50]of char;
muldev,addmin:array[1..50]of integer;
{point to the position of data,index of data}
n,n2,n3:integer;
len,i,j:integer;
s1:string;
begin
s:=lowercase(s);
len:=length(s);
if len=1 then
begin
if s='x' then
begin
result:=x;exit;
end;
result:=strtofloat(s);exit;
end;
n:=0;{number of operater=n2+n3}
n2:=0;{number of * and /}
n3:=0;{number of + and -}
{find out the operater}
for i:=2 to lendo
begin
case s of
'*':
begin
inc(n);inc(n2);mulsign[n2]:='*';muldev[n2]:=n;
posi[n]:=i;
end;
'/':
begin
inc(n);inc(n2);mulsign[n2]:='/';muldev[n2]:=n;
posi[n]:=i;
end;
'+':
if (s[i-1]<>'e')=true then
begin
inc(n);inc(n3);plusign[n3]:='+';addmin[n3]:=n;
posi[n]:=i;
end;
'-':
if (s[i-1]<>'e')=true then
begin
inc(n);inc(n3);plusign[n3]:='-';addmin[n3]:=n;
posi[n]:=i;
end;
end;
end;
{pick out the data}
if n=0 then
begin
result:=strtofloat(s);exit;
end;
s1:='';
for i:=1 to posi[1]-1do
begin
s1:=s1+s;
end;

if s1='x' then
data[1]:=x
else
if s1='-x' then
data[1]:=-x
else
data[1]:=strtofloat(s1);
for i:=1 to n-1do
begin
s1:='';
for j:=posi+1 to posi[i+1]-1do
begin
s1:=s1+s[j];
end;
if s1='x' then
data:=x
else
data[i+1]:=strtofloat(s1);
end;
s1:='';
for i:=posi[n]+1 to lendo
begin
s1:=s1+s;
end;
if s1='x' then
data[n+1]:=x
else
data[n+1]:=strtofloat(s1);
{calculate * and /}
for i:=1 to n2do
begin
if mulsign='*' then
data[muldev+1]:=data[muldev]*data[muldev+1]
else
data[muldev+1]:=data[muldev]/data[muldev+1];
end;
for i:=1 to n3-1do
begin
if plusign='+' then
data[addmin[1]]:=data[addmin[1]]+data[addmin[i+1]]
else
data[addmin[1]]:=data[addmin[1]]-data[addmin[i+1]];
end;
if n3=0 then
result:=data[n2+1]
else
result:=data[1]+data[n+1];
end;

function brackets(s:string;x:double):double;register;
var
s0,s1:string;
time:integer;
i,j,k,order,l0:integer;
med:double;
med1,value2:double;
value1:integer;
count:array[1..1000]of integer;
judge:boolean;
Label line1;
begin
line1: order:=pos('((',s);
if(order>0)then
begin
insert('1*',s,order+1);
goto line1;
end;
time:=0;
s0:=s;
judge:=false;
l0:=length(s);
for i:=1 to l0do
begin
if(s='(')then
time:=time+1;
end;
if(time=0)then
judge:=true;
if(time>0)then
begin
for i:=1 to timedo
begin
j:=0;
for order:=1 to l0do
begin
if((s[order]='(')=true)or((s[order]=')')=true)then
begin
j:=j+1;
count[j]:=order;
end;
end;
for k:=1 to j-1do
begin
if(((s[count[k]]='(')=true)and
((s[count[k+1]]=')')=true))then
begin
order:=count[k];
{keep the location of ( }
break;
end;
end;
if(order=1)then
begin
delete(s,count[k+1],l0-count[k+1]+1);
delete(s,1,count[k]);
med:=rapidstrtofun(s,x);
s1:=floattostr(med);
s:=s0;
delete(s,count[k],count[k+1]-count[k]+1);
insert(s1,s,count[k]);
s0:=s;
l0:=length(s);
end
else
begin
if(((s[count[k]-1]='*')=true)or((s[count[k]-1]='/')=true)or
((s[count[k]-1]='+')=true)or((s[count[k]-1]='-')=true))then
begin
delete(s,count[k+1],l0-count[k+1]+1);
delete(s,1,count[k]);
med:=rapidstrtofun(s,x);
s:=s0;
s1:=floattostr(med);
delete(s,count[k],count[k+1]-count[k]+1);
insert(s1,s,count[k]);
s0:=s;
l0:=length(s);
continue;
end;

if(s[count[k]-1]='p')then
begin
delete(s,count[k+1],l0-count[k+1]+1);
delete(s,1,count[k]);
med:=rapidstrtofun(s,x);
med:=exp(med);
s1:=floattostr(med);
s:=s0;
delete(s,count[k]-3,count[k+1]-count[k]+4);
insert(s1,s,count[k]-3);
s0:=s;
l0:=length(s);
continue;
end;

if(s[count[k]-1]='g')then
begin
delete(s,count[k+1],l0-count[k+1]+1);
delete(s,1,count[k]);
med:=rapidstrtofun(s,x);
s:=s0;
if(s[count[k]-2]='l')then
begin
med:=Log10(med);
s:=s0;
s1:=floattostr(med);
delete(s,count[k]-2,count[k+1]-count[k]+3);
insert(s1,s,count[k]-2);
s0:=s;
l0:=length(s);
end
else
begin
if(s[count[k]-2]='t')then
begin
delete(s,count[k]-2,l0-count[k]+3);
if((s='')=false)then
begin
if(s[count[k]-3]='c')then
begin
med:=cotan(med);
s:=s0;
s1:=floattostr(med);
delete(s,count[k]-3,count[k+1]-count[k]+4);
insert(s1,s,count[k]-3);
s0:=s;
l0:=length(s);
end
else
begin
med:=tan(med);
s:=s0;
s1:=floattostr(med);
delete(s,count[k]-2,count[k+1]-count[k]+3);
insert(s1,s,count[k]-2);
s0:=s;
l0:=length(s);
end;
end
else
begin
med:=tan(med);
s:=s0;
s1:=floattostr(med);
delete(s,count[k]-2,count[k+1]-count[k]+3);
insert(s1,s,count[k]-2);
s0:=s;
l0:=length(s);
end;
end;
end;
continue;
end;
if(s[count[k]-1]='^')then
begin
value1:=pos(',',s);
delete(s,count[k+1],l0-count[k+1]+1);
delete(s,1,value1);
value2:=rapidstrtofun(s,x);
s:=s0;
delete(s,value1,l0-value1+1);
delete(s,1,count[k]);
med1:=rapidstrtofun(s,x);
med:=power(med1,value2);
s:=s0;
s1:=floattostr(med);
delete(s,count[k]-1,count[k+1]-count[k]+2);
insert(s1,s,count[k]-1);
s0:=s;
l0:=length(s);
continue;
end;
if(s[count[k]-1]='s')then
begin
delete(s,count[k+1],l0-count[k+1]+1);
delete(s,1,count[k]);
med:=rapidstrtofun(s,x);
med:=cos(med);
s:=s0;
s1:=floattostr(med);
delete(s,count[k]-3,count[k+1]-count[k]+4);
insert(s1,s,count[k]-3);
s0:=s;
l0:=length(s);
continue;
end;
if(s[count[k]-1]='h')then
begin
delete(s,count[k+1],l0-count[k+1]+1);
delete(s,1,count[k]);
med:=rapidstrtofun(s,x);
s:=s0;
if(s[count[k]-2]='s')then
begin
med:=cosh(med);
end
else
begin
med:=sinh(med);
end;
s:=s0;
s1:=floattostr(med);
delete(s,count[k]-4,count[k+1]-count[k]+5);
insert(s1,s,count[k]-4);
s0:=s;
l0:=length(s);
continue;
end;
if(s[count[k]-1]='t')then
begin
delete(s,count[k+1],l0-count[k+1]+1);
delete(s,1,count[k]);
med:=rapidstrtofun(s,x);
med:=sqrt(med);
s:=s0;
s1:=floattostr(med);
delete(s,count[k]-4,count[k+1]-count[k]+5);
insert(s1,s,count[k]-4);
s0:=s;
l0:=length(s);
continue;
end;
if(s[count[k]-1]='r')then
begin
delete(s,count[k+1],l0-count[k+1]+1);
delete(s,1,count[k]);
med:=rapidstrtofun(s,x);
med:=sqr(med);
s:=s0;
s1:=floattostr(med);
delete(s,count[k]-3,count[k+1]-count[k]+4);
insert(s1,s,count[k]-3);
s0:=s;
l0:=length(s);
continue;
end;
if(s[count[k]-1]='n')then
begin
delete(s,count[k+1],l0-count[k+1]+1);
delete(s,1,count[k]);
med:=rapidstrtofun(s,x);
s:=s0;
if(s[count[k]-2]='l')then
begin
med:=ln(med);
s:=s0;
s1:=floattostr(med);
delete(s,count[k]-2,count[k+1]-count[k]+3);
insert(s1,s,count[k]-2);
s0:=s;
l0:=length(s);
end
else
begin
med:=sin(med);
s:=s0;
s1:=floattostr(med);
delete(s,count[k]-3,count[k+1]-count[k]+4);
insert(s1,s,count[k]-3);
s0:=s;
l0:=length(s);
end;
continue;
end;
end;
end;
brackets:=rapidstrtofun(s,x);
end;

if(judge=true)then
brackets:=rapidstrtofun(s,x);
end;
exports
brackets name 'fun';
begin
end.


 
谢谢aimingoo百忙中回贴！
我提问的帖子在http://www.delphibbs.com/delphibbs/dispq.asp?lid=1183919，前后有
几贴，应该说清楚拉。
麻烦aimingoo和大富翁里各位高手指点，先谢拉！
 
[:)][:)][:)][:)][h1]快点[/h1]提供下载吧，让我们这些入门级的人有机会学习更多的更好的！
 
to liaoqianlin
下载已经提供了呀！
对了，yysun或者hubdog，能否将T恤给扫描或者照片发上来呀，不要就自己收藏~~~~呀~~
 
尽搞些无厘头的活动！
 
怎么看不见？！
 
這個活動應該繼續下去，這樣可以讓更多人去了解DELPHI及更好地集思廣益，我建議我們
可否對某些專題進行編程，不要太強調字節數，重要的是實用性和編程技巧上，並公開源
碼，讓公眾進行評選。
 
应大家要求，上载奖品 (Borland 宣传 Kylix 的 T shirt) 照片
t-sh1.jpg
 
赶快去D一件[:D]
 
啊哈，不错！哈哈哈~~~~Very COOL!
不过，不过，LOGO上的那个女人也太夸张了吧~~~~~~~~~~
WUWU~~~~
 
您必须登录或注册才可回复。

Similar threads

Ray
[转]终于可以发布Delphi下收点OSGI精髓皮毛而设计的插件框架WisdomPluginFramework
回复
4
查看
4K
chlkuei
C
A
有关组织大富翁的“第二届Delphi编程竞赛”的讨论(300分)
2 3 4 5
回复
97
查看
953
xminsong
X
Z
关于DFW的首届编程大赛 我被黑了！！！！！(0分)
回复
3
查看
96
zhkyu
Z
S
重要消息！！！borland首届中国程序员大赛 ！！！(100分)
2 3 4 5
回复
91
查看
2K
soul
S
A
Borland首届中国程序员大赛--比赛试题有新变化！ (1分)
回复
2
查看
615
amo
A
后退
顶部