zadacha po ACM

[Diploboy]

Vsem privet. Ya rabotayu Paskale uje 2 nedeli. I est nekotoriye voprosi.
Ya nedafno rejil odno zadachu po ACM. Posle proverki, mne skazali chto - Runtime ERROR. Kto mojet mne obyasnut, chto za oshibka va proge?

Zadacha - Zadacha
[/URL]

Programma

program p2160;
var
a: array [1..6, 1..2] of integer;
b: array [1..6, 1..2] of integer;
i,j,ch,k:integer;
begin
for i:=1 to 6 do
readln(a[i,1],a[i,2]);


for i:=1 to 6 do
begin
ch:=0;
if a[i,1]>a[i,2] then begin ch:=a[i,1]; a[i,1]:=a[i,2]; a[i,2]:=ch; end;
end;

k:=0;
for i:=1 to 5 do
for j:=i+1 to 6 do
begin
if (a[i,1]=a[j,1]) and (a[i,2]=a[j,2]) then
begin
k:=k+1;
b[k,1]:=i;
b[k,2]:=j;
end;
end;

if k=3 then writeln('POSSIBLE') else writeln('IMPOSSIBLE');

end.

[Хыиуду]

1. Пиши по-русски (если такое возможно)
2. Что должна делать программа? У меня страница с заданием не открылась, а если бы и открылась, с английского переводить неохота.
3. На какой строке выдается рантайм эррор?

[Diploboy]

Chto za TUPOYSKIY otvet?

[Хыиуду]

Chto za TUPOYSKIY otvet?

Ладно, какой вопрос, такой и ответ:
Kto mojet mne obyasnut, chto za oshibka va proge?
U tebya voznikla oshibka vremeni vipolneniya.
Доволен?

[SergeyS]

Код: Выделить всё

k:=0;
for i:=1 to 5 do
for j:=i+1 to 6 do
begin
if (a[i,1]=a[j,1]) and (a[i,2]=a[j,2]) then
begin
k:=k+1;
b[k,1]:=i;
b[k,2]:=j;
end;
end;

если у тебя условие (a[i,1]=a[j,1]) and (a[i,2]=a[j,2]) будет выполняться больше шести раз, то k у тебя будет больше 6 и соответственно будет переполнение массива:

Код: Выделить всё

b[k,1]:=i;
b[k,2]:=j;

Что нужно исправлять? думай сам

[Diploboy]

Код: Выделить всё

Что нужно исправлять? думай сам[/quote]
Nado ispravit b: array [1..15] of integer;

[somewhere]

максимальное K = 6 + 5 + 4+ 3 + 2 + 1 = 21

[SergeyS]

Diploboy, ты хоть условие задачи изложи, а то трудно по твоему алгоритму понять что ты хочешь

[Diploboy]

[CENTER]Box
Time Limit:1000MS Memory Limit:65536K
Total Submit:998 Accepted:329 [/CENTER]

Description
Ivan works at a factory that produces heavy machinery. He has a simple job -- he knocks up wooden boxes of different sizes to pack machinery for delivery to the customers. Each box is a rectangular parallelepiped. Ivan uses six rectangular wooden pallets to make a box. Each pallet is used for one side of the box.


Joe delivers pallets for Ivan. Joe is not very smart and often makes mistakes -- he brings Ivan pallets that do not fit together to make a box. But Joe does not trust Ivan. It always takes a lot of time to explain Joe that he has made a mistake.
Fortunately, Joe adores everything related to computers and sincerely believes that computers never make mistakes. Ivan has decided to use this for his own advantage. Ivan asks you to write a program that given sizes of six rectangular pallets tells whether it is possible to make a box out of them.

Input
Input consists of six lines. Each line describes one pallet and contains two integer numbers w and h (1 <= w, h <= 10 000) -- width and height of the pallet in millimeters respectively.

Output
Write a single word "POSSIBLE" to the output file if it is possible to make a box using six given pallets for its sides. Write a single word "IMPOSSIBLE" if it is not possible to do so.

Sample Input
1345 2584
2584 683
2584 1345
683 1345
683 1345
2584 683

Sample Output
POSSIBLE

[Хыиуду]

Для работы достаточно удалить эти две строки:
b[k,1]:=i;
b[k,2]:=j;
На всякий случай поменять K=3 на K>=3