Форум программистов, компьютерный форум, киберфорум
Visual Basic
Войти
Регистрация
Восстановить пароль
Блоги Сообщество Поиск Заказать работу  
 
Рейтинг 4.88/41: Рейтинг темы: голосов - 41, средняя оценка - 4.88
0 / 0 / 0
Регистрация: 09.11.2012
Сообщений: 17

По номеру месяца выдать все приходящиеся на этот месяц праздничные дни

09.11.2012, 22:45. Показов 7660. Ответов 3
Метки нет (Все метки)

Студворк — интернет-сервис помощи студентам
Написать программу, которая по данному натуральному числу от 1 до 12 (номеру месяца) выдает все приходящиеся на этот месяц праздничные дни (например, если введено число 1, то: 1 января – Новый год, 7 января – Рождество) или сообщение, что праздников нет.
Выложите пожалуйста код
0
IT_Exp
Эксперт
34794 / 4073 / 2104
Регистрация: 17.06.2006
Сообщений: 32,602
Блог
09.11.2012, 22:45
Ответы с готовыми решениями:

По введенному числу от 1 до 12 (номеру месяца) выдать все приходящиеся на этот месяц праздничные дни
Которое по введенному числу от 1 до 12 (номеру месяца) выдает все приходящиеся на этот месяц праздничные дни ( например, если введено число...

Оператор case: по введенному номеру месяца выдать все приходящиеся на этот месяц праздничные дни
Написать программу, которая по введенному числу от 1 до 12 (номеру месяца) выдает все приходящиеся на этот месяц праздничные дни (например,...

все приходящиеся на этот месяц праздничные дни
Написать программу, которая по введенному числу от 1 до 12 (номеру месяца) выдает все приходящиеся на этот месяц праздничные дни (например,...

3
15155 / 6428 / 1731
Регистрация: 24.09.2011
Сообщений: 9,999
09.11.2012, 23:30
Лучший ответ Сообщение было отмечено как решение

Решение

Выложите пожалуйста список праздников
3
0 / 0 / 0
Регистрация: 09.11.2012
Сообщений: 17
10.11.2012, 01:53  [ТС]
Цитата Сообщение от Казанский Посмотреть сообщение
Выложите пожалуйста список праздников
http://ru.wikipedia.org/wiki/Праздники_России
Там в скобках где написано не рабочий день

Добавлено через 15 минут
1, 2, 3, 4, 5 января – Новогодние каникулы;
7 января – Рождество Христово;
23 февраля – День защитника Отечества;
8 марта – Международный женский день;
1 мая – Праздник Весны и Труда;
9 мая – День Победы;
12 июня – День России;
4 ноября – День народного единства;
31 декабря – выходной.
0
es geht mir gut
 Аватар для SoftIce
11274 / 4760 / 1183
Регистрация: 27.07.2011
Сообщений: 11,439
10.11.2012, 07:30
Лучший ответ Сообщение было отмечено как решение

Решение

В лоб
Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
Private Function Holidays(ByVal NumberOfMonth As Integer) As String
    Select Case NumberOfMonth
           Case 1:  Holidays = " 1, 2, 3, 4, 5 января – Новогодние каникулы, " + _
                               " 7 января – Рождество Христово"
           Case 2:  Holidays = " 23 февраля – День защитника Отечества"
           Case 3:  Holidays = " 8 марта – Международный женский день"
           Case 5:  Holidays = " 1 мая – Праздник Весны и Труда" + _
                               " 9 мая – День Победы"
           Case 6:  Holidays = " 12 июня – День России"
           Case 11: Holidays = " 4 ноября – День народного единства"
           Case 12: Holidays = " 31 декабря – выходной"
           Case 4, 7, 8, 9, 10
                    Holidays = " Праздников нет."
           Case Else
                    Holidays = " Номер месяца введён неправильно."
    End Select
End Function
 
Private Sub Command1_Click()
'Проверка
Dim n As Integer
    n = InputBox("Введите номер месяца", "Ввод данных", 1)
   If n >= 1 And n <= 12 Then
      MsgBox Holidays(n), vbInformation, "Месяц - " & MonthName(n)
   End If
End Sub
3
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
BasicMan
Эксперт
29316 / 5623 / 2384
Регистрация: 17.02.2009
Сообщений: 30,364
Блог
10.11.2012, 07:30
Помогаю со студенческими работами здесь

По заданному номеру месяца определить праздничные дни
Написать программу, которая по данному натуральному числу от 1 до 12 ( номеру месяца ) выдает все приходящиеся на этот месяц праздничные...

По номеру месяца выдать название следующего за ним месяца
Написать программу, которая по номеру месяца выдает название следующего за ним месяца (при m=1 получаем февраль, 4-май и т.д)

По номеру месяца m выдать название следующего за ним месяца
Используя оператор выбора, написать программу, которая по номеру месяца m выдает название следующего за ним месяца (при m=1 получаем...

По номеру месяца выдать название следующего за ним месяца
--не консольный режим-- Написать программу, которая бы по номеру месяца выдает название следующего за ним месяца (m =1 получаем...

По номеру месяца выдать название следующего за ним месяца
Помогите пожалуйста решить две задачи в qbasic на оператор выбора. 1. Написать программу, которая по номеру месяца выдает название...


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

Или воспользуйтесь поиском по форуму:
4
Ответ Создать тему
Новые блоги и статьи
PhpStorm 2025.3: WSL Terminal всегда стартует в ~
and_y87 14.12.2025
PhpStorm 2025. 3: WSL Terminal всегда стартует в ~ (home), игнорируя директорию проекта Симптом: После обновления до PhpStorm 2025. 3 встроенный терминал WSL открывается в домашней директории. . .
Access
VikBal 11.12.2025
Помогите пожалуйста !! Как объединить 2 одинаковые БД Access с разными данными.
Новый ноутбук
volvo 07.12.2025
Всем привет. По скидке в "черную пятницу" взял себе новый ноутбук Lenovo ThinkBook 16 G7 на Амазоне: Ryzen 5 7533HS 64 Gb DDR5 1Tb NVMe 16" Full HD Display Win11 Pro
Музыка, написанная Искусственным Интеллектом
volvo 04.12.2025
Всем привет. Некоторое время назад меня заинтересовало, что уже умеет ИИ в плане написания музыки для песен, и, собственно, исполнения этих самых песен. Стихов у нас много, уже вышли 4 книги, еще 3. . .
От async/await к виртуальным потокам в Python
IndentationError 23.11.2025
Армин Ронахер поставил под сомнение async/ await. Создатель Flask заявляет: цветные функции - провал, виртуальные потоки - решение. Не threading-динозавры, а новое поколение лёгких потоков. Откат?. . .
Поиск "дружественных имён" СОМ портов
Argus19 22.11.2025
Поиск "дружественных имён" СОМ портов На странице: https:/ / norseev. ru/ 2018/ 01/ 04/ comportlist_windows/ нашёл схожую тему. Там приведён код на С++, который показывает только имена СОМ портов, типа,. . .
Сколько Государство потратило денег на меня, обеспечивая инсулином.
Programma_Boinc 20.11.2025
Сколько Государство потратило денег на меня, обеспечивая инсулином. Вот решила сделать интересный приблизительный подсчет, сколько государство потратило на меня денег на покупку инсулинов. . . .
Ломающие изменения в C#.NStar Alpha
Etyuhibosecyu 20.11.2025
Уже можно не только тестировать, но и пользоваться C#. NStar - писать оконные приложения, содержащие надписи, кнопки, текстовые поля и даже изображения, например, моя игра "Три в ряд" написана на этом. . .
Мысли в слух
kumehtar 18.11.2025
Кстати, совсем недавно имел разговор на тему медитаций с людьми. И обнаружил, что они вообще не понимают что такое медитация и зачем она нужна. Самые базовые вещи. Для них это - когда просто люди. . .
Создание Single Page Application на фреймах
krapotkin 16.11.2025
Статья исключительно для начинающих. Подходы оригинальностью не блещут. В век Веб все очень привыкли к дизайну Single-Page-Application . Быстренько разберем подход "на фреймах". Мы делаем одну. . .
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2025, CyberForum.ru