VPF::Разбитие числа на диапозоны(промежутки)

pupkindeniska

Дата 23.5.2011, 14:09 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 22
Регистрация: 29.1.2010

Репутация: нет
Всего: нет

Добрый день - нужна помощь.

У меня есть к примеру число 127 и нужно его разбить на промежутки. К примеру промежуток должен составлять 10.... должно получится.....

1-10, 11-21, 22-32, 33-43, 44-54... и так далее...... 120-127 то есть учтено целое!

А так - же надо учесть что число меняется и интервал тоже меняется .......
К примеру может быть ситуация когда интервал равен 10 а число всего лишь 8 и тогда должен получится интервал от 1 до 8 (1-8)

Вот мой код - но он работает не всегда правильно! Уже голову сломал!

Код


procedure TfrmForm.Button1Click(Sender: TObject);
var
i,max,p,l,k:integer;
begin
max:=StrToInt(Edit1.Text); //Число
p:=StrToInt(Edit2.Text); //Интервал
l:=0;
l:=l+p;

ComboBox1.Clear; //Компонент на форме ComboBox1 - очищяем

if max<=p then
Begin
ComboBox1.Items.Add('1-'+intToStr(max));
end
else
begin
 for i:=1 to max do
 Begin
  if i=l then
  Begin
  k:=i-p;
  if k<1 then k:=1;
  if l>max then l:=max;
   if i=p then ComboBox1.Items.Add(intToStr(k)+'-'+intToStr(l)) else
   Begin
   ComboBox1.Items.Add(intToStr(k+1)+'-'+intToStr(l+1));
   k:=k+1; l:=l+1;
   end;
   l:=l+p;
  end;
 end;
  if l>max then
  Begin
  if max<l then ComboBox1.Items.Add(intToStr(k+p)+'-'+intToStr(max)) else ComboBox1.Items.Add(intToStr(k+p+1)+'-'+intToStr(max));
  end;
end; 
 ComboBox1.ItemIndex:=0;
end;

Frees

Дата 23.5.2011, 14:14 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 2233
Регистрация: 2.12.2005
Где: Екатеринбург

Репутация: 9
Всего: 54

http://forum.vingrad.ru/forum/s/ab518839f7...howtopic=330549

Это сообщение отредактировал(а) Frees - 23.5.2011, 14:17

--------------------

Кольцов Виктор Владимирович

pupkindeniska

Дата 23.5.2011, 15:22 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 22
Регистрация: 29.1.2010

Репутация: нет
Всего: нет

Посмотри внимательнее.... мне нужно совсем другое! Мне нужно разбить число на диапазоны с определённым интервалом!

pupkindeniska

Дата 23.5.2011, 15:46 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 22
Регистрация: 29.1.2010

Репутация: нет
Всего: нет

Проблема в том что к примеру если интервал 5 а заданное число к примеру 6 то данные вычисления получают интервал
1-5, 7-6 а это не правильно! Должно получатся вот это 1-5, 6-6

pupkindeniska

Дата 24.5.2011, 14:35 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 22
Регистрация: 29.1.2010

Репутация: нет
Всего: нет

ПОМОГИТЕ - ёлки палки)

Qu1nt

Дата 24.5.2011, 15:12 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 602
Регистрация: 13.1.2007

Репутация: 18
Всего: 50

А если число меньше или равно нолю?

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Общие вопросы \| Следующая тема »