Наибольшее среди отрицательных чисел / Visual Basic

ReSQL.ru

Мобильная версия Контакт Правила FAQ Помощь

Гость

Войти | Регистрация | Профиль | Очистить

Новые сообщения | Избранное

Форумы | Пользователи | Статистика | Мод. лог | Поиск

Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр

Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Наибольшее среди отрицательных чисел

18 сообщений из 18, страница 1 из 1

Наибольшее среди отрицательных чисел

#38076477

Георгий_rnd

Гость

Даны N целых чисел в в диапазоне от -20 до 15 Найти максимальный элемент среди отрицательных чисел.

Код: vbnet

1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.

Sub progr()
Dim i As Integer, max As Integer, N As Integer
N = InputBox("N= ")
For i = 1 To N
Cells(i, 5) = Int(Rnd * 35 - 20)
max = Cells(i, 5)
If Cells(i, 5) > max And Cells(i, 5) < 0 Then
max = Cells(i, 5)
End If
Next i
MsgBox ("max_otr ") & max
End Sub

С моим кодом выдаёт просто отрицательное число

...

Рейтинг:

0 / 0

12.12.2012, 19:48

| Ответить | Цитировать | Написать

Наибольшее среди отрицательных чисел

#38076502

Shocker.Pro

Участник

Откуда: ->|<- :адуктО

Сообщения: 23 134

Рейтинг: 0 / 0

Георгий_rnd

Код: vbnet

1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.

Sub progr()
Dim i As Integer, max As Integer, N As Integer
N = InputBox("N= ")
For i = 1 To N
Cells(i, 5) = Int(Rnd * 35 - 20)
max = Cells(i, 5)
If Cells(i, 5) > max And Cells(i, 5) < 0 Then
max = Cells(i, 5)
End If
Next i
MsgBox ("max_otr ") & max
End Sub

...

Рейтинг:

0 / 0

12.12.2012, 20:03

| Ответить | Цитировать | Написать

Наибольшее среди отрицательных чисел

#38076519

Георгий_rnd

Гость

max = Cells(i, 5)
заменил i на "1", теперь выдаёт просто максимум

...

Рейтинг:

0 / 0

12.12.2012, 20:14

| Ответить | Цитировать | Написать

Наибольшее среди отрицательных чисел

#38076549

Shocker.Pro

Участник

Откуда: ->|<- :адуктО

Сообщения: 23 134

Рейтинг: 0 / 0

Георгий_rndзаменил i на "1"попробуй не методом тыка...

Ответь себе на вопрос, зачем внутри условия max-у присваевается какое-то значение, если при каждом проходе цикла оно все равно затирается?

...

Рейтинг:

0 / 0

12.12.2012, 20:29

| Ответить | Цитировать | Написать

Наибольшее среди отрицательных чисел

#38076577

Георгий_rnd

Гость

Shocker.Pro,
чтобы было с чем сравнивать?

...

Рейтинг:

0 / 0

12.12.2012, 20:38

| Ответить | Цитировать | Написать

Наибольшее среди отрицательных чисел

#38076580

Shocker.Pro

Участник

Откуда: ->|<- :адуктО

Сообщения: 23 134

Рейтинг: 0 / 0

Еще раз.
В данной программе конструкция

Код: vbnet

1.
2.
3.

If Cells(i, 5) > max And Cells(i, 5) < 0 Then
max = Cells(i, 5)
End If

совершенно бессмысленна, в ней присваивается некое значение переменной max, дальше оно нигде не используется и при следующем проходе цикла затирается строкой

Код: vbnet

max = Cells(1, 5)

^{я, конечно, могу сказать, в чем ошибка, но, мне кажется будет полезней подумать самому}

...

Рейтинг:

0 / 0

12.12.2012, 20:42

| Ответить | Цитировать | Написать

Наибольшее среди отрицательных чисел

#38076585

Shocker.Pro

Участник

Откуда: ->|<- :адуктО

Сообщения: 23 134

Рейтинг: 0 / 0

и еще вдогонку, для наведения на мысль. А что должно выдать программа, если вообще в этом случайном наборе не будет отрицательных чисел?

...

Рейтинг:

0 / 0

12.12.2012, 20:43

| Ответить | Цитировать | Написать

Наибольшее среди отрицательных чисел

#38076625

Георгий_rnd

Гость

Shocker.Pro,
разбить условие

Код: vbnet

If Cells(i, 5) > max And Cells(i, 5) < 0 Then

на два условия, и начинать цикл после каждого из них? получается что-то вроде

Код: vbnet

1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.

Sub progr()
Cells.Clear
Dim i As Integer, max As Integer, N As Integer
N = InputBox("N= ")
For i = 1 To N
Cells(i, 5) = Int(Rnd * 35 - 20)
Next i
For i = 1 To N
If Cells(i, 5) < 0 Then
max = Cells(i, 5)
End If
Next i
For i = 1 To N
If max > Cells(i, 5) Then
max = Cells(i, 5)
End If
Next i
MsgBox ("max=") &max
End Sub

...

Рейтинг:

0 / 0

12.12.2012, 21:22

| Ответить | Цитировать | Написать

Наибольшее среди отрицательных чисел

#38076633

Shocker.Pro

Участник

Откуда: ->|<- :адуктО

Сообщения: 23 134

Рейтинг: 0 / 0

Уже ближе к теме (потом покажу, как короче).
Только программа теперь неверно работает - ищет минимальное, а не максимальное число.

...

Рейтинг:

0 / 0

12.12.2012, 21:27

| Ответить | Цитировать | Написать

Наибольшее среди отрицательных чисел

#38076647

Георгий_rnd

Гость

Shocker.Pro,
что-то до меня никак не дойдет - как искать максимальное

...

Рейтинг:

0 / 0

12.12.2012, 21:44

| Ответить | Цитировать | Написать

Наибольшее среди отрицательных чисел

#38076651

Shocker.Pro

Участник

Откуда: ->|<- :адуктО

Сообщения: 23 134

Рейтинг: 0 / 0

Дык см свой первый пост, там-то как раз условие было правильное

...

Рейтинг:

0 / 0

12.12.2012, 21:46

| Ответить | Цитировать | Написать

Наибольшее среди отрицательных чисел

#38076657

Георгий_rnd

Гость

Shocker.Pro,

Код: vbnet

1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.

Sub progr()
Cells.Clear
Dim i As Integer, max As Integer, N As Integer
N = InputBox("N= ")
For i = 1 To N
Cells(i, 5) = Int(Rnd * 35 - 20)
Next i
For i = 1 To N
If Cells(i, 5) < 0 Then
max = Cells(i, 5)
End If
Next i
For i = 1 To N
If Cells(i, 5) > max And Cells(i, 5) < 0 Then
max = Cells(i, 5)
End If
Next i
MsgBox ("max=") & max
End Sub

так?

...

Рейтинг:

0 / 0

12.12.2012, 21:52

| Ответить | Цитировать | Написать

Наибольшее среди отрицательных чисел

#38076718

AndreTM

Участник

Откуда: Где-то в вологодских лесах...

Сообщения: 6 316

Рейтинг: 0 / 0

"максимальный элемент среди отрицательных" - это отрицательное, максимальное по модулю; или отрицательное наиболее близкое к 0 (минимальное по модулю)?

...

Рейтинг:

0 / 0

12.12.2012, 22:33

| Ответить | Цитировать | Написать

Наибольшее среди отрицательных чисел

#38076720

Shocker.Pro

Участник

Откуда: ->|<- :адуктО

Сообщения: 23 134

Рейтинг: 0 / 0

Ну так результат выдается правильный?

...

Рейтинг:

0 / 0

12.12.2012, 22:34

| Ответить | Цитировать | Написать

Наибольшее среди отрицательных чисел

#38076724

Shocker.Pro

Участник

Откуда: ->|<- :адуктО

Сообщения: 23 134

Рейтинг: 0 / 0

AndreTM,

я предпочитаю понять буквально. Тем более, тут явно задачка на двойное условие, так как оговорка "из отрицательных" будет излишней (если по модулю)

...

Рейтинг:

0 / 0

12.12.2012, 22:36

| Ответить | Цитировать | Написать

Наибольшее среди отрицательных чисел

#38076729

AndreTM

Участник

Откуда: Где-то в вологодских лесах...

Сообщения: 6 316

Рейтинг: 0 / 0

Впрочем...

Код: vbnet

1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.

Sub progr()
    Cells.ClearContents
    Dim i As Integer, N As Integer, nMax As Integer
    N = Val(InputBox("N= "))
    If N <= 0 Or N > 30000 Then Exit Sub
    Randomize
    nMax = -20
    For i = 1 To N
        Cells(i, 5) = Int((35 - (-20) + 1) * Rnd + (-20))
        If Cells(i, 5) > nMax And Cells(i, 5) < 0 Then
            nMax = Cells(i, 5)
        End If
    Next i
    MsgBox "max=" & nMax
End Sub

...

Рейтинг:

0 / 0

12.12.2012, 22:41

| Ответить | Цитировать | Написать

Наибольшее среди отрицательных чисел

#38076856

Shocker.Pro

Участник

Откуда: ->|<- :адуктО

Сообщения: 23 134

Рейтинг: 0 / 0

Shocker.Proпотом покажу, как корочеAndreTMВпрочем...опередил ))

Главное, человек хоть и не оптимально, но вроде сам сделал.

...

Рейтинг:

0 / 0

13.12.2012, 00:10

| Ответить | Цитировать | Написать

Наибольшее среди отрицательных чисел

#38076872

Shocker.Pro

Участник

Откуда: ->|<- :адуктО

Сообщения: 23 134

Рейтинг: 0 / 0

я бы так сделал:

Код: vbnet

1.
2.
3.

nMax = -100
...
MsgBox IIf(nMax = -100, "Отрицательных чисел не найдено", "max=" & nMax)

...

Рейтинг:

0 / 0

13.12.2012, 00:38

| Ответить | Цитировать | Написать

18 сообщений из 18, страница 1 из 1

Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Наибольшее среди отрицательных чисел

Цитировать

Написать

Автор*:

Ввести пароль для входа

Тема*:

Сообщение

Данное сообщение тематическое

Сообщение содержит картинки или видео 18+

Автор:

ВНИМАНИЕ! На данном подфоруме действуют строгие правила. Удостоверьтесь, что ваше сообщение соответствует им!

Форум или тема закрыты для гостей. Необходима авторизация!

Загрузить последнюю сохраненную версию

Вложение:

Вставить как галерею

Максимальный размер вложений: 4,0 МБ, аудио/видео: 8,0 МБ. Картинки большего размера ужимаются, если возможно.

Введите код, изображенный на картинке. Если код нечитаемый, кликните картинку, чтобы загрузить другой вариант.

Отправляя сообщение, я выражаю свое согласие с правилами форума и принимаю пользовательское соглашение.

Читали тему (0):

Читали форум (0):

Пользователи онлайн (0):

start [/forum/topic.php?fid=60&msg=38076577&tid=2157273]:	0ms
get settings:	8ms
get forum list:	15ms
check forum access:	3ms
check topic access:	3ms
track hit:	50ms
get topic data:	11ms
get forum data:	2ms
get page messages:	49ms
get tp. blocked users:	1ms
others:	335ms

total:	477ms