Форум: "Основная";
Текущий архив: 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!")
в чем моя ошибка?
Страницы: 1 вся ветка
Форум: "Основная";
Текущий архив: 2002.03.25;
Скачать: [xml.tar.bz2];
Память: 0.43 MB
Время: 0.006 c