VPF::[VB6] Массивы.Помогите пожалуйста

Павел123

Дата 3.6.2011, 01:11 (ссылка)

(голосов:1)

Загрузка ...

Новичок

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

Репутация: нет
Всего: нет

Привет,извините за наглось,но решается судьба.Можете помочь,если владейте бэйсиком.?Есть лёгкое достаточно задание,но не могу с ним справится,вообще ноль в этом.Если не сделаю,мне кердык))Очень буду благодарен...Нужно к субботе.
1. Дан массив g(7) . Заполнить массив g(7) случайными значениями. Найти произведение нечетных элементов массива и заменить ею минимальный элемент массива, вывести массив на экран.
2. Дан массив a(5) . Заполнить массив a(5) случайными положительными и отрица-тельными значениями. Если в массиве a(5) есть хотя бы один нулевой элемент, то найти сумму элементов массива, иначе найти произведение элементов массива, вы-вести массив на экран.
3.Дан массив В(10) Найти произведение положительных элементов массива.Ограничения Вi
4.Дан массив К(10) Поменять местами значения максимальный элемент и второй элемент массива.

Кто может помочь...пожалуйста...можите всязаться со мной через вконтакте "Павел Жмуров",первый по списку.Или мэйл агент.([email protected])или аську 628-251-572,кому как удобнее.Лучше в контакте.

Добавлено через 10 минут и 54 секунды
Кто-нибудь хоть отзоветься??((

Данкинг

Дата 3.6.2011, 01:51 (ссылка)

(нет голосов)

Загрузка ...

Yersinia pestis

Профиль
Группа: Завсегдатай
Сообщений: 8302
Регистрация: 7.11.2006
Где: მოსკოვი

Репутация: нет
Всего: 130

Вообще это в "центр помощи". Впрочем, одну задачу сделал - извиняюсь за кривой код, я тоже не спец в VB.

Цитата(Павел123 @ 3.6.2011, 02:11

)

4.Дан массив К(10) Поменять местами значения максимальный элемент и второй элемент массива.

Код


Private Sub Кнопка0_Click()
 Dim k(10), max, i, temp, temp1
 
 k(1) = 1000
 k(2) = 90
 k(3) = 80
 k(4) = 70
 k(5) = 60
 k(6) = 45555
 k(7) = 40
 k(8) = 30
 k(9) = 20
 k(10) = 10
 
 
 max = 0
 temp1 = 0
 
 For i = 1 To 10
  If k(i) > max Then max = k(i): temp1 = i
 Next
 temp = k(2)
 k(2) = k(temp1)
 k(temp1) = temp
 
 End Sub

--------------------

There's nothing left but silent epitaphs.

iff

Дата 3.6.2011, 12:51 (ссылка)

(нет голосов)

Загрузка ...

Администратор

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

Репутация: 3
Всего: 16

Данкинг,
Значения не случайные. Для их получения используйте функцию Rnd. Предварительно инициализировав генератор случайных чисел командой Randomize Timer, где Randomize - подпрограмма инициализации, которой передаётся параметр Timer. Timer содержит число (до 2 знаков после запятой) секунд прошедших с полуночи.

--------------------

DOS... Синей пеленой экран заполнил чистый DOS
Мышь... Стала вдруг квадратной, потеряла форму мышь...
Я разбил окно, девяностопятое мастдайное окно,
И поставил DOS, и тогда увидел: Это счастье, — вот оно.

Akina

Дата 3.6.2011, 12:54 (ссылка)

(нет голосов)

Загрузка ...

Советчик

Профиль
Группа: Модератор
Сообщений: 20581
Регистрация: 8.4.2004
Где: Зеленоград

Репутация: 17
Всего: 454

Для домашних заданий, курсовых, существует "Центр Помощи".

Тема перенесена!

--------------------

О(б)суждение моих действий - в соответствующей теме, пожалуйста. Или в РМ. И высшая инстанция - Администрация форума.

Dexx

Дата 4.6.2011, 10:38 (ссылка)

(нет голосов)

Загрузка ...

Опытный

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

Репутация: нет
Всего: 7

1,2

Код


Sub main()
Dim a(5) As Long
Dim g(7) As Long
Dim n As Integer
Dim k As Long
Dim m As Integer
Dim i As Long
Dim s As Long

Randomize

Debug.Print "первое"
' 1. задание
'заполняем и находим прозведение нечетных
k = 1
For n = 0 To 7
    g(n) = Rnd * 20
    If (g(n) Mod 2) Then k = k * g(n)
Next
'находим минимальный
m = g(0)
For n = 0 To 6
    If g(n) < m Then
        m = g(n)
        i = n
    End If
Next
'заменяем произведением нечетных
g(i) = k

'выводим
For n = 0 To 7
    Debug.Print g(n)
Next

Debug.Print "======================"
'2. задание
Debug.Print "второе"
'заполняем
For n = 0 To 5
    a(n) = (Rnd * 20) - (Rnd * 20)
    Debug.Print a(n)
Next

'есть ли нулевой
k = 1
For n = 0 To 5
    If a(n) = 0 Then
            k = 0
            Exit For
    End If
Next
'если есть нулевой суммируем
i = 1
If k = 0 Then
    For n = 0 To 5
        s = s + a(n)
    Next
    Debug.Print "Сумма", s
Else
'или умножаем
    For n = 0 To 5
        i = i * a(n)
    Next
    Debug.Print "Произведение", i
End If
 

Debug.Print "======================"

End Sub

Это сообщение отредактировал(а) Dexx - 4.6.2011, 10:41

--------------------

1 Пользователей читают эту тему (1 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Центр помощи \| Следующая тема »