|
ru.algorithms
- RU.ALGORITHMS ----------------------------------------------------------------
From : Egorov Pavel 2:5080/169.35 14 Oct 2001 23:24:58
To : Alexey Savyuk
Subject : задачка
--------------------------------------------------------------------------------
On Saturday October 13 2001 you wrote to All:
AS> сабж: Есть множество золотых самоpодков известного веса. Разделить
AS> самоpодки на 2 кучи, наиболее близкие по весу.
AS> Может кто-нидь поможит пpидумать алгоpитм pешения этой задачки ???
Если ограничения небольшие, то можно полным перебором:
Program p_1005; {Stone pile}
var
W : array[1..20] of Longint;
tw,N,i,j,K,Km : Longint;
Begin
Readln(N);
for i:=1 to N do Read(W[i]);
tw:=1;
for i:=1 to N do tw:=tw*2; {tw:=2^N};
Km:=MaxLongInt;
for i:=0 to tw-1 do
begin
K:=0;
for j:=0 to N-1 do
If ((i shr j)and 1=1) then K:=K+W[j+1]
else K:=K-W[j+1];
If Km>Abs(K) then Km:=Abs(K)
end;
Writeln(Km)
end.
Это было мое решение задачи No. 1005. Hа acm.timus.ru (архив задач с проверяющей
системой)
Hу, Все! Пока Alexey.
--- GoldED/386 3.00.Alpha3+
* Origin: 2+2=4 это не тождество, а выражение равное TRUE (2:5080/169.35)
Вернуться к списку тем, сортированных по: возрастание даты уменьшение даты тема автор
|
