ReSQL.ru
     
powered by simpleCommunicator - 2.0.59     © 2025 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / массивы
15 сообщений из 15, страница 1 из 1
массивы
    #36387059
Rum9999999
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Rum9999999
Гость
люди помогите, ааа! задан массив из 20 чисел. определить количество элементов массива, равных последнему элементу. найти сумму и произведение этих элементов!!! напишите код....это очень срочно!
...
Рейтинг: 0 / 0
25.12.2009, 17:04
| Ответить | Цитировать | Написать  
массивы
    #36387078
Злой Препод
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Злой Препод
Гость
Опять сессия )))))
...
Рейтинг: 0 / 0
25.12.2009, 17:10
| Ответить | Цитировать | Написать  
массивы
    #36387170
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shocker.Pro
Участник
Злой Препод
Игорь?
...
Рейтинг: 0 / 0
25.12.2009, 18:07
| Ответить | Цитировать | Написать  
массивы
    #36387236
Rum9999999
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Rum9999999
Гость
Злой Препод,

в том то и дело, что сессия!!! а сначала надо практику сдать - этот вот массив=)))
...
Рейтинг: 0 / 0
25.12.2009, 18:47
| Ответить | Цитировать | Написать  
массивы
    #36387251
Фотография Игорь Горбонос
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Игорь Горбонос
Участник
> Автор: Shocker.Pro
> Злой Препод
>
> Игорь?

В смысле я?
Нет. я анонимом не балуюсь, а открыто говорю, сколько это будет стоить. Тут могу сказать что соглашусь на решение этих
задач за 30$ или как вариант мне нужна книга срочно, для
подарка на новый год

Posted via ActualForum NNTP Server 1.4
...
Рейтинг: 0 / 0
25.12.2009, 18:55
| Ответить | Цитировать | Написать  
массивы
    #36387259
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shocker.Pro
Участник
Да чему тебя Путин учит, учит!
Меняй ценник на рублевый!
Нефиг вражескую валюту поддерживать!


Как вариант "А я выполню эту задачу за $29", "А я за $28". "Выполняй"
...
Рейтинг: 0 / 0
25.12.2009, 19:00
| Ответить | Цитировать | Написать  
массивы
    #36387264
Фотография Игорь Горбонос
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Игорь Горбонос
Участник
> Автор: Shocker.Pro
> Да чему тебя Путин учит, учит!

У меня другие учетеля

> Меняй ценник на рублевый!

И что мне с рублями в Украине делать?

> Нефиг вражескую валюту поддерживать!

У нас она как-то понадежней будет, несмотря на мировой кризис и все такое.

Posted via ActualForum NNTP Server 1.4
...
Рейтинг: 0 / 0
25.12.2009, 19:03
| Ответить | Цитировать | Написать  
массивы
    #36387688
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shocker.Pro
Участник
Етить.
Извини, проглядел твое местоположение. Тады мой горячий привет братьям.

А аффтар чего-то затих... а то "срочно, срочно"...
...
Рейтинг: 0 / 0
26.12.2009, 03:27
| Ответить | Цитировать | Написать  
массивы
    #36388044
Rum9999999
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Rum9999999
Гость
Shocker.Pro,

жду=))) может баксов до 2 сбавят)))) я же бедная студентка!!!! ааааа))))
...
Рейтинг: 0 / 0
26.12.2009, 19:14
| Ответить | Цитировать | Написать  
массивы
    #36388052
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shocker.Pro
Участник
Rum9999999жду=))) может баксов до 2 сбавят)))) я же бедная студентка!!!! ааааа))))


Ну у студентки гораздо больше возможностей рассчитаться, чем, скажем, у студента....
Причем не с форумчанами, а прямо с преподавателем...

Ну это я так неудачно пошло пошутил....


А вообще, если вы будете ставить вопрос не в форме "поучитесь за меня", а " я делаю так-то так-то, а у меня вот тут не получается", тогда тут вам непременно помогут.
...
Рейтинг: 0 / 0
26.12.2009, 19:33
| Ответить | Цитировать | Написать  
массивы
    #36388343
Rum9999999
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Rum9999999
Гость
Shocker.Pro,

Вот что я насоображала:
Dim A(20), SUM, PROIZV, KOL As Single
SUM = 0: PROIZV = 1: KOL = 0
For i = 1 To 20
A(i) = i
Print ; "A("; i; ")="; A(i)
If A(i) = A(20) Then
SUM = SUM + A(i)
PROIZV = PROIZV * A(i)
KOL = KOL + 1
End If
Next
Print
Print ; "Сумма элементов, равных последнему элементу="; SUM, "Произведение элементов, равных последнему элементу="; PROIZV, "Количество элементов, равных последнему элементу="; KOL
End Sub
Теперь я думаю, не слишком ли примитивно, что он выдает массив от 1 до 20, берет число 20 и так как оно одно, то сумма = произв = 20??? Что скажете???
...
Рейтинг: 0 / 0
27.12.2009, 10:07
| Ответить | Цитировать | Написать  
массивы
    #36388453
Hugo121
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Hugo121
Гость
Да, так как-то не очень...
Может так - задать массив из произвольного набора чисел. Если не использовать Option Base 1, тогда индекс массива начинается с 0, и тогда цикл 0-19 и сравнивать надо If A(i) = A(19) Then.

Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
Option Base  1 
Sub tt()
Dim A, SUM As Long, PROIZV As Long, KOL As Single
A = Array( 25 ,  2 ,  4 ,  78 ,  25 ,  36 ,  98 ,  14 ,  25 ,  36 ,  11 ,  15 ,  48 ,  58 ,  39 ,  585 ,  56 ,  95 ,  35 ,  25 )
SUM =  0 : PROIZV =  1 : KOL =  0 
For i =  1  To  20 
'Debug.Print A(i)
If A(i) = A( 20 ) Then
SUM = SUM + A(i)
PROIZV = PROIZV * A(i)
KOL = KOL +  1 
End If
Next
MsgBox "Сумма элементов, равных последнему элементу= " & SUM
MsgBox "Произведение элементов, равных последнему элементу= " & PROIZV
MsgBox "Количество элементов, равных последнему элементу= " & KOL
End Sub
...
Рейтинг: 0 / 0
27.12.2009, 13:30
| Ответить | Цитировать | Написать  
массивы
    #36388488
Hugo121
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Hugo121
Гость
Или лучше так, независими от Option Base (и от количества элементов массива):

Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
Sub ttt()
Dim A, SUM As Long, PROIZV As Long, KOL As Single
A = Array( 25 ,  2 ,  4 ,  78 ,  25 ,  36 ,  98 ,  14 ,  25 ,  36 ,  11 ,  15 ,  48 ,  58 ,  39 ,  585 ,  56 ,  95 ,  35 ,  25 )
SUM =  0 : PROIZV =  1 : KOL =  0 
For i = LBound(A) To UBound(A)
If A(i) = A(UBound(A)) Then
SUM = SUM + A(i)
PROIZV = PROIZV * A(i)
KOL = KOL +  1 
End If
Next
MsgBox "Сумма элементов, равных последнему элементу= " & SUM & vbNewLine & _
       "Произведение элементов, равных последнему элементу= " & PROIZV & vbNewLine & _
       "Количество элементов, равных последнему элементу= " & KOL

End Sub
...
Рейтинг: 0 / 0
27.12.2009, 13:52
| Ответить | Цитировать | Написать  
массивы
    #36388669
Rum9999999
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Rum9999999
Гость
Hugo121,

Спасибо огромное!!!! без вас не справилась бы!
...
Рейтинг: 0 / 0
27.12.2009, 16:26
| Ответить | Цитировать | Написать  
массивы
    #36389418
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shocker.Pro
Участник
Shocker.ProА вообще, если вы будете ставить вопрос не в форме "поучитесь за меня", а " я делаю так-то так-то, а у меня вот тут не получается", тогда тут вам непременно помогут.

Во, я ж говорил.
...
Рейтинг: 0 / 0
28.12.2009, 11:41
| Ответить | Цитировать | Написать  
15 сообщений из 15, страница 1 из 1
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / массивы
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]