Исходные данные определяются путем обращения к датчику случайных чисел - VB
Формулировка задачи:
1. Исходные данные: расход каждого из К материалов на единицу каждой из М изготавливаемых деталей. Исходные данные определяются путем обращения к датчику случайных чисел. Задание:
а. Для любого материала определить среднюю величину расхода.
б. Для любой детали определить наиболее расходуемый материал.
Решение задачи: «Исходные данные определяются путем обращения к датчику случайных чисел»
textual
Листинг программы
Dim K As Integer, M As Integer, i As Integer, j As Integer, arrMain(), arrSredn(), sum Randomize K = Int(Rnd * 5) + 1 'Всего единиц материала (от 1 до 5) M = Int(Rnd * 10) + 1 'Всего деталей (от 1 до 10) ReDim arrMain(K, M) 'Массив для хранения данных For j = 1 To M For i = 1 To K arrMain(i, j) = Rnd * 100 'Расход кажд. материала для кажд. детали Next Next ReDim arrSredn(K) For i = 1 To K sum = 0 For j = 1 To M sum = sum + arrMain(i, j) 'Средний расход кажд. материала для всех деталей Next arrSredn(i) = sum / M Next tmp = arrSredn(1) j = 1 For i = 1 To K If arrSredn(i) > tmp Then tmp = arrSredn(i): j = i 'Индекс (номер) материала, кот надо больше всего Next