找女友的程序！

Question

while (女孩.年龄>20)and(女孩.年龄<22)  do
begin
  if 女孩.条件=我的标准 then
  begin 
    if 女孩.男友＝nil then
    begin 
      if 追求（女孩）=true then break；
    end；
  end；
  next（女孩）；
end；

Answer 1

while (女孩.年龄>20)and(女孩.年龄<22)  do
begin
  if 女孩.条件=我的标准 then
  begin 
    if 女孩.结婚=false then
    begin 
      if 追求（女孩）=true then break；
    end；
  end；
  next（女孩）；
end；

Answer 2

while (女孩.年龄>20)and(女孩.年龄<22)  do
begin
  if 女孩.条件=我的标准 then
  begin 
    if (女孩.男友＝nil)and(女孩.结婚=false) then
    begin 
      if 追求（女孩）=true then break；
    end；
  end；
  next（女孩）；
end；

Answer 3

while 女孩 <> nil do
begin
   if not 女孩.结婚
      and (女孩.年龄 >= 22) and (女孩.年龄 <= 28)
      and 我.标准(女孩) and 我.追求(女孩) then
   begin
      if 女孩.男朋友 = nil then
         女孩.男朋友 := 我
      else
      begin
         女孩.男朋友 := nil;
         女孩.老公 := 我;
      end;      // 目标已找到
      Break;
   end;   女孩 := 搜索下一个(女孩);
end; 

Answer 4

if gile then
go
else
no
end;

Answer 5

while (女孩.年龄>20)and(女孩.年龄<22)  do
begin
  if 女孩.男朋友 <> nil then
    begin
      while 女孩.男朋友 and 我 do;
      if 我 <> nil then 女孩.男朋友 := 我
      else showmessage(‘我卦了！^_^’);
    end
  else 女孩.男朋友 := 我;
end;

Answer 6

while (女孩.年龄>20)and(女孩.年龄<22)  do
begin
  if 女孩.条件<>我的标准 then
  begin 
    if 女孩.男友<>nil then
    begin 
      if 追求（女孩）<>true then break；
    end；
  end；
  next（女孩）；
end；

Answer 7

while (女孩.年龄>20)and(女孩.年龄<22) and (女孩.条件=我的标准)  do
begin
  while 追求（女孩）<>true DO
  begin
    追求（女孩);
  end;
  next（女孩）；
end；

Answer 8

好!我也来改改：
if 女孩.男友<>nil then
begin
   EmptyBoyFriend(女孩);
end else begin
   while (女孩.年龄>20)and(女孩.年龄<22) and (女孩.条件=我的标准)  do
   begin
        ojbProp=女孩.特征;
        while 追求（女孩）<>true DO
        begin
           追求（女孩);
           总结经验(忘记伤心事，再加点勇气);
        end;
        if 女孩.特征<>ojbProp then begin
           next（女孩）；
        end;
end；   end;
 

Answer 9

while (女孩.年龄>20)and(女孩.年龄<22)  do
begin
  if (女孩.性别)='女' and (女孩.性别='人妖') then
  begin 
    if 女孩.Money>=10000 then
    begin 
       追求;
       break；
    end；
  end；
  next（女孩）；
end；哈哈..别臭我啊,大家!

Answer 10

while (女孩.年龄>我.年龄-3)and(女孩.年龄<我.年龄+1)  do
begin
  if 女孩.条件=我的标准 then
  begin 
    if (女孩.男友＝nil)and(女孩.结婚=false) then
    begin 
      if 追求（女孩）=true then break
      else 总结经验(忘记伤心事，再加点勇气)；
    end；
  end；
  next（女孩）；
end；

Answer 11

crystal1024(crystal)  你的心里正常吗？建议你去看看心里医生！

Answer 12

if  女孩=true then
  if 女孩.结婚=false then do  
    追求(女孩）
  until
   自己放弃
   end;
else
 next(女孩)
end.

Answer 13

谁来做个多线程的例子？if 女孩.分值<50 then 创建下一个线程。

Answer 14

why not 
FreeAndNil(SomeGirl.BoyFriend)?