С Новым годом! Форум программистов, компьютерный форум, киберфорум
Delphi для начинающих
Войти
Регистрация
Восстановить пароль
Карта форума Темы раздела Блоги Сообщество Поиск Заказать работу  
 
Рейтинг 4.88/8: Рейтинг темы: голосов - 8, средняя оценка - 4.88
0 / 0 / 0
Регистрация: 24.12.2017
Сообщений: 3
1

Генерация чисел в указанном диапазоне

24.12.2017, 12:03. Показов 1508. Ответов 8
Метки нет (Все метки)

Author24 — интернет-сервис помощи студентам
Ребята очень прошу вас нужна ваша помощь. Надо написать программу для дипломной работы но столкнулся с такой проблемой.
имеется 2 Comboboxa, 2 Tedita и 1 Listbox. В первом Comboboxе водится код страны с символом + во втором код оператора а в Teditах водится цифры номера телефона для генерации мобильных номеров по порядку в заданном диапазоне. Например если пользователь выбрал страну Россия то в первом Comboboxе выбирается код +7 а во втором Comboboxе выбирается код оператора из списка например 900 далее в первом Teditе нужно вести цифры для генерации от указанного диапазона а во втором до указанного диапазона. Например генерация номеров по порядку от +79000000000 до +79009999999 и чтоб сгенерированные номера отображались слитно без пробелов в Listbox. Я не знаю как код написать я в этом чайник. А чтоб интиутивнее было понятно прикрепляю скриншот...
Миниатюры
Генерация чисел в указанном диапазоне  
0
Лучшие ответы (1)
Programming
Эксперт
39485 / 9562 / 3019
Регистрация: 12.04.2006
Сообщений: 41,671
Блог
24.12.2017, 12:03
Ответы с готовыми решениями:

Вычислить значение функции y в указанном диапазоне x с шагом h, в зависимости от условия
Создать приложение, позволяющее вычислять значение функции y в указанном диапазоне x с шагом h, в...

Вывести таблично результаты расчета функции y=sin(x)/x на указанном диапазоне в файл
Вывести таблично результаты расчета функции y=sin(x)/x на указанном диапазоне в файл.

Вывести таблично результаты расчета функции y=sin(x)/x на указанном диапазоне в файл
1.Вывести таблично результаты расчета функции y=sin(x)/x на указанном диапазоне в файл.

Генерация случайного числа, находящегося в диапазоне [-x, x]
Помогите написать процедуру : Генерация случайного числа, находящегося в диапазоне . Мне нужно...

8
Модератор
9644 / 6251 / 2426
Регистрация: 21.01.2014
Сообщений: 26,667
Записей в блоге: 3
24.12.2017, 14:10 2
Даже вывод в листбокс 10000 строк занимает несколько секунд, а Вы хотите вывести 10000000... Это не факт, что вообще возможно, но, даже если и так, то о-о-о-очень долго будет...
0
0 / 0 / 0
Регистрация: 24.12.2017
Сообщений: 3
25.12.2017, 03:29  [ТС] 3
Ну во первых это возможно реализовать и написать такую программу так как нашел подобную программу в интернете только без исходника. Во вторых знаю что он долго будет генерировать номера. Ну а в третьих на дипломную работу мне нужно предоставить программу с исходным кодом. И все же благодарю за ответ но проблема до сих пор остается не решенной.
0
5580 / 4430 / 1080
Регистрация: 29.08.2013
Сообщений: 27,714
Записей в блоге: 3
25.12.2017, 07:34 4
Цитата Сообщение от MisterCyberman Посмотреть сообщение
Я не знаю как код написать я в этом чайник.
это же обычный For, вы даже этого не можете?

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
prefix:='+7';
suffix:='900';
number:='';
for i:=0 to 999 do
begin
  case length(i) of
  1: number:='00'+inttostr(i);
  2: number:='0'+inttostr(i);
  3: number:=inttostr(i);
  end
  listbox.items.add(prefix+suffix+number);
end;
как-то так
0
0 / 0 / 0
Регистрация: 24.12.2017
Сообщений: 3
25.12.2017, 08:17  [ТС] 5
Прошу прощения конечно а можно полный код? Как все это связать с кнопкой Сгенерировать который показан на скриншоте?
0
Модератор
9644 / 6251 / 2426
Регистрация: 21.01.2014
Сообщений: 26,667
Записей в блоге: 3
25.12.2017, 08:32 6
Лучший ответ Сообщение было отмечено MisterCyberman как решение

Решение

Цитата Сообщение от MisterCyberman Посмотреть сообщение
это возможно реализовать и написать такую программу
Кто бы спорил, там кода-то 2 строки, но вот позволит ли любой визуальный компонент (ListBox, Memo, ets.) вместить в себя все 10000000 строк за один раз - вот в чем вопрос.
Цитата Сообщение от MisterCyberman Посмотреть сообщение
проблема до сих пор остается не решенной
Да нет никакой проблемы...
Delphi
1
2
3
4
5
var i: integer;
begin
for i := StrToInt(Edit1.Text) to StrToInt(Edit2.Text) do
 ListBox1.Items.Add(Format('%s%s%.7d', [ComboBox1.Text, ComboBox2.Text, i]));
end;
Цитата Сообщение от MisterCyberman Посмотреть сообщение
ак все это связать с кнопкой Сгенерировать
создать для нее обработчик события OnClick и скопировать туда этот код.

Не по теме:

Цитата Сообщение от MisterCyberman Посмотреть сообщение
на дипломную работу
М-да... :scratch:

1
5580 / 4430 / 1080
Регистрация: 29.08.2013
Сообщений: 27,714
Записей в блоге: 3
25.12.2017, 08:44 7
Цитата Сообщение от MisterCyberman Посмотреть сообщение
Прошу прощения конечно а можно полный код?
это уж сам, не ленись
0
MyEternity
27.12.2017, 15:00
  #8

Не по теме:

Это задача для дипломной работы???

0
D1973
27.12.2017, 15:04     Генерация чисел в указанном диапазоне
  #9

Не по теме:

Цитата Сообщение от MyEternity Посмотреть сообщение
Это задача для дипломной работы???
Эх, поспешили мы учиться, однако... Ранешний диплом теперь, я чую, на кандидатскую диссертацию тянет...

0
27.12.2017, 15:04
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
27.12.2017, 15:04
Помогаю со студенческими работами здесь

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

поиск чисел-палиндромов в указанном интервале
Нужно написать прогу, которая будет реализовать поиск чисел-полиандромов в указанном интервале,...

Среди N случайных чисел в диапазоне от -1 до 10 определите количество чисел, делящихся на 3.
6. Среди N случайных чисел в диапазоне от -1 до 10 определите количество чисел, делящихся на 3.

Генерация чисел
Как сделать, чтобы числа из определенного диапазона генерировались случайным образом и не...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
9
Ответ Создать тему
Новые блоги и статьи
Счётчик на базе сумматоров + регистров и генератора сигналов согласования.
Hrethgir 07.01.2025
Создан с целью проверки скорости асинхронной логики: ранее описанного сумматора и предополагаемых fast регистров. Регистры созданы на базе ранее описанного, предполагаемого fast триггера. То-есть. . .
Как перейти с Options API на Composition API в Vue.js
BasicMan 06.01.2025
Почему переход на Composition API актуален В мире современной веб-разработки фреймворк Vue. js продолжает эволюционировать, предлагая разработчикам все более совершенные инструменты для создания. . .
Архитектура современных процессоров
inter-admin 06.01.2025
Процессор (центральный процессор, ЦП) является основным вычислительным устройством компьютера, которое выполняет обработку данных и управляет работой всех остальных компонентов системы. Архитектура. . .
История создания реляционной модели баз данных, правила Кодда
Programming 06.01.2025
Предпосылки создания реляционной модели В конце 1960-х годов компьютерная индустрия столкнулась с серьезными проблемами в области управления данными. Существовавшие на тот момент модели данных -. . .
Полезные поделки на Arduino, которые можно сделать самому
raxper 06.01.2025
Arduino как платформа для творчества Arduino представляет собой удивительную платформу для технического творчества, которая открывает безграничные возможности для создания уникальных проектов. Эта. . .
Подборка решений задач на Python
IT_Exp 06.01.2025
Целью данной подборки является предоставление возможности ознакомиться с различными задачами и их решениями на Python, что может быть полезно как для начинающих, так и для опытных программистов. . . .
С чего начать программировать микроконтроллер­­ы
raxper 06.01.2025
Введение в мир микроконтроллеров Микроконтроллеры стали неотъемлемой частью современного мира, окружая нас повсюду: от простых бытовых приборов до сложных промышленных систем. Эти маленькие. . .
Из чего собрать игровой компьютер
inter-admin 06.01.2025
Сборка игрового компьютера требует особого внимания к выбору комплектующих и их совместимости. Правильно собранный игровой ПК не только обеспечивает комфортный геймплей в современных играх, но и. . .
Обновление сайта www.historian.b­y
Reglage 05.01.2025
Обещал подвести итоги 2024 года для сайта. Однако начну с того, что изменилось за неделю. Добавил краткий урок по последовательности действий при анализе вредоносных файлов и значительно улучшил урок. . .
Как использовать GraphQL в C# с HotChocolate
Programming 05.01.2025
GraphQL — это современный подход к разработке API, который позволяет клиентам запрашивать только те данные, которые им необходимы. Это делает взаимодействие с API более гибким и эффективным по. . .
Модель полного двоичного сумматора с помощью логических операций (python)
AlexSky-coder 04.01.2025
def binSum(x:list, y:list): s=^y] p=x and y for i in range(1,len(x)): s. append((x^y)^p) p=(x and y)or(p and (x or y)) return s x=list() y=list()
Это мы не проходили, это нам не задавали...(аси­­­­­­­­­­­­­­­­­­­­­­­­­­х­р­о­н­­н­­­ы­­й счётчик с управляющим сигналом зад
Hrethgir 04.01.2025
Асинхронный счётчик на сумматорах (шестиразрядный по числу диодов на плате, но наверное разрядов будет больше - восемь или шестнадцать, а диоды на старшие), так как триггеры прошли тестирование и. . .
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2025, CyberForum.ru