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

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

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

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


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

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

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

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

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

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

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

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

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


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

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


А вообще, если вы будете ставить вопрос не в форме "поучитесь за меня", а " я делаю так-то так-то, а у меня вот тут не получается", тогда тут вам непременно помогут.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
27.12.2009, 10:07
    #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, 13:30
    #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:52
    #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, 16:26
    #36388669
Rum9999999
Rum9999999
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
массивы
Hugo121,

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

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


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