Модераторы: Poseidon
  

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> [VB 6] задачи на одномерные массивы 
V
    Опции темы
Vlove
Дата 16.12.2007, 13:57 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 5
Регистрация: 6.12.2007

Репутация: нет
Всего: нет
Всем привет. Помогите, пожалуйста, решить 2 задачи по массивам на VB.
 
1) Имеются объемы продажи валюты банком в течение года по месяцам:
месяц      1    2    3    4    5    6    7    8    9    10    11    12
объем    90,2    123,7    84,4    99,3    114,5    140,3    70,4    90,6    56,3    111,4    102,2    99,9

Требуется определить в каком квартале был достигнут наибольший объем продажи.
Предусмотреть вывод соответствующего элемента. 

Ответ должен получиться такой: Наибольший объем продаж (354,1) достигнут во 2 квартале.

Добавлено через 26 секунд
2) В заданном массиве B(M) найти сумму и количество положительных элементов, сумму и количество отрицательных элементов, и количество нулей. (M=10, числа любые)
PM MAIL   Вверх
kapbepucm
Дата 17.12.2007, 11:09 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 993
Регистрация: 14.6.2007
Где: Латвия

Репутация: 6
Всего: 12
Код
Public Sub Zadanije1()
  Dim Objemi(1 To 12) As Single
  Dim ObjemiKv(1 To 4) As Single
  Dim I As Long, MaxI As Long, MaxVal As Single
  On Error GoTo ErrorLabel
  For I = 1 To 12
    Objemi(I) = CSng(InputBox("Введите объем продажи валюты за месяц номер " & CStr(I), "Вопрос", 0))
  Next I
  On Error GoTo 0
  For I = 1 To 12 Step 3
    ObjemiKv((I \ 3) + 1) = Objemi(I) + Objemi(I + 1) + Objemi(I + 2)
  Next I
  MaxVal = ObjemiKv(1)
  For I = 2 To 4
    If MaxVal < ObjemiKv(I) Then
      MaxI = I: MaxVal = ObjemiKv(I)
    End If
  Next I
  MsgBox "Наибольший объем продаж (" & CStr(ObjemiKv(MaxI)) & ") достигнут в(во) " & CStr(MaxI) & " квартале."
Exit Sub
ErrorLabel: Resume
End Sub


Это сообщение отредактировал(а) kapbepucm - 17.12.2007, 11:09


--------------------
(С) kapbepucm
PM MAIL Skype   Вверх
kapbepucm
Дата 17.12.2007, 11:33 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 993
Регистрация: 14.6.2007
Где: Латвия

Репутация: 6
Всего: 12
Код
Public Sub Zadanije2()
  Const M As Long = 10
  Dim B(M) As Single, I As Long
  Dim S1 As Single, S3 As Single
  Dim C1 As Long, C2 As Long, C3 As Long
  On Error GoTo ErrorLabel
  For I = LBound(B) To UBound(B)
    B(I) = CSng(InputBox("Введите число", CStr(I), 0))
    Select Case B(I)
    Case Is < 0
      C1 = C1 + 1
      S1 = S1 + B(I)
    Case Is = 0
      C2 = C2 + 1
    Case Is > 0
      C3 = C3 + 1
      S3 = S3 + B(I)
    End Select
  Next I
  On Error GoTo 0
  MsgBox "Сумма отрицательных элементов=" & CStr(S1) & "; количество отрицательных элементов=" & CStr(C1)
  MsgBox "Количество нулей=" & CStr(C2)
  MsgBox "Сумма положительных элементов=" & CStr(S3) & "; количество положительных элементов=" & CStr(C3)
Exit Sub
ErrorLabel: Resume
End Sub



--------------------
(С) kapbepucm
PM MAIL Skype   Вверх
Vlove
Дата 17.12.2007, 12:05 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 5
Регистрация: 6.12.2007

Репутация: нет
Всего: нет
огромное человеческое спасибо
PM MAIL   Вверх
  
 Ответ в темуСоздание новой темы Создание опроса
Правила форума "Центр помощи"

ВНИМАНИЕ! Прежде чем создавать темы, или писать сообщения в данный раздел, ознакомьтесь, пожалуйста, с Правилами форума и конкретно этого раздела.
Несоблюдение правил может повлечь за собой самые строгие меры от закрытия/удаления темы до бана пользователя!


  • Название темы должно отражать её суть! (Не следует добавлять туда слова "помогите", "срочно" и т.п.)
  • При создании темы, первым делом в квадратных скобках укажите область, из которой исходит вопрос (язык, дисциплина, диплом). Пример: [C++].
  • В названии темы не нужно указывать происхождение задачи (например "школьная задача", "задача из учебника" и т.п.), не нужно указывать ее сложность ("простая задача", "легкий вопрос" и т.п.). Все это можно писать в тексте самой задачи.
  • Если Вы ошиблись при вводе названия темы, отправьте письмо любому из модераторов раздела (через личные сообщения или report).
  • Для подсветки кода пользуйтесь тегами [code][/code] (выделяйте код и нажимаете на кнопку "Код"). Не забывайте выбирать при этом соответствующий язык.
  • Помните: один топик - один вопрос!
  • В данном разделе запрещено поднимать темы, т.е. при отсутствии ответов на Ваш вопрос добавлять новые ответы к теме, тем самым поднимая тему на верх списка.
  • Если вы хотите, чтобы вашу проблему решили при помощи определенного алгоритма, то не забудьте описать его!
  • Если вопрос решён, то воспользуйтесь ссылкой "Пометить как решённый", которая находится под кнопками создания темы или специальным флажком при ответе.

Более подробно с правилами данного раздела Вы можете ознакомится в этой теме.

Если Вам помогли и атмосфера форума Вам понравилась, то заходите к нам чаще! С уважением, Poseidon, Rodman
 
0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | Центр помощи | Следующая тема »

Подписаться на тему | Подписка на этот форум | Скачать/Распечатать тему


 




[ Время генерации скрипта: 0.1258 ]   [ Использовано запросов: 22 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
 По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.