一段关于泡妞的程序大家帮我看看有错没! ( 积分: 100 )

G

gsj0791

Unregistered / Unconfirmed
GUEST, unregistred user!
[:D]
function 女人(face;mimi;age;addr;height):string;
begin
case face of
丑:
begin
Result:=不好鸟;
exit;
end;
一般:
begin
if mimi= 太小 then
exit;
if age<18 or age>35 then
exit;
if height<150 or height>175 then
exit;
if addr=离我太远 then
exit;
Result:=日后在说;
end;
美:
begin
Result:=可以试试;
if age<18 and mimi=太小 then
Result:=等几年再说;
end;
end;

Repeat
if 女人=不好鸟 then
begin
放弃;
end else
begin
try
聊天;
约会;
上床;
except
放弃;
end;
end;

Until 除了我妈 and 没有能力了;
 

白河愁

Unregistered / Unconfirmed
GUEST, unregistred user!
没意思.
 
S

songrun

Unregistered / Unconfirmed
GUEST, unregistred user!
[:D]厲害...
 

暗夜中独舞

Unregistered / Unconfirmed
GUEST, unregistred user!
亏你想的出来............
 
N

nicai_wgl

Unregistered / Unconfirmed
GUEST, unregistred user!
呵呵,一个大问题,编译通不过,所以不能执行
 
Z

zgh777

Unregistered / Unconfirmed
GUEST, unregistred user!
佩服!!!
 
K

Kisber

Unregistered / Unconfirmed
GUEST, unregistred user!
你会经常“聊天--约会--上床”的,因为你在一般里用了exit,这时的函数返回值并不等于“不好鸟”,所以就不会“放弃”。。。。。。。。做死你。。。。。。[:D][:D][:D]
 
W

wql

Unregistered / Unconfirmed
GUEST, unregistred user!
G

gsj0791

Unregistered / Unconfirmed
GUEST, unregistred user!
大家继续顶
答的好的有分!
 
L

l0v3_y1n9

Unregistered / Unconfirmed
GUEST, unregistred user!
try
聊天;
约会;
finally
上床;
end;
[:D]
 
H

hyxic

Unregistered / Unconfirmed
GUEST, unregistred user!
try
约会:k:=0;
视频:k:=1;
if k=0 then
打炮
finally
郁闷!
end;
 
G

gsj0791

Unregistered / Unconfirmed
GUEST, unregistred user!
多人接受答案了。
 
顶部