Windows 我在一个列中有一个重复的结果,即使我对它设置了规则。我怎样才能消除这种重复发生的情况?
程序问题是: 友好号码: 有些数字对被称为“友好数字”。根据定义,友好数是两个不同的数,其适当除数之和等于另一个数 例如:最小的一对友好数字是220和284。220的适当除数是:1、2、4、5、10、11、20、22、24、44、55和110。这些除数之和是284 另一方面,284的适当除数是:1、2、4、71和142。这些除数之和是220 因此,220和284被称为“友好数字”。编写一个程序来查找并打印前24对友好数字 可以找到友好号码列表。我想打80620和389924 我的源代码如下:Windows 我在一个列中有一个重复的结果,即使我对它设置了规则。我怎样才能消除这种重复发生的情况?,windows,pascal,freepascal,Windows,Pascal,Freepascal,程序问题是: 友好号码: 有些数字对被称为“友好数字”。根据定义,友好数是两个不同的数,其适当除数之和等于另一个数 例如:最小的一对友好数字是220和284。220的适当除数是:1、2、4、5、10、11、20、22、24、44、55和110。这些除数之和是284 另一方面,284的适当除数是:1、2、4、71和142。这些除数之和是220 因此,220和284被称为“友好数字”。编写一个程序来查找并打印前24对友好数字 可以找到友好号码列表。我想打80620和389924 我的源代码如下: p
program Friendly Numbers;
type List=Array[1..50] of Integer;
var Num,Sum,Sum2,C,C2,C3,C4,CheckNum,LastNum:Integer;
NumUsed:String;
CheckedNum,CheckedSum:List;
begin
Num:=200;
while C3<=23 Do
begin
while C<Num Do
begin
C:=C+1;
if (C<>Num) and (Num mod C=0) then Sum:=Sum+C;
end;
while C2<Sum Do
begin
C2:=C2+1;
if (C2<>Sum) and (Sum mod C2=0) then Sum2:=Sum2+C2;
end;
if Num=Sum2 then
begin
for C4:=1 to 35 do
begin
if CheckedNum[C4]=C2 then NumUsed:='T';
if CheckedSum[C4]=Num then NumUsed:='T';
end;
if (C2<>LastNum) and (NumUsed<>'T') and (Num<>C2) then
begin
C3:=C3+1;
Writeln(C3,')',Num:8,C2:8);
LastNum:=Num;
end;
Checknum:=CheckNum+1;
CheckedNum[CheckNum]:=Num;
CheckedSum[CheckNum]:=C2;
end;
NumUsed:='F';
Num:=Num+1;
Sum:=0;
Sum2:=0;
C:=0;
C2:=0;
end;
Readln;
end.
*176336在前一行重复,而176336在前两行的右侧列中已经出现
22) 180848 176272
23) 185368 203432
24) 196724 202444
最终列表的条件是 如果C2LastNum和NumUsed'T'和NumC2,则 使用
如果C2LastNum和numsed'T'和Num则最终列表的条件为 如果C2LastNum和NumUsed'T'和NumC2,则 使用
如果C2LastNum和numsed'T'和Num存储到数组中的内容与在屏幕上显示的内容之间存在差异。您正在存储每一对,但显示或至少尝试仅显示唯一的一对。并且,所显示的对与所存储的对不同。更重要的是,当检查是否已经遇到并显示了一个数字时,显然,您只搜索数组的前35个元素 现在,如果您决定显示程序发现的所有对,即查看存储在数组中的内容以及索引,您可以看到以下内容:
1) 220 284
2) 284 220
3) 496 496
4) 1184 1210
5) 1210 1184
6) 2620 2924
7) 2924 2620
8) 5020 5564
9) 5564 5020
10) 6232 6368
11) 6368 6232
12) 8128 8128
13) 10744 10856
14) 10856 10744
15) 12285 14595
16) 14595 12285
17) 17296 18416
18) 18416 17296
19) 63020 76084
20) 66928 66992
21) 66992 66928
22) 67095 71145
23) 69615 87633
24) 71145 67095
25) 76084 63020
26) 79750 88730
27) 87633 69615
28) 88730 79750
29) 100485 124155
30) 122265 139815
31) 122368 123152
32) 123152 122368
33) 124155 100485
34) 139815 122265
35) 141664 153176
36) 142310 168730
37) 153176 141664
38) 168730 142310
39) 171856 176336 <<<
40) 176272 180848
41) 176336 171856
42) 180848 176272
43) 185368 203432
44) 196724 202444
...
注:首次遇到176336时:成对39。现在您明白了为什么程序在第二次显示数字时似乎忽略了它:因为它不需要搜索第35个元素以外的数组
另一方面,如果只存储所显示的内容,35就足够了。在阵列中存储的内容与在屏幕上显示的内容之间存在差异。您正在存储每一对,但显示或至少尝试仅显示唯一的一对。并且,所显示的对与所存储的对不同。更重要的是,当检查是否已经遇到并显示了一个数字时,显然,您只搜索数组的前35个元素 现在,如果您决定显示程序发现的所有对,即查看存储在数组中的内容以及索引,您可以看到以下内容:
1) 220 284
2) 284 220
3) 496 496
4) 1184 1210
5) 1210 1184
6) 2620 2924
7) 2924 2620
8) 5020 5564
9) 5564 5020
10) 6232 6368
11) 6368 6232
12) 8128 8128
13) 10744 10856
14) 10856 10744
15) 12285 14595
16) 14595 12285
17) 17296 18416
18) 18416 17296
19) 63020 76084
20) 66928 66992
21) 66992 66928
22) 67095 71145
23) 69615 87633
24) 71145 67095
25) 76084 63020
26) 79750 88730
27) 87633 69615
28) 88730 79750
29) 100485 124155
30) 122265 139815
31) 122368 123152
32) 123152 122368
33) 124155 100485
34) 139815 122265
35) 141664 153176
36) 142310 168730
37) 153176 141664
38) 168730 142310
39) 171856 176336 <<<
40) 176272 180848
41) 176336 171856
42) 180848 176272
43) 185368 203432
44) 196724 202444
...
注:首次遇到176336时:成对39。现在您明白了为什么程序在第二次显示数字时似乎忽略了它:因为它不需要搜索第35个元素以外的数组
另一方面,如果只存储显示的内容,35可能就足够了。也可以考虑以更符合逻辑的方式重写代码。这几乎是无法理解的。它似乎是一个非常不同的概念。你在这里所说的恰当的英语术语似乎是这样的。我是用这个来提示一个编程类的。考虑以更合乎逻辑的方式重写代码。这几乎是无法理解的。它似乎是一个非常不同的概念。你在这里谈论的合适的英语术语似乎是。我是在一个编程课上被提示这样做的。这很有效。谢谢,我没有注意到我只是在检查的时候才去35。除了你所说的之外,这个程序还需要一些其他的调整。这很有效。谢谢,我没有注意到我只是在检查的时候才去35。除了你所说的,这个程序还需要一些其他的调整。