Мерился с крестами православными)))

[Iron Monk]

Опять на работе забились))) Холодильник от Братьев Пилотов. Пишем усложненный аналог. На Делфе потратил минут 35-40. Осталась проблема с оптимизацией - можно ли эти два цикла вписать в одну процедуру? Ифы не предлагать))) Минай, озари)))

  for i:= 1 to 4 do
  begin
  if not rev then
  if i = b then Continue;
  if (ind[a,i] = 3) or (ind[a,i] = 7) then
  ind[a,i]:= step - 1;
  ima[a, i].Picture.Assign(mass[ind[a,i] + 1]);
  ind[a,i]:= ind[a,i] + 1;
  end;

  for i:= 1 to 4 do
  begin
  if not rev then
  if i = a then Continue;
  if (ind[i,b] = 3) or (ind[i,b] = 7) then
  ind[i,b]:= step - 1;
  ima[i,b].Picture.Assign(mass[ind[i,b] + 1]);
  ind[i,b]:= ind[i,b] + 1;
  end;

[Аватар]

Так, что ли?

  for i:= 1 to 4 do begin
    if rev or (i <> b) then begin
      if (ind[a,i] = 3) or (ind[a,i] = 7) then ind[a,i]:= step - 1;
      ima[a, i].Picture.Assign(mass[ind[a,i] + 1]);
      ind[a,i]:= ind[a,i] + 1;
    end;
    if rev or (i <> a) then begin
      if (ind[i,b] = 3) or (ind[i,b] = 7) then ind[i,b]:= step - 1;
      ima[i,b].Picture.Assign(mass[ind[i,b] + 1]);
      ind[i,b]:= ind[i,b] + 1;
    end;
  end;

Ифы не предлагать

По крайней мере тут их 4 вместо 6 в исходном коде.

[Человек_Борща]

Вот так думаю прокатит:

for i:=1 to 4 do
begin
	if (not rev) and ((i = b) or (i = a)) then
		Continue;

	if (ind[a,i] = 3) or (ind[a,i] = 7) then
		ind[a,i]:= step - 1;

	if (ind[i,b] = 3) or (ind[i,b] = 7) then
		ind[i,b]:= step - 1;

	ima[a, i].Picture.Assign(mass[ind[a,i] + 1]);
	ind[a,i]:= ind[a,i] + 1;

	ima[i,b].Picture.Assign(mass[ind[i,b] + 1]);
	ind[i,b]:= ind[i,b] + 1;
end;

[Iron Monk]

Сообщение от Человек_Борща

Вот так думаю прокатит:

for i:=1 to 4 do
begin
	if (not rev) and ((i = b) or (i = a)) then
		Continue;

	if (ind[a,i] = 3) or (ind[a,i] = 7) then
		ind[a,i]:= step - 1;

	if (ind[i,b] = 3) or (ind[i,b] = 7) then
		ind[i,b]:= step - 1;

	ima[a, i].Picture.Assign(mass[ind[a,i] + 1]);
	ind[a,i]:= ind[a,i] + 1;

	ima[i,b].Picture.Assign(mass[ind[i,b] + 1]);
	ind[i,b]:= ind[i,b] + 1;
end;

Не, так не прокатило)))
Аватар, спасибо. Код арбайтн.