Question

Дано целое число N. Определите, есть ли в числе цифра, равная введённой цифре К. (программа не паскаль,а бейсик;нужно блок схему ,или хоть просто как решение записать)

Answer 1

Microsoft qBASIC:
DIM n AS LONG
CLS
INPUT "Введите число ", n
INPUT "Введите цифру для поиска ", d
flag = 0
DO WHILE n > 0 AND flag = 0
   IF d = n MOD 10 THEN
      PRINT "Цифра в числе есть"
      flag = 1
   ELSE
      n = n / 10
   END IF
LOOP
IF flag = 0 THEN PRINT "Цифры в числе нет"
END

Тестовое решение:
Введите число 5374012
Введите цифру для поиска 1
Цифра в числе есть

Answer 2

Для решения данной задачи можно использовать следующий алгоритм:

1. Прочитать значение целого числа N и цифру К. 2. Инициализировать переменную flag значением 0. Эта переменная будет использоваться для определения наличия цифры К в числе N. 3. Пока N не равно 0, выполнять следующие действия: 4. Вычислить остаток от деления N на 10 и сохранить его в переменную digit. 5. Если digit равен К, то установить значение flag равным 1 и выйти из цикла. 6. Разделить N на 10 с сохранением целой части. 7. Если flag равно 1, вывести сообщение "Цифра К найдена в числе N". 8. Если flag равно 0, вывести сообщение "Цифра К не найдена в числе N".

Блок-схема для данного алгоритма может выглядеть следующим образом:

        +-----------+
        | Ввод N, К |
        +-----------+
               |
               v
        +-----------+
        | flag = 0  |
        +-----------+
               |
               v
        +-----------+
        |    N ≠ 0  |
        +-----------+
               |
               v
        +-----------+
        | digit = N |
        +-----------+
               |
               v
        +-----------+
        | digit = К |
        +-----------+
               |
               v
        +-----------+
        | flag = 1  |
        +-----------+
               |
               v
        +-----------+
        | N = N / 10 |
        +-----------+
               |
               v
        +-----------+
        |    N ≠ 0  |
        +-----------+
               |
               v
        +-----------+
        |    Вывод  |
        +-----------+

Пример решения на языке Бейсик:

INPUT "Введите число N: ", N
INPUT "Введите цифру К: ", K
flag = 0
WHILE N <> 0
    digit = N MOD 10
    IF digit = K THEN
        flag = 1
        EXIT WHILE
    END IF
    N = INT(N / 10)
WEND
IF flag = 1 THEN
    PRINT "Цифра ", K, " найдена в числе ", N
ELSE
    PRINT "Цифра ", K, " не найдена в числе ", N
END IF

В данном примере программа сначала считывает числа N и К с помощью команды INPUT. Затем выполняется цикл WHILE, в котором последовательно извлекаются цифры числа N и сравниваются с К. Если найдена цифра К, то значение flag устанавливается в 1 и цикл прерывается с помощью команды EXIT WHILE. После окончания цикла программа выводит соответствующее сообщение о наличии или отсутствии цифры К в числе N.