今天我很高兴,一个题目花我一天时间,得了1000分 //有几点感受要说出来 ( 积分: 0 )

15分钟内搞定：

const PeopleArr:array[1..3] of string=('Mary','John','Peter');
HairArr:array[1..3] of string=('红色','棕色','金色');
AgeArr:array[1..3] of string=('13','14','15');
var h1,h2,h3,a1,a2,a3:integer;
begin
for h1:=1 to 3 do
for h2:=2 to 3 do //John不是红色的头发，从2开始
if (h1<>h2) and (6-h1-h2<>3) then //Peter不是金色的头发
for a1:=1 to 3 do
for a2:=1 to 3 do
if a1<>a2 then
begin
h3:=6-h1-h2;
a3:=6-a1-a2;
if ((a1=1) and (h1=3) or
(a2=1) and (h2=3)) //最小的孩子是金色的头发，Peter不是金发不用判断
and
(AgeArr[a2]>AgeArr[a3]) //John比Peter大
then
begin
Showmessage('Mary： '+HairArr[h1]+' '+AgeArr[a1]+#13+
'John： '+HairArr[h2]+' '+AgeArr[a2]+#13+
'Peter：'+HairArr[h3]+' '+AgeArr[a3]
);
end;
end;
end;

Mary 金色 13
John 棕色 15
Peter 红色 14

太强了，[!]

如果你想一边在家上网，还想有钱赚的话。就赶紧注册了新闻时报，只要一边上网聊天、玩游戏，一边看广告，就一切OK了。不需要“一分钱”的投入，别以为不可能，有人会说怎么会天上掉馅饼呢。其实也不是想得这么简单，其实当中都有很多一线门户网站和电子商务网站大力赞助，所以我们只是提升广告的知名度一样，让我们去流览广告，等于是给广告打广告。我弟知道三个信誉度很高的网络赚钱机构。（大概的方法，注册网站里面有详细的介绍），机遇再面前，就看大家怎么把握了！
不费事，就把在家上网的宽带费搞定，还能赚一笔外快。靠！你们现在还不赶快行动起来！
三家网赚，让你一起使用，收益你自己心里应该有数了吧！

一、 新闻时报——信誉度100%
注册地址：http://www.ads4cn.com/newsbar/refferer.asp?jay1717
二、 第二家 八趣通宝——信誉度100%。
只要能上网，像挂ＱＱ一样挂着就能轻松挣Ｑ币或人民币
注册地址：http://www.8qu.net/register.asp?net=jay1717
三、 第三家SOHO广告网----信誉度100%。
注册地址：http://www.sohoads.com/sabar/reg.asp?sj=jay1717

to 天河流星
你用过cxgrid控件没有，如果有的话能不能给我发一个
960621wzh@163.com

呵呵～路过，帮顶一下