счастливый билет

@Stasi55 · Регистрация: 12.11.2009

Студворк — интернет-сервис помощи студентам

Определить является ли введенный в текстовое поле автобусный шестизначный билет счастливым. Объясни в каком смысле счастливый. Mid len функции которые нужно использовать.

@solar_wind · 27.11.2009, 13:09

Ну счастливым обычно считают билет, если сумма первых трех цифр равна сумме вторых трех цифр.
Каждую тройку суммируют пока не получится одна цифра.

@Stasi55 · 27.11.2009, 13:23 **[ТС]**

Да. Но мне программу нужно составить.

Алгоритм написать

Я и сама знаю что это за билет)))

@кот Бегемот · 27.11.2009, 13:44

Из приведенной программы выброси двоеточия и слова do, begin, end, добавь next и получишь программу
http://g6prog.narod.ru/g6_1002.html
Ну, и в конце вывести Luck

@solar_wind · 27.11.2009, 13:44

Алгоритм:
В поле вводят 6 цифр, нажимают на кнопку.
Помещаешь значение поля в строку String.
Проверяешь с помощью функции len длину строки, она должна быть равна 6.
Дальше возможны варианты:
1. Перебираешь все символы строки, преобразуешь их в числа. И стандартными математическими операциями суммируешь их.
2. Преобразуешь строку в число. После этого делением на 10 в нужной степени вычисляешь каждое число и производишь нужные вычисления.
Есть еще варианты....

Что конкретно не ясно то?

@Toxa33rus · 27.11.2009, 13:54

А в поиск по форуму не догадались заглянуть?
Счастливый билет и вычисление функции

@BasicMan · 27.11.2009, 13:55

Сообщение от alexevt

Из приведенной программы выброси двоеточия и слова do, begin, end, добавь next

и вместо div надо использовать \

@jung · 27.11.2009, 13:57

Не по теме:

Вот готовая прога на вероятность покупки счасливого билета, только на С++.

C++
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
#include <iostream.h>
 
void main()
{
int a,b,c,d,S=0,H=0;
float ver;
for (a=0;a<10;a++)
for (b=0;b<10;b++)
for (c=0;c<10;c++)
for (d=0;d<10;d++) { 
   S++;
   if (a+c==b+d) {
      H++;
      }
}
ver=(float) H/S*100;
 
// Вывод результатов на экран
cout<<"Yuor ver. is "<<ver<<"%\n";
}

@кот Бегемот · 27.11.2009, 14:03

Я прошу прощения за ошибки в написании команд VB, я знаю только QB, но алгоритм абсолютно верный. Гарантирую.

Visual Basic
1
2
3
4
5
6
7
n$=INPUTbox("")
dim a(6)
if len(n$)<>6 then msgbox "no":end
for i=1 to 6
a(i)=val(mid$(n$,i,1))
next
if a(1)+a(2)+a(3)=a(4)+a(5)+a(6) then msbox "yes" else msgbox "no"

@Unusual55 · 07.12.2009, 19:54

А что нужно в этот алгоритм вписать, чтобы высчитывались все счасливые билетики, т.е. их колличество???
вот это моя программа:

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
Dim Bil As String, SimN As String, SimK As String, SumN As Byte, SumK As Byte
Private Sub Command1_Click()
    Bil = Text1.Text
    SumN = 0
    SumK = 0
For i = 1 To 3
    SimN = Mid(Bil, i, 1)
    SimK = Mid(Bil, i + 3, 1)
    SumN = SumN + CByte(SimN)
    SumK = SumK + CByte(SimK)
Next
If SumN = SumK Then Text2.Text = "Cчастливый билет" Else: Text2.Text = "Несчастливый билет"
End Sub

@BasicMan · 07.12.2009, 19:59

здесь надо немного доработать

Сообщение от Unusual55

If SumN = SumK Then Text2.Text = "Cчастливый билет" Else: Text2.Text = "Несчастливый билет"

а именно

Visual Basic
1
If SumN = SumK Then Text2.Text = "Cчастливый билет": кво_билетов=кво_билетов+1 Else: Text2.Text = "Несчастливый билет"

@Unusual55 · 07.12.2009, 20:19

Сообщение от CyberБурундукЪ

здесь надо немного доработать

а именно

Visual Basic
1
If SumN = SumK Then Text2.Text = "Cчастливый билет": кво_билетов=кво_билетов+1 Else: Text2.Text = "Несчастливый билет"

И все?...а в операторе описания что писать? наверно нужно создавать еще одно текстовое окно, чтобы кол-во билетов показывало?!

@BasicMan · 07.12.2009, 20:24

Сообщение от Unusual55

И все?

почти

Сообщение от Unusual55

операторе описания что писать?

Visual Basic
1
dim кво_билетов as Integer

Сообщение от Unusual55

наверно нужно создавать еще одно текстовое окно, чтобы кол-во билетов показывало?!

а тут 2 варианта: или добавить еще 1 поле
или в мсгбох загнать

Visual Basic
1
msgbox "кво_билетов=" & кво_билетов

но эт жеж и так понятно, вроде бы

@Unusual55 · 07.12.2009, 20:43

Сообщение от CyberБурундукЪ

почти

Visual Basic
1
dim кво_билетов as Integer

а тут 2 варианта: или добавить еще 1 поле
или в мсгбох загнать

Visual Basic
1
msgbox "кво_билетов=" & кво_билетов

но эт жеж и так понятно, вроде бы

так я сделала 2-ой вариант))...но у меня ошибка выскакивает и все кол-во счастливых билетов не высчитывает....может там еще одну переменную ввести нужно?)))

@BasicMan · 07.12.2009, 20:51

Unusual55, выложи код полностью

@Unusual55 · 07.12.2009, 20:57

Сообщение от CyberБурундукЪ

Unusual55, выложи код полностью

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Dim Bil As String, SimN As String, SimK As String, SumN As Byte, SumK As Byte, KBil As Integer
Private Sub Command1_Click()
    Bil = Text1.Text
    SumN = 0
    SumK = 0
    
For i = 1 To 3
    SimN = Mid(Bil, i, 1)
    SimK = Mid(Bil, i + 3, 1)
 [COLOR="Red"]  [COLOR="Yellow"] SumN = SumN + CByte(SimN)[/COLOR][/COLOR]
    SumK = SumK + CByte(SimK)
Next
If SumN = SumK Then Text2.Text = "Cчастливый билет" Else: Text2.Text = "Несчастливый билет"
[U]If SumN = SumK Then Text2.Text = "Cчастливый билет" Else: MsgBox "KBil=" & KBil[/U]
End Sub

То что красным выделено, вот эта та самая ошибка

@BasicMan · 07.12.2009, 21:09

шо за хрень ты написала

?
так напиши хотя бы

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
Dim Bil As String, SimN As String, SimK As String, SumN As Byte, SumK As Byte, KBil As Integer
 
Private Sub Command1_Click()
    Bil = Text1.Text
    SumN = 0
    SumK = 0
    
For i = 1 To 3
    SimN = Mid(Bil, i, 1)
    SimK = Mid(Bil, i + 3, 1)
    SumN = SumN + CByte(SimN)
    SumK = SumK + CByte(SimK)
Next
 
If SumN = SumK Then
    Text2.Text = "Cчастливый билет"
    KBil=KBil+1
Else
    Text2.Text = "Несчастливый билет"
end if
If KBil>0 Then MsgBox "Cчастливых билетов: " & KBil
End Sub

@Toxa33rus · 08.12.2009, 10:24

вместо

Visual Basic
1
If SumN = SumK Then Text2.Text = "Cчастливый билет" Else: Text2.Text = "Несчастливый билет"

написать

Visual Basic
1
If SumN = SumK Then Text2.Text = val(Text2.Text) + 1

@as · 13.04.2010, 23:12

Есть один вопрос!!!
Мне нужно посчитать количество счастливых билетов номера которых находятся в диапазоне (0;99999999).
Написал программу на С++ она все правильно считает, но восьмизначные номера долго обрабатывает
3.4 сек.
А нужно чтобы программа работала не больше 1 секунды.
Я использовал перебор билетов и каждый проверял является ли он счастливым.

Подскажите пожалуйста, может есть какой-то специальный алгоритм который будет работать быстрее???

@ironegg · 13.04.2010, 23:26

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

Новые блоги и статьи Все статьи Все блоги /
Перемещение выделенных строк ТЧ из одного документа в другой Maks 30.03.2026 Реализация из решения ниже выполнена на примере нетипового документа "ВыдачаОборудованияНаСпецтехнику" с единственной табличной частью "ОборудованиеИКомплектующие" разработанного в конфигурации КА2. . . .	Functional First Web Framework Suave DevAlt 30.03.2026 Sauve. IO Апнулись до NET10. Из зависимостей один пакет, работает одинаково хорошо как в режиме проекта так и в интерактивном режиме. из сложностей - чисто функциональный подход. Решил. . .	Автоматическое создание документа при проведении другого документа Maks 29.03.2026 Реализация из решения ниже выполнена на нетиповых документах, разработанных в конфигурации КА2. Есть нетиповой документ "ЗаявкаНаРемонтСпецтехники" и нетиповой документ "ПланированиеСпецтехники". В. . .	Настройка движения справочника по регистру сведений Maks 29.03.2026 Решение ниже реализовано на примере нетипового справочника "ТарифыМобильнойСвязи" разработанного в конфигурации КА2, с целью учета корпоративной мобильной связи в коммерческом предприятии. . . .
Автозаполнение реквизита при выборе элемента справочника Maks 27.03.2026 Программный код из решения ниже на примере нетипового документа "ЗаявкаНаРемонтСпецтехники" разработанного в конфигурации КА2. При выборе "Спецтехники" (Тип Справочник. Спецтехника), заполняется. . .	Сумматор с применением элементов трёх состояний. Hrethgir 26.03.2026 Тут. https:/ / fips. ru/ EGD/ ab3c85c8-836d-4866-871b-c2f0c5d77fbc Первый документ красиво выглядит, но без схемы. Это конечно не даёт никаких плюсов автору, но тем не менее. . . всё может быть. . .	Автозаполнение реквизитов при создании документа Maks 26.03.2026 Программный код из решения ниже размещается в модуле объекта документа, в процедуре "ПриСозданииНаСервере". Алгоритм проверки заполнения реализован для исключения перезаписи значения реквизита,. . .	Команды формы и диалоговое окно Maks 26.03.2026 1. Команда формы "ЗаполнитьЗапчасти". Программный код из решения ниже на примере нетипового документа "ЗаявкаНаРемонтСпецтехники" разработанного в конфигурации КА2. В качестве источника данных. . .

@Stasi55 1 / 1 / 0 Регистрация: 12.11.2009 Сообщений: 10

	счастливый билет 27.11.2009, 12:58. Показов 8694. Ответов 27 Метки нет (Все метки) Определить является ли введенный в текстовое поле автобусный шестизначный билет счастливым. Объясни в каком смысле счастливый. Mid len функции которые нужно использовать. 0

@solar_wind 770 / 760 / 59 Регистрация: 06.07.2009 Сообщений: 3,021
	27.11.2009, 13:09
	Ну счастливым обычно считают билет, если сумма первых трех цифр равна сумме вторых трех цифр. Каждую тройку суммируют пока не получится одна цифра. 0

@Stasi55 1 / 1 / 0 Регистрация: 12.11.2009 Сообщений: 10
	27.11.2009, 13:23 [ТС]
	Да. Но мне программу нужно составить. Алгоритм написать Я и сама знаю что это за билет))) 0

@кот Бегемот Платежеспособный зверь 8966 / 4389 / 1655 Регистрация: 28.10.2009 Сообщений: 11,647
	27.11.2009, 13:44
	Из приведенной программы выброси двоеточия и слова do, begin, end, добавь next и получишь программу http://g6prog.narod.ru/g6_1002.html Ну, и в конце вывести Luck 0

@Toxa33rus 3924 / 925 / 125 Регистрация: 16.04.2009 Сообщений: 1,977
	27.11.2009, 13:54
	А в поиск по форуму не догадались заглянуть? Счастливый билет и вычисление функции 0

@BasicMan 19318 / 2626 / 84 Регистрация: 17.02.2009 Сообщений: 30,364
	07.12.2009, 20:51
	Unusual55, выложи код полностью 0

@as 39 / 25 / 6 Регистрация: 14.02.2009 Сообщений: 355
	13.04.2010, 23:12
	Есть один вопрос!!! Мне нужно посчитать количество счастливых билетов номера которых находятся в диапазоне (0;99999999). Написал программу на С++ она все правильно считает, но восьмизначные номера долго обрабатывает 3.4 сек. А нужно чтобы программа работала не больше 1 секунды. Я использовал перебор билетов и каждый проверял является ли он счастливым. Подскажите пожалуйста, может есть какой-то специальный алгоритм который будет работать быстрее??? 0

@ironegg 1905 / 782 / 31 Регистрация: 11.02.2010 Сообщений: 1,567
	13.04.2010, 23:26
	если надо увеличить быстродействие в пару раз, то может будет достаточно проверять, не больше ли сумма двух чисел второй групп чем трех первой, если больше - то третье число не перебирать 0