Определить номер элемента массива A$, значение которого равно значению заданной символьной переменной C$ - QBasic

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

Определить номер элемента массива A$, значение которого равно значению заданной символьной переменной C$

Решение задачи: «Определить номер элемента массива A$, значение которого равно значению заданной символьной переменной C$»

Листинг программы

DEFSTR A, C
DEFINT I, N
RANDOMIZE TIMER
CLS
DIM a(255)
 
FOR i = 0 TO 255
   a(i) = CHR$(INT(256 * RND))
NEXT i
 
INPUT "Vvedite simvol"; c
 
FOR i = 0 TO 255
   IF c = a(i) THEN
      PRINT "NOMER="; i
      GOTO 100
   END IF
NEXT i
PRINT "TAKOGO ELEMENTA NET"
100
END

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

Выполнение кода:

DEFSTR A, C - это определение строковых переменных A и C.
DEFINT I, N - это определение целочисленных переменных I и N.
RANDOMIZE TIMER - это установка генератора случайных чисел.
CLS - это очистка экрана.
DIM a(255) - это создание массива a размером 255.
FOR i = 0 TO 255 - это цикл, который выполняет 256 итераций, начиная с 0 и заканчивая 255.
*a(i) = CHR$(INT(256 RND))** - это заполнение массива a случайными символами. Значение RND генерирует случайное число от 0 до 1, умноженное на 256, которое затем преобразуется в целое число и используется как индекс для массива CHR$, который возвращает символ, соответствующий числу.
INPUT Vvedite simvol; c - это запрос ввода символа.
FOR i = 0 TO 255 - это цикл, который выполняет 256 итераций, начиная с 0 и заканчивая 255.
IF c = a(i) THEN - это условие, которое проверяет, равен ли введенный символ элементу массива a.
PRINT NOMER=; i - это вывод номера элемента массива, если условие выполняется.
GOTO 100 - это переход к метке 100, чтобы избежать повторного выполнения кода.
END - это конец программы.
Если введенный символ не найден в массиве, выводится сообщение TAKOGO ELEMENTA NET. Следует отметить, что ввод символа и поиск в массиве выполняются только один раз, поскольку после выполнения условия GOTO 100, цикл прекращается.