Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Основная";
Текущий архив: 2003.01.06;
Скачать: [xml.tar.bz2];

Вниз

хитрый алгоритм   Найти похожие ветки 

 
vilfred   (2002-12-23 22:29) [0]

есть такой массив массивов:

1: 000010
2: 000100
3: 001000
4: 010000
5: 100000

нужно сделать так, чтобы можно было бы бегать по этой диагонали из единичек интервалом такой длины, чтобы справа и слева от единички было по одному нолику. Проблема в том, чтобы когда я в первой строчке нахожусь то 4-й элемент массива единица, а когда я в цикле перехожу на следующую строчку, то там уже третий элемент единица...

Соответственно если написать такой код, то оно будет рисовать только три эллипса-точки(а хотелось бы чтобы все пять):

for i:=0 to 10 do begin
for r:=e-1 to e+1 do begin
if (aaa3[i,r]=1) then begin
Ellipse(r,i,r+2,i+2);
end;
end;
end;

на самом деле вся проблема в том, что единичек, расположенных по диагонали вовсе не 5, а 300-350...

thanks!


 
LORD   (2002-12-23 23:20) [1]

задействуй здвиг влево или в право, этоже двоичная система.


 
vilfred   (2002-12-24 00:33) [2]

да хрен его знает как это задействовать!!!

блин, у меня на самом деле единички то идут не последовательно влево или вправо, а как хотят. набор случайный... как пример привел - простейший случай... не шарю вобщем как такое сделать одним словом.


 
OlDemon   (2002-12-24 07:10) [3]

2 vilfred> что-то я не понял суть того что тебе надо :((
Попробуй еще раз объяснить.



Страницы: 1 вся ветка

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

Наверх




Память: 0.44 MB
Время: 0.008 c
1-15042
lety
2002-12-23 23:22
2003.01.06
синхронизация?


7-15322
Format
2002-10-21 00:37
2003.01.06
Координаты иконок


6-15182
ppcat
2002-11-06 10:20
2003.01.06
rxTray не дает Windows завершить работу


1-15049
Дмитрий К.К.
2002-12-23 08:16
2003.01.06
Баг в Delphi 5


3-14918
Vick
2002-12-02 16:26
2003.01.06
Сортировка в TClientDataSet





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский