Использование массивов

[westcoastkilla]

Народ помогите задача есть я как бы могу всё сделать сам но уже 3 час ломаю голову где в этой задаче можно что то реализовать с помощью массивов ? Может кто подскажет ?

Определить коэффициент использования производственной мощности кухни по выпуску первых блюд по формуле:

(Bi-ni)*K (Это)
Mi=--------- (Разделить на)
B*Q (Это)
где:
Mi - мощность кухни (количество порций первых блюд);
Bi - продолжительность работы кухни, мин;
ni - организационно-технические простои в смену;
К - емкость котлов;
b - продолжительность одной варки;
Q - емкость одного блюда.
Расчет выполнить для Z кухонь, у которых показатели К, b, Q одинаковые, а показатели Bi, ni - разные.

 

[Tanya]

Dim i As Integer
Dim Z as Integer
Dim arrB(1 to Z) as Double
Dim arrN(1 to Z) as Double

Dim sumM as Double
Dim B as Double
Dim K as Double
Dim Q as Double

For i=1 To Z
sumM = sumM + arrB(i) - arrN(i)
Next i

sumM = sumM * K / (B * Q)

 

[westcoastkilla]

Спасибо большое выручили

 

[westcoastkilla]

Таня у меня к вам огроомная просьба. Выручите пожалуйста я уже 4 день пытаюсь что-то сделать но всё время то ошибки то еще что нить.
Вот тут есть готовый визуальный проект и задание.

Ссылка скрыта от гостей

Можете туда код вставить что куда и всё. Я вас очень прошу :wacko:
Вобщем чтобы считало что нужно.

 

[Tanya]

Извини, со шрифтами не разбиралась - писала латиницей
в принципе тебе полезно будет причитать и кириллицей переписать ))))

Листбокс, если не нужен - можешь удалиь
Рисунок придется снова загружать )))

Удачи!

 

[westcoastkilla]

Блин Таня. С меня шампманское и конфеты
Немогу поверить в то что такие добрые люди еще остались
Спасибо огромное. Цены вам нет

 

[Tanya]

Совершенно не обратила внимание на тему задания: массивы, правда не знаю по заданию, где их вставить ...
Сделаем глобальные массивы ...

 

[European]

Тема почищена от флуда...

westcoastkilla, ознакомьтесь на досуге с правилами форума.
Tanya, +1 в репутацию за альтруизм.
Искателям смысла форума просьба в соответствующую ветку.