Форум: "Основная";
Поиск по всему сайту: delphimaster.net;
Текущий архив: 2002.03.25;
Скачать: [xml.tar.bz2];




Вниз

Хитрая задачка с перебором массивов 


greenrul   (2002-03-10 11:12) [0]

Есть два массива 1..5 - L и K, в обоих есть string до i3 номера (т.е. если i3=2 то L[1],L[2],K[1],K[2]) существуют. Задача - сверить, все ли эл-ты массива K присутствуют во всех эл-так массива L (порядок неважен, но совпадение полное).

Пример -
i3:=3

K[1]=Ctrl
K[2]=Shift
K[3]=Alt

L[1]=Alt
L[2]=Shift
L[3]=Ctrl

дает истину, НО

i3:=3
K[1]=Ctrl
K[2]=Shift
K[3]=Up

L[1]=Alt
L[2]=Shift
L[3]=Ctrl

дает ложь....


Я писал -
kill:=0;
i4:=0;
for i:=1 to i3 do
for i2:=1 to i3 do
if (k[i]=l[i2]) and (kill<>1) then begin kill:=2; i4:=i2; end
else if i4<>i2 then kill:=1;
if (kill=2) then
ShowMessage("YES!")


в чем моя ошибка?




Форум: "Основная";
Поиск по всему сайту: delphimaster.net;
Текущий архив: 2002.03.25;
Скачать: [xml.tar.bz2];




Наверх






Память: 0.73 MB
Время: 0.017 c
1-80609           AndrewSM              2002-03-11 10:24  2002.03.25  
Отладка COM+


1-80470           wicked                2002-03-12 12:11  2002.03.25  
что получилось из сломанного телека VUDZ а через полчаса...... :)


1-80546           ATLANTIDO             2002-03-08 00:34  2002.03.25  
Выделить цветом


1-80476           fag2000@ok.ru         2002-03-12 11:52  2002.03.25  
Как отлаживать DLL?


1-80607           Ольга                 2002-02-28 11:15  2002.03.25  
Outlook