Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

алгоритм [D4]

vilfred © (2002-12-11 16:45:00)
есть два цикла

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

тоесть чтобы увеличивалась на единичку при каждом входе...

есть какие нибудь идеи?

Спасибо!

Vit@ly (2002-12-11 17:00:00) [1]
e:= 16*a + b; Но естественно получишь 0 -255, если нужно 1-256, то догадаться не сложно

vilfred (2002-12-11 16:59:00) [2]
Ураа!! Заработала!!!!!!!!!!!!1 ААААААААААААААААААААААааа СПАСИБО!!!!!!!!!!!! ЙО!! maxxs[1,j,g] надо было поставить maxxs[e,j,g]

vilfred (2002-12-11 16:58:00) [3]
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 раз :((

Anatoly Podgoretsky (2002-12-11 16:56:00) [4]
А зачем?
ди и цикл здесь бессмычленный, если E не свойство, то на каждой итеррации теряется предыдущее значение. Этот цикл заменяется на:

e := 15*15+15

З.Ы. в данном цикле Е никогда не будет равна 241..255, проверь с карандашом, может тебе надо for I := 1 to 255 do?

han_malign (2002-12-11 16:51:00) [5]
e:=e+1;???

MBo (2002-12-11 16:51:00) [6]
16*a+b ;)
от 0 до 255

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »