Форум по Delphi программированию

Delphi Sources



Вернуться   Форум по Delphi программированию > Все о Delphi > [ "Начинающим" ]
Ник
Пароль
Регистрация <<         Правила форума         >> FAQ Пользователи Календарь Поиск Сообщения за сегодня Все разделы прочитаны

Ответ
 
Опции темы Поиск в этой теме Опции просмотра
  #1  
Старый 03.11.2009, 15:14
5nizza77 5nizza77 вне форума
Прохожий
 
Регистрация: 16.10.2009
Сообщения: 10
Репутация: 10
По умолчанию Combobox

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

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


Последовательность должна вводится в элементы управления TextBox. Для каждого элемента последовательности – свой элемент управления TextBox. Количество элементов последовательности задается в элементе управления ComboBox, допустимое элементов от 1 до 15. На форме должна быть кнопка, позволяющая удалить содержимое элементов для ввода последовательности и кнопка «Решить».
Ответить с цитированием
  #2  
Старый 03.11.2009, 15:55
lmikle lmikle вне форума
Модератор
 
Регистрация: 17.04.2008
Сообщения: 8,094
Версия Delphi: 7, XE3, 10.2
Репутация: 49089
По умолчанию

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

За готовым решением - в раздел "Работа".
Ответить с цитированием
  #3  
Старый 03.11.2009, 16:01
5nizza77 5nizza77 вне форума
Прохожий
 
Регистрация: 16.10.2009
Сообщения: 10
Репутация: 10
По умолчанию

Сам алгоритм я давно понял, мне бы с combobox разобраться
Ответить с цитированием
  #4  
Старый 03.11.2009, 20:26
Redstason Redstason вне форума
Новичок
 
Регистрация: 24.02.2007
Сообщения: 57
Репутация: 10
По умолчанию

Так а в чем беда с Combobox, что неясно конкретно?
Ответить с цитированием
  #5  
Старый 04.11.2009, 05:22
5nizza77 5nizza77 вне форума
Прохожий
 
Регистрация: 16.10.2009
Сообщения: 10
Репутация: 10
По умолчанию

Как задать количество элементов последовательности в элементе управления ComboBox????
Ответить с цитированием
  #6  
Старый 04.11.2009, 22:22
Redstason Redstason вне форума
Новичок
 
Регистрация: 24.02.2007
Сообщения: 57
Репутация: 10
По умолчанию

Код:
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;
Ответить с цитированием
  #7  
Старый 05.11.2009, 04:17
5nizza77 5nizza77 вне форума
Прохожий
 
Регистрация: 16.10.2009
Сообщения: 10
Репутация: 10
По умолчанию

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


Delphi Sources

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск
Опции просмотра

Ваши права в разделе
Вы не можете создавать темы
Вы не можете отвечать на сообщения
Вы не можете прикреплять файлы
Вы не можете редактировать сообщения

BB-коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.
Быстрый переход


Часовой пояс GMT +3, время: 23:45.


 

Сайт

Форум

FAQ

Соглашения

Прочее

 

Copyright © Форум "Delphi Sources" by BrokenByte Software, 2004-2025