Найти порядковый номер того числа вещественного массива, которое наиболее близко к целому числу - QBasic
Формулировка задачи:
Дано 10 вещественных чисел. Найти порядковый номер
того из них, которое наиболее близко к целому числу.
Решение задачи: «Найти порядковый номер того числа вещественного массива, которое наиболее близко к целому числу»
textual
Листинг программы
CLS RANDOMIZE TIMER FOR i = 1 TO 10 'INPUT a a = RND * 100 PRINT i; ":"; a IF i = 1 OR m > ABS(a - INT(a + .5)) THEN m = ABS(a - INT(a + .5)): j = i NEXT PRINT "Blizhayshee k celomu #"; j
Объяснение кода листинга программы
CLS
— очистка экранаRANDOMIZE TIMER
— установка случайного числа для повторного вычисленияFOR i = 1 TO 10
— цикл от 1 до 10a = RND * 100
— присваивание переменнойa
случайного числа от 0 до 100PRINT i;
:; a
— вывод на экран номераi
и значенияa
разделенных двоеточиемIF i = 1 OR m > ABS(a — INT(a + .5))
— проверка условия для переменнойm
m = ABS(a — INT(a + .5))
— присваивание переменнойm
значения абсолютной разницы междуa
и ближайшим целым числомj = i
— присваивание переменнойj
значенияi
NEXT
— переход к следующему шагу циклаPRINT
Blizhayshee k celomu #; j
— вывод на экран фразыBlizhayshee k celomu #
и значения переменнойj
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д