Форум программистов, компьютерный форум, киберфорум
Наши страницы
VBA
Войти
Регистрация
Восстановить пароль
 
Runiza
0 / 0 / 0
Регистрация: 01.05.2013
Сообщений: 14
1

Массив: Найти стоимость минимальной партии одной марки

10.06.2013, 21:07. Просмотров 468. Ответов 3
Метки нет (Все метки)

Пожалуйста, помогите решить задачу!!!!!!!!!!!!!!!

Где задана 6 марок, они выпускается партиями, количество каждой марки и цена
нужно найти
- стоимость минимальной партии одной марки
- название самой дешевой марки
- название марки который было выпущено больше всего.
0
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
10.06.2013, 21:07
Ответы с готовыми решениями:

Массив: Найти среднюю стоимость одной книги
в массиве хранится информация о стоимости каждой из 1000 книг.Найти среднюю...

Два гроссмейстера играют две партии в шахматы. Вероятность выигрыша в одной партии для первого шахматиста
Два гроссмейстера играют две партии в шахматы. Вероятность выигрыша в одной...

Найти вариант распределения объемов производства продукции, при котором стоимость изделий будет минимальной.
2). Задача о размещении производственных заказов В планируемом периоде...

Файлы. Сведения об автомобиле состоят из его марки, номера и фамилии владельца. Найти количество автомобилей каждой марки
Сведения об автомобиле состоят из его марки, номера и фамилии владельца. Дан...

Запрос на обновление : стоимость марки автомобиля
Помогите пожалуйста Даже если хоть 1 напишите буду очень благодарен.:sorry:...

3
Catstail
Модератор
23878 / 11926 / 2104
Регистрация: 12.02.2012
Сообщений: 19,390
10.06.2013, 21:54 2
Это на каком языке написано? Слова, вроде, русские...
0
Runiza
0 / 0 / 0
Регистрация: 01.05.2013
Сообщений: 14
10.06.2013, 22:02  [ТС] 3
excel+vba
0
Вложения
Тип файла: xls задача1.xls (13.5 Кб, 9 просмотров)
Igor_Tr
4369 / 653 / 36
Регистрация: 17.01.2010
Сообщений: 2,134
11.06.2013, 11:56 4
Пробуйте так:
Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
Sub OurNewSongIsGood()
    Dim mARR(), arrRES(), i&, PR1#, mV&
    ReDim arrRES(1 To 3)
    mARR = [A1].CurrentRegion.Value
    arrRES(1) = CDbl(mARR(2, 2) * mARR(2, 3))
    arrRES(2) = mARR(2, 1): arrRES(3) = arrRES(2)
    PR1 = CDbl(mARR(2, 2)): mV = mARR(2, 3)
        For i = 2 To UBound(mARR, 1)
            mARR(i, UBound(mARR, 2)) = CDbl(mARR(i, 2) * mARR(i, 3))
            arrRES(1) = IIf(CDbl(mARR(i, 2) * mARR(i, 3)) < arrRES(1), _
                         CDbl(mARR(i, 2) * mARR(i, 3)), arrRES(1))
                If mARR(i, 2) < PR1 Then PR1 = mARR(i, 2): arrRES(2) = mARR(i, 1)
                If mARR(i, 3) > mV Then mV = mARR(i, 3): arrRES(3) = mARR(i, 1)
        Next 'i
    [E9].Resize(UBound(arrRES), 1).Value = Application.Transpose(arrRES)
    [A1].Resize(UBound(mARR, 1), UBound(mARR, 2)).Value = mARR
End Sub
1
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
11.06.2013, 11:56

Удалить партии товара, превышающие заданную стоимость
Файл содержит название, цену, количество товара. Удалить партии товара,...

Определить количество товаров, стоимость партии которых ниже среднего значения
Определить количество товаров, стоимость партии которых ниже среднего значения...

Где взять стоимость барреля нефти марки Brent в формате JSON/XML?
Собственно вопрос в теме. перерыл кучу ссылок с биржами и нигде не нашел...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
4
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru