Определить порядковый номер самого дешевого вида конфет - QBasic
Формулировка задачи:
В массиве хранится информация о стоимости 1 кг 30 видов конфет. Определить порядковый номер самого дешевого вида конфет. Если таких номеров несколько, то должен быть найден номер первого из них.
Как записать это в бейсике ???
Или составить алгоритм )
Или пример какой нибудь... ппц
Решение задачи: «Определить порядковый номер самого дешевого вида конфет»
textual
Листинг программы
- CLS
- INPUT "N"; n
- DIM e(n)
- FOR i = 1 TO n
- INPUT e(i)
- NEXT
- CLS
- min1 = e(1)
- PRINT "massiv:"
- FOR i = 1 TO n
- PRINT e(i);
- IF e(i) < min1 THEN min1 = e(i): min2 = i
- NEXT
- PRINT "min :"; min1;
- PRINT "ego p/n:"; min2
- SWAP e(min2), e(n)
- PRINT "noviy massiv:"
- FOR i = 1 TO n
- PRINT e(i);
- NEXT
Объяснение кода листинга программы
- Сначала программа запрашивает у пользователя количество видов конфет, которые он хочет сравнить (n).
- Затем программа создает массив e размером n для хранения информации о каждом виде конфет.
- Далее, происходит заполнение массива e с помощью цикла FOR и оператора INPUT.
- После заполнения массива, программа определяет минимальное значение в массиве с помощью переменных min1 и min2.
- Переменная min1 инициализируется значением первого элемента массива e, а переменная min2 инициализируется значением индекса этого элемента.
- Затем программа проходит по всем элементам массива e с помощью цикла FOR и оператора PRINT, печатая каждый элемент массива.
- Если текущий элемент меньше значения min1, то он становится новым значением min1, а min2 получает значение индекса текущего элемента.
- После завершения цикла, программа печатает значения min1 и min2.
- Затем программа меняет местами последний и первый элементы массива e с помощью оператора SWAP.
- Наконец, программа печатает обновленный массив e с помощью цикла FOR и оператора PRINT.
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д