Найти индекс элементов масива, наиболее близкого к даному числу - QBasic
Формулировка задачи:
дан масив состоящий из 17 элементов .найти индекс элементов масива, наиболее близкого к даному числу результат распечатать в виде:
масив
заданое число
элемент
индекс.
я объявляю масив а что делать дальше не знаю помогите составить программу в басике
а что дальше делать не знаю
Решение задачи: «Найти индекс элементов масива, наиболее близкого к даному числу»
textual
Листинг программы
DIM a(17) RANDOMIZE TIMER FOR i = 1 TO 17 a(i) = INT(RND * 20) - 10 NEXT INPUT "vvedite chislo ", n PRINT "ishodnyj massiv" FOR i = 1 TO 17 PRINT a(i); " "; NEXT PRINT PRINT "chislo="; n min = ABS(n - a(1)) nmin = 1 FOR i = 1 TO 17 IF ABS(n - a(i)) < min THEN min = ABS(n - a(i)): nmin = i NEXT PRINT "blizkiy element="; a(nmin) PRINT "ego nomer="; nmin
Объяснение кода листинга программы
- Объявляется массив a(17) для хранения 17 чисел.
- С помощью цикла FOR и команды RANDOMIZE TIMER заполняется массив a(i) = INT(RND * 20) - 10 случайными числами от -10 до 10 с шагом 20.
- Пользователю предлагается ввести число n.
- Выводится исходный массив a(i).
- Находится минимальное расстояние между числом n и элементами массива a(i) с помощью цикла FOR и условия IF.
- Выводится ближайшее к числу n число из массива a(i) и его номер nmin.
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д