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

@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

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

Новые блоги и статьи Все статьи Все блоги /
Загрузка PNG с альфа-каналом на SDL3 для Android: с помощью SDL_LoadPNG (без SDL3_image) 8Observer8 28.01.2026 Содержание блога SDL3 имеет собственные средства для загрузки и отображения PNG-файлов с альфа-каналом и базовой работы с ними. В этой инструкции используется функция SDL_LoadPNG(), которая. . .	Загрузка PNG с альфа-каналом на SDL3 для Android: с помощью SDL3_image 8Observer8 27.01.2026 Содержание блога SDL3_image - это библиотека для загрузки и работы с изображениями. Эта пошаговая инструкция покажет, как загрузить и вывести на экран смартфона картинку с альфа-каналом, то есть с. . .	влияние грибов на сукцессию anaschu 26.01.2026 Бифуркационные изменения массы гриба происходят тогда, когда мы уменьшаем массу компоста в 10 раз, а скорость прироста биомассы уменьшаем в три раза. Скорость прироста биомассы может уменьшаться за. . .	Воспроизведение звукового файла с помощью SDL3_mixer при касании экрана Android 8Observer8 26.01.2026 Содержание блога SDL3_mixer - это библиотека я для воспроизведения аудио. В отличие от инструкции по добавлению текста код по проигрыванию звука уже содержится в шаблоне примера. Нужно только. . .
Установка Android SDK, NDK, JDK, CMake и т.д. 8Observer8 25.01.2026 Содержание блога Перейдите по ссылке: https:/ / developer. android. com/ studio и в самом низу страницы кликните по архиву "commandlinetools-win-xxxxxx_latest. zip" Извлеките архив и вы увидите. . .	Вывод текста со шрифтом TTF на Android с помощью библиотеки SDL3_ttf 8Observer8 25.01.2026 Содержание блога Если у вас не установлены Android SDK, NDK, JDK, и т. д. то сделайте это по следующей инструкции: Установка Android SDK, NDK, JDK, CMake и т. д. Сборка примера Скачайте. . .	Использование SDL3-callbacks вместо функции main() на Android, Desktop и WebAssembly 8Observer8 24.01.2026 Содержание блога Если вы откроете примеры для начинающих на официальном репозитории SDL3 в папке: examples, то вы увидите, что все примеры используют следующие четыре обязательные функции, а. . .	моя боль iceja 24.01.2026 Выложила интерполяцию кубическими сплайнами www. iceja. net REST сервисы временно не работают, только через Web. Написала за 56 рабочих часов этот сайт с нуля. При помощи perplexity. ai PRO , при. . .

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

	счастливый билет 27.11.2009, 12:58. Показов 8671. Ответов 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 3919 / 920 / 125 Регистрация: 16.04.2009 Сообщений: 1,952
	27.11.2009, 13:54
	А в поиск по форуму не догадались заглянуть? Счастливый билет и вычисление функции 0

@BasicMan 19318 / 2625 / 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