Найти количество четырехзначных чисел по условию - QBasic

Узнай цену своей работы

Формулировка задачи:

Найти число четырехзначных чисел таких, что цифры одной четности рядом не стоят и сумма этих цифр не превышает 5. (ответ 102 числа) Вопрос Можно ли решить задачу иначе?
Листинг программы
  1. REM
  2. REM 102
  3. REM
  4. CLS
  5. FOR x = 1 TO 5
  6. FOR y = 0 TO 5
  7. IF y - x MOD 2 = 0 THEN GOTO 100
  8. IF y + x > 5 THEN GOTO 100
  9. FOR z = 0 TO 5
  10. IF z - y MOD 2 = 0 THEN GOTO 200
  11. IF z + y > 5 THEN GOTO 200
  12. FOR u = 0 TO 5
  13. IF u - z MOD 2 = 0 THEN GOTO 300
  14. IF u + z > 5 THEN GOTO 300
  15. k = k + 1
  16. 300
  17. NEXT u
  18. 200
  19. NEXT z
  20. 100
  21. NEXT y
  22. NEXT x
  23. PRINT k
  24. END

Решение задачи: «Найти количество четырехзначных чисел по условию»

textual
Листинг программы
  1. DIM a AS LONG, b AS LONG, c AS LONG, d AS LONG, k AS LONG
  2. FOR a = 1 TO 5
  3. FOR b = 0 TO 5
  4. FOR c = 0 TO 5
  5. FOR d = 0 TO 5
  6.     IF (a + b) * (b + c) * (c + d) MOD 2 = 1 AND a + b <= 5 AND b + c <= 5 AND c + d <= 5 THEN k = k + 1
  7. NEXT d, c, b, a
  8. PRINT k

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

  1. DIM a AS LONG, b AS LONG, c AS LONG, d AS LONG, k AS LONG — в этой строке объявляются переменные a, b, c, d и k типа LONG (целые числа со знаком).
  2. FOR a = 1 TO 5 — начинается цикл по переменной a от 1 до 5.
  3. FOR b = 0 TO 5 — начинается цикл по переменной b от 0 до 5.
  4. FOR c = 0 TO 5 — начинается цикл по переменной c от 0 до 5.
  5. FOR d = 0 TO 5 — начинается цикл по переменной d от 0 до 5.
  6. IF (a + b) (b + c) (c + d) MOD 2 = 1 AND a + b <= 5 AND b + c <= 5 AND c + d <= 5 THEN k = k + 1 — выполняется проверка условия: — Сначала проверяется, является ли трехчлен (a+b)(b+c)(c+d) нечетным (MOD 2=1). — Затем проверяется, что сумма трех переменных (a+b, b+c, c+d) не превышает 5. — Если все условия выполняются, то значение переменной k увеличивается на 1.
  7. NEXT d, c, b, a — выполняется переход к следующему шагу цикла по переменной d, затем по переменной c, затем по переменной b и, наконец, по переменной a.
  8. PRINT k — выводится значение переменной k.

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


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

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

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

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

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

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