Вычислить номер дня в невисокосном году по заданным числу и месяцу

@R Sv · Регистрация: 15.05.2016

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

Помогите пожалуйста! Нужно написать программу, которая сможет вычислить номер дня в не високосном году по заданным числу и месяцу на языке qbasic. Спасибо! Вроде с этим языком у меня для новичка пойдёт, но я запутался:
DIM i AS INTEGER, day AS INTEGER, num AS INTEGER
PRINT "Enter month's day"
INPUT "day="; day
PRINT "Enter month's number"
INPUT "num="; num
Month1 = 31
Month2 = 28
Month3 = 31
Month4 = 30
Month5 = 31
Month6 = 30
Month7 = 31
Month8 = 31
Month9 = 30
Month10 = 31
Month11 = 30
Month12 = 31

echs · 01.06.2016, 16:38

R Sv
Вы не сказали самое главное. В каком формате будет
вводиться дата? Возможны разные варианты...
Например 01.06.2016 (01.06) или 1 Juno 2016. И так далее.
Или вы желаете ввести все по отдельности как в вашей про?

@R Sv · 01.06.2016, 16:49 **[ТС]**

Думаю, что лучший вариант вот этот: 01.06.2016 (01.06)

echs · 01.06.2016, 17:21

Программа проверена
Дату можно вводить как полную например 01.06.2011
так и неполную. Роль играют первые пять символов 01.06
а все остальное только для красоты. При записи числа
0 не опускается. Если что надо спрашивайте - я объясню.

QBasic/QuickBASIC
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
CLS
DIM Mon(1 TO 12)
DIM d AS STRING
DIM dn AS STRING
DIM dm AS STRING
 
DATA 31,28,31,30,31,30,31,31,30,31,30,31
 
FOR i = 1 TO 12
   READ Mon(i)
NEXT i
 
INPUT "D = "; d
 
dn = MID$(d, 1, 2)
dm = MID$(d, 4, 2)
NN = VAL(dn)
NM = VAL(dm)
 
FOR i = 1 TO NM - 1
   K = K + Mon(i)
NEXT i
K = K + NN
PRINT "Kol ="; K
END

@R Sv · 01.06.2016, 17:24 **[ТС]**

ВАУ! Спасибо, все работает)

Новые блоги и статьи Все статьи Все блоги /
Автозаполнение реквизита при выборе элемента справочника 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. В качестве источника данных. . .
Кому нужен AOT? DevAlt 26.03.2026 Решил сделать простой ланчер Написал заготовку: dotnet new console --aot -o UrlHandler var items = args. Split(":"); var tag = items; var id = items; var executable = args;. . .	Отправка уведомления на почту при создании или изменении элементов справочника Maks 24.03.2026 Программная отправка письма электронной почты на примере типового справочника "Склады" в конфигурации БП3. Перед реализацией необходимо выполнить настройку системной учетной записи электронной. . .	модель ЗдравоСохранения 5. Меньше увольнений- больше дохода! anaschu 24.03.2026 Теперь система здравосохранения уменьшает количество увольнений. 9TO2GP2bpX4 a42b81fb172ffc12ca589c7898261ccb/ https:/ / rutube. ru/ video/ a42b81fb172ffc12ca589c7898261ccb/ Слева синяя линия -. . .	Midnight Chicago Blues kumehtar 24.03.2026 Такой Midnight Chicago Blues, знаешь?. . Когда вечерние улицы становятся ночными, а ты не можешь уснуть. Ты идёшь в любимый старый бар, и бармен наливает тебе виски. Ты смотришь на пролетающие. . .

@R Sv 1 / 1 / 0 Регистрация: 15.05.2016 Сообщений: 37

	Вычислить номер дня в невисокосном году по заданным числу и месяцу 01.06.2016, 16:18. Показов 3213. Ответов 4 Метки qbasic (Все метки) Помогите пожалуйста! Нужно написать программу, которая сможет вычислить номер дня в не високосном году по заданным числу и месяцу на языке qbasic. Спасибо! Вроде с этим языком у меня для новичка пойдёт, но я запутался: DIM i AS INTEGER, day AS INTEGER, num AS INTEGER PRINT "Enter month's day" INPUT "day="; day PRINT "Enter month's number" INPUT "num="; num Month1 = 31 Month2 = 28 Month3 = 31 Month4 = 30 Month5 = 31 Month6 = 30 Month7 = 31 Month8 = 31 Month9 = 30 Month10 = 31 Month11 = 30 Month12 = 31 0

echs Регистрация: 23.10.2013 Сообщений: 5,076 Записей в блоге: 8
	01.06.2016, 16:38
	R Sv Вы не сказали самое главное. В каком формате будет вводиться дата? Возможны разные варианты... Например 01.06.2016 (01.06) или 1 Juno 2016. И так далее. Или вы желаете ввести все по отдельности как в вашей про? 0

@R Sv 1 / 1 / 0 Регистрация: 15.05.2016 Сообщений: 37
	01.06.2016, 16:49 [ТС]
	Думаю, что лучший вариант вот этот: 01.06.2016 (01.06) 0

@R Sv 1 / 1 / 0 Регистрация: 15.05.2016 Сообщений: 37
	01.06.2016, 17:24 [ТС]
	ВАУ! Спасибо, все работает) 0

Вычислить номер дня в невисокосном году по заданным числу и месяцу

Решение