Определить, есть ли в заданном четырехразрядном числе а цифры 5 или 8 - QBasic

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

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

Определить, есть ли в заданном четырехразрядном числе а цифры 5 или 8.

Решение задачи: «Определить, есть ли в заданном четырехразрядном числе а цифры 5 или 8»

textual
Листинг программы
DECLARE FUNCTION M! (i!)
CLS
DIM SHARED A AS STRING
 
INPUT "A = "; A
 
FOR i = 1 TO LEN(A)
   IF M(i) = 5 OR M(i) = 8 THEN k = -1
NEXT i
 
IF k THEN PRINT "YES" ELSE PRINT "NO"
END
 
FUNCTION M (i)
   M = VAL(MID$(A, i, 1))
END FUNCTION

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

  1. DECLARE FUNCTION M! (i!) - функция не определена, ошибка
  2. CLS - очистка экрана
  3. DIM SHARED A AS STRING - объявление переменной A типа строка
  4. INPUT A =; A - ввод числа, хранящегося в переменной A
  5. FOR i = 1 TO LEN(A) - цикл, который будет выполняться от 1 до длины строки A
  6. IF M(i) = 5 OR M(i) = 8 THEN k = -1 - проверка на наличие цифр 5 или 8 в строке A и присвоение переменной k значения -1 в случае обнаружения этих цифр
  7. NEXT i - переход к следующей итерации цикла
  8. IF k THEN PRINT YES ELSE PRINT NO - проверка значения переменной k и вывод соответствующего сообщения
  9. END - завершение программы
  10. FUNCTION M (i) - определение функции M с одним аргументом i
  11. M = VAL(MID$(A, i, 1)) - присвоение функции M значения, полученного из строки A с помощью функции MID$ и функции VAL, которая преобразует строку в числовое значение
  12. END FUNCTION - завершение определения функции M

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

6   голосов , оценка 3.833 из 5
Похожие ответы