Форум: "Основная";
Поиск по всему сайту: 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.02 c
14-80688          mobcos                2002-02-08 21:53  2002.03.25  
Господа программисты помогите!


1-80563           Alev                  2002-03-08 11:01  2002.03.25  
Как удалить файл минуя корзины


4-80716           FLASH !               2002-01-25 14:28  2002.03.25  
WINDOWS 9x РЕЕСТР !!!!


1-80499           Artem K.              2002-03-12 10:38  2002.03.25  
Запись динамического массива в файл


14-80678          McSimm                2002-02-12 12:41  2002.03.25  
Я давно говорил, - есть Мужчины, Женщины и Админы