Форум: "Основная";
Текущий архив: 2002.12.23;
Скачать: [xml.tar.bz2];
Внизалгоритм Найти похожие ветки
← →
vilfred (2002-12-11 16:45) [0]есть два цикла
for a:=0 to 15 do for b:=0 to 15 do begin
e:=a*b+a;
end;
мне хочется, чтобы переменная e при каждом внутреннем входе в цикл была бы равна соответственно 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 ... 255
тоесть чтобы увеличивалась на единичку при каждом входе...
есть какие нибудь идеи?
Спасибо!
← →
han_malign (2002-12-11 16:51) [1]e:=e+1;???
← →
MBo (2002-12-11 16:51) [2]16*a+b ;)
от 0 до 255
← →
Anatoly Podgoretsky (2002-12-11 16:56) [3]А зачем?
ди и цикл здесь бессмычленный, если E не свойство, то на каждой итеррации теряется предыдущее значение. Этот цикл заменяется на:
e := 15*15+15
З.Ы. в данном цикле Е никогда не будет равна 241..255, проверь с карандашом, может тебе надо for I := 1 to 255 do?
← →
vilfred (2002-12-11 16:58) [4]for e:=0 to 15 do begin
for j:=0 to 15 do begin
for g:=3 to VidW-3 do begin
if (round(maxxs[1,j,g]) = 1) then begin
Ellipse(g,15*e+j,g+2,15*e+j+2);
end;
end;
end;
end;
вобщем оно рисует 1-ю строчку 15 раз :((
← →
vilfred (2002-12-11 16:59) [5]Ураа!! Заработала!!!!!!!!!!!!1 ААААААААААААААААААААААааа СПАСИБО!!!!!!!!!!!! ЙО!! maxxs[1,j,g] надо было поставить maxxs[e,j,g]
← →
Vit@ly (2002-12-11 17:00) [6]e:= 16*a + b; Но естественно получишь 0 -255, если нужно 1-256, то догадаться не сложно
Страницы: 1 вся ветка
Форум: "Основная";
Текущий архив: 2002.12.23;
Скачать: [xml.tar.bz2];
Память: 0.45 MB
Время: 0.009 c