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

2.0.53

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

Гость

Нов. | Гор. | Избр.

Действия ...

Доб. в избранное
Игнор. тему
Прикреп. тему
Пометить прочит. / непрочит.
Фильтр:
Сообщения автора темы
Сообщение содержит вложения
Сообщение содержит картинки
Сообщение содержит видеоклипы
Сообщение содержит аудиоклипы
Сообщение содержит картинки или видео 18+

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

12.12.2012, 19:48

#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, 20:03

#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:14

#38076519

Георгий_rnd

Гость

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

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

...

Рейтинг:

0 / 0

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

12.12.2012, 20:29

#38076549

Shocker.Pro

Участник

Откуда: ->|<- :адуктО
Сообщения: 23 134
Рейтинг: 0 / 0

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

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

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

...

Рейтинг:

0 / 0

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

12.12.2012, 20:38

#38076577

Георгий_rnd

Гость

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

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

...

Рейтинг:

0 / 0

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

12.12.2012, 20:42

#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:43

#38076585

Shocker.Pro

Участник

Откуда: ->|<- :адуктО
Сообщения: 23 134
Рейтинг: 0 / 0

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

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

...

Рейтинг:

0 / 0

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

12.12.2012, 21:22

#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:27

#38076633

Shocker.Pro

Участник

Откуда: ->|<- :адуктО
Сообщения: 23 134
Рейтинг: 0 / 0

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

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

...

Рейтинг:

0 / 0

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

12.12.2012, 21:44

#38076647

Георгий_rnd

Гость

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

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

...

Рейтинг:

0 / 0

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

12.12.2012, 21:46

#38076651

Shocker.Pro

Участник

Откуда: ->|<- :адуктО
Сообщения: 23 134
Рейтинг: 0 / 0

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

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

...

Рейтинг:

0 / 0

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

12.12.2012, 21:52

#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, 22:33

#38076718

AndreTM

Участник

Откуда: Где-то в вологодских лесах...
Сообщения: 6 316
Рейтинг: 0 / 0

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

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

...

Рейтинг:

0 / 0

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

12.12.2012, 22:34

#38076720

Shocker.Pro

Участник

Откуда: ->|<- :адуктО
Сообщения: 23 134
Рейтинг: 0 / 0

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

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

...

Рейтинг:

0 / 0

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

12.12.2012, 22:36

#38076724

Shocker.Pro

Участник

Откуда: ->|<- :адуктО
Сообщения: 23 134
Рейтинг: 0 / 0

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

AndreTM,

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

...

Рейтинг:

0 / 0

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

12.12.2012, 22:41

#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

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

13.12.2012, 00:10

#38076856

Shocker.Pro

Участник

Откуда: ->|<- :адуктО
Сообщения: 23 134
Рейтинг: 0 / 0

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

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

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

...

Рейтинг:

0 / 0

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

13.12.2012, 00:38

#38076872

Shocker.Pro

Участник

Откуда: ->|<- :адуктО
Сообщения: 23 134
Рейтинг: 0 / 0

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

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

Код: vbnet

1.
2.
3.

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

...

Рейтинг:

0 / 0

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

Написать

Автор*:

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

Тема*:

Сообщение

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

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

Автор:

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

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

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

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

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

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

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

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

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

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

start [/forum/topic.php?fid=60&mobile=1&tid=2157273]:	0ms
get settings:	10ms
get forum list:	13ms
check forum access:	3ms
check topic access:	3ms
track hit:	30ms
get topic data:	9ms
get forum data:	3ms
get page messages:	53ms
get tp. blocked users:	1ms
others:	13ms

total:	138ms