讨论 "据说是微软的考题(出自<<世界500强试题>>)"

[pankun]

http://community.csdn.net/Expert/TopicView3.asp?id=3893746
白天听SeaWave老大说了这个贴子,觉的有点意思,晚上无意想起了一个不用辅助存储和循环变量的办法,但这种方法只能找到重复的数的一个位置,大家讨论一下还有不有什么好的办法能找到二个位置,最好栈都不用.

我的算法如下:
unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs;

type
TForm1 = class(TForm)
procedure FormCreate(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

const
//只测试11个
test: array [0..10] of Integer = (2, 7, 4, 5, 1, 3, 8, 9, 5, 10, 6);

implementation

{$R *.dfm}
function find(index: Integer): boolean;
begin
if test[index] < 0 then
begin
result := true;
exit;
end;
test[index] := 0 - test[index];
if find(0 - test[index] - 1) then
//输出数及位置
ShowMessage(IntToStr(0 - test[index]) + ' at:' + IntToStr(index + 1));
//恢复数据
test[index] := 0 - test[index];
result := false;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
find(10)
end;

end.

[pankun]

更改一下
procedure TForm1.FormCreate(Sender: TObject);
begin
find(High(test))
end;

[hc0007]

相加再减去 (1+2+..+1000) 不是更快吗

[何鲁青]

关注...学习ing

[nadel]

uses
Math;

...

for 0 to 10 do
if test[i] = Sum(test) - 55 then
showmessage(inttostr(test[i]) + '重复,位置为：' + inttostr(i));

[nadel]

把test转成double再求和。

[nadel]

漏了：for i:= 0 to 10 do

[pankun]

没人有兴趣吗?算了结帐

[sunware]

昨天仔细一想,其实求和的做法是不妥当的。

因为从题目的条件来看,程序的运行环境应是内存极度匮乏，在这种情况下，整形应判断为短整形（signed 16-bit或unsigned 16-bit）。这样，求和结果为500500，超过了短整形的上限了。所以求和是求不出来的。

[sunware]

昨天仔细一想,其实求和的做法是不妥当的。

因为从题目的条件来看,程序的运行环境应是内存极度匮乏，在这种情况下，整形应判断为短整形（signed 16-bit或unsigned 16-bit）。这样，求和结果为500500，超过了短整形的上限了。所以求和是求不出来的。