Исходные данные определяются путем обращения к датчику случайных чисел - 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

Оцени полезность:

13   голосов , оценка 4.231 из 5
Похожие ответы