[5nizza77]

Помогите, пожалуйста, перечитал мноко литературы, но безуспешно...вся надежда на вас...

Даны дробные числа a1,…,an. Найти подпоследовательность наименьшей длины, расположенную между членами с нулевыми значениями.


Последовательность должна вводится в элементы управления TextBox. Для каждого элемента последовательности – свой элемент управления TextBox. Количество элементов последовательности задается в элементе управления ComboBox, допустимое элементов от 1 до 15. На форме должна быть кнопка, позволяющая удалить содержимое элементов для ввода последовательности и кнопка «Решить».

[lmikle]

Массив + цикл с памятью.
Перебираешь элементы массива. Как встречаешь 0, запоминаешь индекс.
Как только встречаешь второй 0, вычисляешь длинну и снова запоминаешь индекс. Ну а дале просто сравниваешь длинну с ранее запомненной, если маньше (или больше - по условию задачи), то новую запоминаешь, иначе - просто идем дальше.

За готовым решением - в раздел "Работа".

[5nizza77]

Сам алгоритм я давно понял, мне бы с combobox разобраться

[Redstason]

Так а в чем беда с Combobox, что неясно конкретно?

[5nizza77]

Как задать количество элементов последовательности в элементе управления ComboBox????

[Redstason]

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23

procedure TForm1.CreateEdits(offset: integer);  var   edit: TEdit; begin  edit := TEdit.Create(form1);  edit.Parent := form1;  edit.Left:=10;  edit.Top := 30 * offset; end;     procedure TForm1.ComboBox1KeyPress(Sender: TObject; var Key: Char);  var   i:integer; begin  if KEY=#13 then   begin    for i:=1 to StrToInt(ComboBox1.Text) do     begin      CreateEdits(i);     end;   end; end;

[5nizza77]

Redstason: Прикрепите, пожалуйста, программу с работающим как надо combobox'ом а алгоритм я сам напишу. Извините но у меня ничего не выходит.