@BigNooB

Всех приветствую. Доброго времени суток. Осталось 4 лабораторные. надо сдать до завтра. Взял на себя все более менее для меня понятные. До утра и так буду делать всё Я из Владивостока у меня уже 9.45минут. Помоги очень прошу, вот прям умоляю. Хочется закрыть этот предмет ТРПП (Технология разработки программных продуктов) и диплом тройкой не портить. Короче и понятней

Работа в форме. На форме два Edit'a одно memo или StringGrid.
Программа называется "Счастливый билет".
Тоесть мы вводим в 1ый Edit 111111 и во второй 999999 тоесть интервал от такого то до такого то (могут быть любые цифры). Нажимаем кнопочку и он в поле мемо или в гритстринг выводит Сначало первый столбик (Всего в интервале от (того что ввели в начале и в конце) 111111 до 999999 счастливых билетов = 4561.
И ниже все Счастливые билеты.

Например поле Мемо.

Всего в интервале от 111111 до 999999 счастливых билетов =4561.
111111
123321
124421
........
и тд.
Для тех кто не ездиет на МТС (маршрутно транспортные средства ( автобусы, тройлебусы и тд)) счасливым билетом считается билет у которого первые три цифры и 2ые 3цифры равны. Тоесть билет номер 123321. Разделяем билет на 2 части. получается 123 321. Считаем 1+2+3=6 и вторая половинка билета 3+2+1=6, 6=6 - утра счастливый билет. Ну очень прошу помогите до утра (моего) очень надо.
Всем заранее спасибо.

0

@xToTa

div/mod в зубы и вперед... целочисленное деление и остаток от деления... сначала билетик разбиваешь на 2 числа, first и second к примеру...
first := bilet mod 1000;
second := bilet div 1000;

потом сделаешь функцию подсчета суммы цифр... передаешь в нее число - она выводит сумму... так же див/модами разбиваешь и суммируешь ...

находишь таким образом sum_first и sum_second
if (sum_first == sum_second) then {count++}
Это все конечно в цикле от первого числа интервала до второго....
Это ты получишь количество, как при этом еще выводить числа - уже подумай сам

0

@BigNooB

Спасибо конечно. Но я с циклами не дружу Не могли бы вы с кодом самим помоч.
Заранее благодарю.

0

@xToTa

нет =)
тогда пользы вам никакой не будет..
общую идею я написал... вот вам еще скелет цикла на русском, а на язык программирования положите это сами:
счетчик равен от первого_числа до второго_числа {
первая_половина = билет div 1000;
вторая_половина = билет mod 1000;
сумма_адЫн = ваша_функция(первая_половина);
сумма_два = ваша_функция(вторая_половина);
если сумма_адЫн = сумма_два то количество ++;
}

0

@BigNooB

У меня еще 3 лабы висят которые я до утра буду делать. Если бы было время я бы сам написал а не обращался за помощью.

0

@xToTa

А все остальные сидят и только и ждут кому бы написать полностью программу
Многие могут натолкнуть на правильную мысль, но есть и такие кто напишут полностью решение... жди тогда...
Лично я сам сижу на работе и у меня есть время подсказать, но не сделать все за тебя =/

1

@BigNooB

Алгоритм я сам еще как только сказали задание составил. Но вот с синтаксисом проблемы

0

@Puporev

Вот посмотрите, устроит, нет. Откуда Вы взяли что в интервале 111111 до 999999 счастливых билетов = 4561. Их там 50 119. Количество билетов сделал в конце, иначе надо будет прокручивать эти 50000 строк назад. Короче посмотрите. Вероятно надо ограничить ввод в Эдиты, но если этого нет в задании, то не будем пока писать.

Вложения

Счастливые билеты.rar (3.3 Кб, 184 просмотров)

1

@BigNooB

Прям вот не знаю как вас благодарить. Огромнейшее спасибо. Насчёт 4561 это я так для примера( для ясности задачи). В задачи было прост вывести кол-во всех билетов и сами билеты . Я не много не подумал что он сначало в цикле все билеты выведет, а потом подсчитает их кол-во.
Нет не чего не надо доделывать. Всё на высшем уровне. Меня распирает радость. И большой "+" вашему форуму и лично Вам. Всех благодарю кто помогал мне.
Спасибо Всем.
Ограничить ввод я сделаю через процедуру KeyPress. Что бы буковки не вводились, символы и тд. Только от 0 до 9 и #8 клавиша Backpace. Это я слава Богу умею)

0