алгоритм

← →
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]

e:= 16*a + b; Но естественно получишь 0 -255, если нужно 1-256, то догадаться не сложно

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