-
论坛网址：https://dianbai.mom（可微信分享）、https://0668.es、https://0668.cc（全加密访问）
Intelligence Quotient测试 (1人在浏览)
- 主题发起人 啊辉仔
- 开始时间
tempperson
幼儿园
- 注册
- 2006-10-23
- 帖子
- 8
- 反馈评分
- 0
- 点数
- 0
QUOTE(啊辉仔 @ 2007年01月16日 Tuesday, 06:38 PM)
今天突然想起高中时候一个同学问我的一个问题，觉得挺有意思，一时无聊，发上这里和大家共同讨论下：
有十袋苹果 每袋装有10个平果
其中有9袋是每个苹果重10斤 有1袋苹果是每个苹果9斤
问 ：
用一把称 只称一次（只读数一次） 怎样才能知道每个苹果9斤重的是哪袋
至于答案 我们电白人才济济 相信肯定很多人可以写出来的
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;
今天突然想起高中时候一个同学问我的一个问题，觉得挺有意思，一时无聊，发上这里和大家共同讨论下：
有十袋苹果 每袋装有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
大学二年级
- 注册
- 2006-04-03
- 帖子
- 797
- 反馈评分
- 0
- 点数
- 1
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;
高手！不过我不知你们在搞什么，我OUT了。
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了。
啊辉仔
小学二年级
- 注册
- 2006-03-30
- 帖子
- 185
- 反馈评分
- 0
- 点数
- 1
- 年龄
- 40
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;
你这个是不是用vfp写的计算程序
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(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;
第一袋拿出一个，第二袋拿出二个，第三袋拿出三个，……，第十袋拿出十个，然后称重量。再然后你们自己想。
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]
第一袋拿出一个，第二袋拿出二个，第三袋拿出三个，……，第十袋拿出十个，然后称重量。再然后你们自己想。
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;
真正高手!根据称重结果,可知是一个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
幼儿园
- 注册
- 2006-10-23
- 帖子
- 8
- 反馈评分
- 0
- 点数
- 0
QUOTE(catt55 @ 2007年01月17日 Wednesday, 11:36 AM)
这才是真正高手，把答案编成了程序。那应该是JAVA的编写习惯吧？！
object pascal（or delphi）.
求水东地区的高手，共创天地.
这才是真正高手，把答案编成了程序。那应该是JAVA的编写习惯吧？！
[snapback]1627070[/snapback]
object pascal（or delphi）.
求水东地区的高手，共创天地.
