Intelligence Quotient测试 (3人在浏览)

[啊辉仔]

今天突然想起高中时候一个同学问我的一个问题，觉得挺有意思，一时无聊，发上这里和大家共同讨论下：
有十袋苹果 每袋装有10个平果
其中有9袋是每个苹果重10斤 有1袋苹果是每个苹果9斤
问 ：
用一把称 只称一次（只读数一次） 怎样才能知道每个苹果9斤重的是哪袋
至于答案 我们电白人才济济 相信肯定很多人可以写出来的

 

[新发现]

首先,利用曹冲称象的方法弄清楚哪袋苹果是每个9斤的,再拿那袋苹果在一把秤上做样子的称一下.

 

[tempperson]

QUOTE(啊辉仔 @ 2007年01月16日 Tuesday, 06:38 PM)
今天突然想起高中时候一个同学问我的一个问题，觉得挺有意思，一时无聊，发上这里和大家共同讨论下：
有十袋苹果 每袋装有10个平果
其中有9袋是每个苹果重10斤 有1袋苹果是每个苹果9斤
问 ：
用一把称 只称一次（只读数一次） 怎样才能知道每个苹果9斤重的是哪袋
至于答案 我们电白人才济济 相信肯定很多人可以写出来的

[snapback]1626262[/snapback]​

procedure get_which_bag;
var
bag:array[1..10,1..10] of integer;
temp_bag, i,j,weight:integer;

begin
randomize();
temp_bag:=random(11);
for i:=1 to 10 do
for j:=1 to 10 do
begin
bag[i,j]:=10;
if i=temp_bag then bag[i,j]:=9;
end;
weight:=0;
for i:=1 to 10 do
for j:=1 to i do
weight:=weight+bag[i,j];
case (weight mod 10) of
0:showmessage('哈哈，第十袋为9斤！');
1:showmessage('哈哈，第九袋为9斤！');
2:showmessage('哈哈，第八袋为9斤！');
3:showmessage('哈哈，第七袋为9斤！');
4:showmessage('哈哈，第六袋为9斤！');
5:showmessage('哈哈，第五袋为9斤！');
6:showmessage('哈哈，第四袋为9斤！');
7:showmessage('哈哈，第三袋为9斤！');
8:showmessage('哈哈，第二袋为9斤！');
9:showmessage('哈哈，第一袋为9斤！');
end;


end;

 

[yingxiong]

QUOTE(tempperson @ 2007年01月16日 Tuesday, 07:55 PM)
procedure get_which_bag;
var
bag:array[1..10,1..10] of integer;
temp_bag, i,j,weight:integer;

begin
randomize();
temp_bag:=random(11);
for i:=1 to 10 do
for j:=1 to 10 do
begin
bag[i,j]:=10;
if i=temp_bag then bag[i,j]:=9;
end;
weight:=0;
for i:=1 to 10 do
for j:=1 to i do
weight:=weight+bag[i,j];
case (weight mod 10) of
0:showmessage('哈哈，第十袋为9斤！');
1:showmessage('哈哈，第九袋为9斤！');
2:showmessage('哈哈，第八袋为9斤！');
3:showmessage('哈哈，第七袋为9斤！');
4:showmessage('哈哈，第六袋为9斤！');
5:showmessage('哈哈，第五袋为9斤！');
6:showmessage('哈哈，第四袋为9斤！');
7:showmessage('哈哈，第三袋为9斤！');
8:showmessage('哈哈，第二袋为9斤！');
9:showmessage('哈哈，第一袋为9斤！');
end;


end;

[snapback]1626366[/snapback]​

高手！不过我不知你们在搞什么，我OUT了。

 

[啊辉仔]

QUOTE(tempperson @ 2007年01月16日 Tuesday, 08:55 PM)
procedure get_which_bag;
var
bag:array[1..10,1..10] of integer;
temp_bag, i,j,weight:integer;

begin
randomize();
temp_bag:=random(11);
for i:=1 to 10 do
for j:=1 to 10 do
begin
bag[i,j]:=10;
if i=temp_bag then bag[i,j]:=9;
end;
weight:=0;
for i:=1 to 10 do
for j:=1 to i do
weight:=weight+bag[i,j];
case (weight mod 10) of
0:showmessage('哈哈，第十袋为9斤！');
1:showmessage('哈哈，第九袋为9斤！');
2:showmessage('哈哈，第八袋为9斤！');
3:showmessage('哈哈，第七袋为9斤！');
4:showmessage('哈哈，第六袋为9斤！');
5:showmessage('哈哈，第五袋为9斤！');
6:showmessage('哈哈，第四袋为9斤！');
7:showmessage('哈哈，第三袋为9斤！');
8:showmessage('哈哈，第二袋为9斤！');
9:showmessage('哈哈，第一袋为9斤！');
end;


end;

[snapback]1626366[/snapback]​

你这个是不是用vfp写的计算程序

 

[啊辉仔]

QUOTE(新发现 @ 2007年01月16日 Tuesday, 07:59 PM)
首先,利用曹冲称象的方法弄清楚哪袋苹果是每个9斤的,再拿那袋苹果在一把秤上做样子的称一下.

[snapback]1626287[/snapback]​

?????

 

[catt55]

QUOTE(tempperson @ 2007年01月16日 Tuesday, 07:55 PM)
procedure get_which_bag;
var
bag:array[1..10,1..10] of integer;
temp_bag, i,j,weight:integer;

begin
randomize();
temp_bag:=random(11);
for i:=1 to 10 do
for j:=1 to 10 do
begin
bag[i,j]:=10;
if i=temp_bag then bag[i,j]:=9;
end;
weight:=0;
for i:=1 to 10 do
for j:=1 to i do
weight:=weight+bag[i,j];
case (weight mod 10) of
0:showmessage('哈哈，第十袋为9斤！');
1:showmessage('哈哈，第九袋为9斤！');
2:showmessage('哈哈，第八袋为9斤！');
3:showmessage('哈哈，第七袋为9斤！');
4:showmessage('哈哈，第六袋为9斤！');
5:showmessage('哈哈，第五袋为9斤！');
6:showmessage('哈哈，第四袋为9斤！');
7:showmessage('哈哈，第三袋为9斤！');
8:showmessage('哈哈，第二袋为9斤！');
9:showmessage('哈哈，第一袋为9斤！');
end;


end;

[snapback]1626366[/snapback]​

第一袋拿出一个，第二袋拿出二个，第三袋拿出三个，……，第十袋拿出十个，然后称重量。再然后你们自己想。

 

[txn]

QUOTE(catt55 @ 2007年01月17日 Wednesday, 01:43 AM)
第一袋拿出一个，第二袋拿出二个，第三袋拿出三个，……，第十袋拿出十个，然后称重量。再然后你们自己想。

[snapback]1626803[/snapback]​

真正高手!根据称重结果,可知是一个9斤,还是2个9斤,还是3个9斤~~~~~~从而判断是那袋9斤.

 

[啊辉仔]

都说电白的人才不少的了

 

[catt55]

QUOTE(txn @ 2007年01月17日 Wednesday, 10:38 AM)
真正高手!根据称重结果,可知是一个9斤,还是2个9斤,还是3个9斤~~~~~~从而判断是那袋9斤
QUOTE(tempperson @ 2007年01月16日 Tuesday, 07:55 PM)
procedure get_which_bag;
var
bag:array[1..10,1..10] of integer;
temp_bag, i,j,weight:integer;

begin
randomize();
temp_bag:=random(11);
for i:=1 to 10 do
for j:=1 to 10 do
begin
bag[i,j]:=10;
if i=temp_bag then bag[i,j]:=9;
end;
weight:=0;
for i:=1 to 10 do
for j:=1 to i do
weight:=weight+bag[i,j];
case (weight mod 10) of
0:showmessage('哈哈，第十袋为9斤！');
1:showmessage('哈哈，第九袋为9斤！');
2:showmessage('哈哈，第八袋为9斤！');
3:showmessage('哈哈，第七袋为9斤！');
4:showmessage('哈哈，第六袋为9斤！');
5:showmessage('哈哈，第五袋为9斤！');
6:showmessage('哈哈，第四袋为9斤！');
7:showmessage('哈哈，第三袋为9斤！');
8:showmessage('哈哈，第二袋为9斤！');
9:showmessage('哈哈，第一袋为9斤！');
end;
end;

[snapback]1626366[/snapback]​

这才是真正高手，把答案编成了程序。那应该是JAVA的编写习惯吧？！

 

[tempperson]

QUOTE(catt55 @ 2007年01月17日 Wednesday, 11:36 AM)
这才是真正高手，把答案编成了程序。那应该是JAVA的编写习惯吧？！

[snapback]1627070[/snapback]​

object pascal（or delphi）.
求水东地区的高手，共创天地.

 

[catt55]

delphi有钱途！可惜我不会，呵呵！

 

[一个好汉]

一个平果9斤???那就不叫萍果,叫巨果了!!!