[Страдалецъ]

А что в нем так? Вот что это такое?

Код:

 SetLength(byteArray, 5);
  for i := 0 to (Length(byteArray)-1) do
    begin
      byteArray[0] := StrToInt(Edit1.Text);
      byteArray[1] := StrToInt(Edit2.Text);
      byteArray[2] := StrToInt(Edit3.Text);
      byteArray[3] := StrToInt(Edit4.Text);
      byteArray[4] := StrToInt(Edit5.Text);
    end;

На кой, вы это делаете? 5 раз присвоить одни и те-же значения. Типа для надежности?

Дальше идем.

Код:

z1:=0;
  while z1 > 0 do

z1 = 0, и согласно условию выполнять цикл не надо, значит весь цикл вообще никогда не выполняется.

[TheVenom]

Я думаю что лучше всего здесь подойдет оператор цикла с постусловием (" repeat... until... ; "), как мне лучше прописать условие для этого цикла?

[angvelem]

Пробуй так:

Код:

  while True do
  begin
    ...
    if z1 = 0 then Break;
  end;

  repeat
    ...
    if z1 = 0 then Break;
  until True;

[TheVenom]

Если использовать:

Код:

  while True do
  begin
    ...
    if z1 = 0 then Break;
  end;

То выводится ошибка ввода, а если использовать:

Код:

  repeat
    ...
    if z1 = 0 then Break;
  until True;

то все происходит так же, как и без repeat\until т.е. программа находит минимум только 1 раз.

[TheVenom]

возможно что то не так с телом цикла, а не с самим циклом? посмотрите, пожалуйста может найдете ошибку.

[angvelem]

Так не нужно копировать бездумно. Я не зря троеточие поставил, там должен выполняться твой код, а заодно изменяться значение z1.

[TheVenom]

ну я так и делал...

[angvelem]

Код:

  while True do
  begin
    min1 := 0;

    for I := 1 to (Length(byteArray)-1) do
      if byteArray[i] < byteArray[min1] then
        min1 := i;

    x1 :=  StrToInt(Edit21.Text);

    case min1 of
      0 :
      begin
        Edit1.Color := clLime;
        yy1 :=  StrToInt(Edit16.text);
        z1 := x1 - yy1 - z1;
      end;
      1 :
      begin
        Edit2.Color := clLime;
        yy1 :=  StrToInt(Edit17.text);
        z1 := x1 - yy1 - z1;
      end;
      2 :
      begin
        Edit3.Color := clLime;
        yy1 :=  StrToInt(Edit18.text);
        z1 := x1 - yy1 - z1;
      end;
      3 :
      begin
        Edit4.Color := clLime;
        yy1 := StrToInt(Edit19.text);
        z1 := x1 - yy1 - z1;
      end;
      4 :
      begin
        Edit5.Color := clLime;
        yy1 := StrToInt(Edit20.text);
        z1 := x1 - yy1 - z1;
      end;
    end;
  
    for I := min1 to Length(byteArray) - 2 do
      byteArray[i] := byteArray[I + 1];

    SetLength(byteArray, Length(byteArray) - 1);

    if z1 = 0 then
      Break;
  end;

Почти так, только работать не будет, так как z1 неинициализирована. Какое она должна иметь первоначальное значение тебе видней, я логику не проверял. И в следующий раз не ври, что так и делал. Красным я выделил ошибку в твоём рассуждении.

[TheVenom]

ввел первоначальное значение z1 и даже в теле цикла все через case прописал. все равно ошибка......

[angvelem]

Ты издеваешься? Штатный телепат сейчас не в сети, а я не знаю, что там происходит в строке 17. Ой ошибся в 34, не... наверное в 45.

[TheVenom]

вот что у меня получилось

Код:

procedure TForm1.BitBtn2Click(Sender: TObject);
var
  byteArray  : Array of integer;
  i:integer;
  min1,x1,yy1,z1: Integer;
begin
  SetLength(byteArray, 5);
  byteArray[0] := StrToInt(Edit1.Text);
  byteArray[1] := StrToInt(Edit2.Text);
  byteArray[2] := StrToInt(Edit3.Text);
  byteArray[3] := StrToInt(Edit4.Text);
  byteArray[4] := StrToInt(Edit5.Text);
  z1:=0;
  repeat
    min1 := 0;

    for I := 1 to (Length(byteArray)-1) do
      if byteArray[i] < byteArray[min1] then
        min1 := i;

    x1 :=  StrToInt(Edit21.Text);

    case min1 of
      0 :
      begin
        Edit1.Color := clLime;
        yy1 :=  StrToInt(Edit16.text);
        z1 := x1 - yy1 - z1;
      end;
      1 :
      begin
        Edit2.Color := clLime;
        yy1 :=  StrToInt(Edit17.text);
        z1 := x1 - yy1 - z1;
      end;
      2 :
      begin
        Edit3.Color := clLime;
        yy1 :=  StrToInt(Edit18.text);
        z1 := x1 - yy1 - z1;
      end;
      3 :
      begin
        Edit4.Color := clLime;
        yy1 := StrToInt(Edit19.text);
        z1 := x1 - yy1 - z1;
      end;
      4 :
      begin
        Edit5.Color := clLime;
        yy1 := StrToInt(Edit20.text);
        z1 := x1 - yy1 - z1;
      end;
    end;

    for I := min1 to Length(byteArray) - 2 do
      byteArray[i] := byteArray[I + 1];

    SetLength(byteArray, Length(byteArray) - 1);

    if z1 <= 0 then Break;
  until True;
  Label16.Caption:= IntToStr(z1);
end;

что здесь не так?

[angvelem]

Нужно тестировать в пошаговом режиме прервётся цикл или зациклится, дерзай.

[TheVenom]

цикл прерывается. как избежать прирывания?

[angvelem]

Ну почему из тебя слова клещами вытаскивать нужно? Кому сдавать программу мне или тебе? Как, при каких услових прерывается? "шагать" пробовал?

[TheVenom]

Код:

  repeat
    min1 := 0;

    for I := 1 to (Length(byteArray)-1) do
      if byteArray[i] < byteArray[min1] then min1 := i;

    x1 :=  StrToInt(Edit21.Text);

    case min1 of
      0 :
      begin
        Edit1.Color := clLime;
        yy1 :=  StrToInt(Edit16.text);
        z1 := x1 - yy1 - z1;
      end;
      1 :
      begin
        Edit2.Color := clLime;
        yy1 :=  StrToInt(Edit17.text);
        z1 := x1 - yy1 - z1;
      end;
      2 :
      begin
        Edit3.Color := clLime;
        yy1 :=  StrToInt(Edit18.text);
        z1 := x1 - yy1 - z1;
      end;
      3 :
      begin
        Edit4.Color := clLime;
        yy1 := StrToInt(Edit19.text);
        z1 := x1 - yy1 - z1;
      end;
      4 :
      begin
        Edit5.Color := clLime;
        yy1 := StrToInt(Edit20.text);
        z1 := x1 - yy1 - z1;
      end;
    end;

    for I := min1 to Length(byteArray) - 2 do
      byteArray[i] := byteArray[I + 1];

    SetLength(byteArray, Length(byteArray) - 1);

    if z1 <= 0 then Break;      //шагает отсюда
  until True;
  Label16.Caption:= IntToStr(z1);       //сразу сюда, не затрагивая until
end;

и из за этого цикл не повторяется