Вычислить номер дня в невисокосном году по заданным числу и месяцу - 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

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

textual
Листинг программы
  1. CLS
  2. DIM Mon(1 TO 12)
  3. DIM d AS STRING
  4. DIM dn AS STRING
  5. DIM dm AS STRING
  6.  
  7. DATA 31,28,31,30,31,30,31,31,30,31,30,31
  8.  
  9. FOR i = 1 TO 12
  10.    READ Mon(i)
  11. NEXT i
  12.  
  13. INPUT "D = "; d
  14.  
  15. dn = MID$(d, 1, 2)
  16. dm = MID$(d, 4, 2)
  17. NN = VAL(dn)
  18. NM = VAL(dm)
  19.  
  20. FOR i = 1 TO NM - 1
  21.    K = K + Mon(i)
  22. NEXT i
  23. K = K + NN
  24. PRINT "Kol ="; K
  25. END

Объяснение кода листинга программы

  1. Установка начального значения переменной K равным 0.
  2. Задание массива Mon(1 TO 12) размером 12 элементов для хранения количества дней в каждом месяце.
  3. Запись в массив Mon(1 TO 12) значения количества дней в каждом месяце.
  4. Ввод с клавиатуры строки d, содержащей число и месяц.
  5. Выделение из строки d первых двух символов (числа) в переменную dn и следующих двух символов (месяца) в переменную dm.
  6. Преобразование чисел в переменных dn и dm в значения NN и NM соответственно.
  7. Начиная с месяца NM, суммирование элементов массива Mon(1 TO 12) до количества NM-1.
  8. Добавление к полученной сумме значения NN.
  9. Вывод на экран значения переменной K.

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

Оцени полезность:

13   голосов , оценка 4.154 из 5

Нужна аналогичная работа?

Оформи быстрый заказ и узнай стоимость

Бесплатно
Оформите заказ и авторы начнут откликаться уже через 10 минут
Похожие ответы