Visual Basic последнее min число из вводимых чисел!

[kenny91]

Private Sub Command1_Click()
Dim n As Integer, x As Integer, i As Integer, min As Integer
min = Val(InputBox("vvesti element"))
Do
x = Val(InputBox("vvesti element"))
If x <= min And x > 0 Then
min = x
End If
Loop While x <> 0
Text1.Text = min
End Sub

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

[Sazary]

А в чем вопрос-то? ) У вас же и так выводится минимальное число.

[EducatedFool]

Ему надо было "последнее min число из положительных чисел"...
Я уже объяснил, что такое невозможно.

[Serge_Bliznykov]

Сообщение от EducatedFool

Ему надо было "последнее min число из положительных чисел"...
Я уже объяснил, что такое невозможно.

Извините, что вмешиваюсь..
А можно мне "разжевать" — почему невозможно?
ведь достаточно добавить перед сравнением на минимальность проверку на положительность if x>0 Then
и всё...
Или я что-то не понял?

[Sazary]

Serge_Bliznykov, я тоже немного не понял )
Собственно, у ТС, вроде, и работает как должно:

If x <= min And x > 0 Then

Только при вводе первого числа нужно еще добавить проверку.

[Serge_Bliznykov]

Собственно, у ТС, вроде, и работает как должно:
Код:
If x <= min And x > 0 Then

оп-с! Точно, я это проглядел!
Ну тем более странно высказывание о невозможности выполнить задачу, которая решена... что-то я не понял...

EducatedFool, поясните, плиз. что имеется в виду!

p.s. кстати, я бы Min не присваивал первый элемент, а задавал какое-нибудь заведомо большое число, или завёл признак, было у нас уже что-то в Min
вариант 1:

   min = 32767
   Do
      x = Val(InputBox("vvesti element"))
      If x <= min And x > 0 Then
         min = x
      End If
   Loop While x <> 0
   if min<> 32767 Then
      Text1.Text = min
   End If

вариант 2.

   dim MinPriznak as Boolean
   MinPriznak = False
   Do
      x = Val(InputBox("vvesti element"))
      if x > 0 Then
         if Not MinPriznak Then
           min = x
           MinPriznak = True
         else
           If x <= min Then
             min = x
          End If
        End If
   Loop While x <> 0
   if MinPriznak  Then
      Text1.Text = min
   End If

[EducatedFool]

Судя по тексту задания, которое ТС скинул мне в личку, требовалось найти "последнее min число из положительных чисел"

Лично я могу найти
либо ПОСЛЕДНЕЕ положительное,
либо МИНИМАЛЬНОЕ положительное

К примеру, введены числа: 2, 5, 4, 6
И какое из них будет последнее минимальное?

[Sazary]

Сообщение от EducatedFool

И какое из них будет последнее минимальное?

Очевидно, 2
Но да, если вдуматься в задание, то звучит оно странно.
Я его так понял:
Если есть числа 2, 5, 4, 6, 2, 7
то последнее минимальное будет 2, но именно та двойка, которая последняя (слева от 7).
В общем, согласен, звучит не совсем корректно. Тем более, что при выводе все равно, где стоит эта двойка. Хоть последней, хоть первой.

[Serge_Bliznykov]

EducatedFool.
ага. вот теперь всё стало понятно.
вопрос в интерпретации, что считать последним минимальным.

К примеру, введены числа: 2, 5, 4, 6
И какое из них будет последнее минимальное?

последним минимальным (и просто минимальным) будет, разумеется, число 2

Смотрите, если в задаче потребовать ещё вывести порядковый номер найденного последнего минимального положительного элемента - то задача сразу обретает смысл:
для чисел: 5 3 3 8 3 5 последнее минимальное положительное будет пятое число (т.е. третья тройка)... имхо, конечно...

p.s. И спасибо за ответ. теперь я понял, то, что я не понимал.
Теперь пусть автор вопроса разбирается (для себя, разумеется) с последними минимальными...

Добавлено.
Sazary, писал свой ответ, ещё не видя вашего поста.
Обратите внимание!
просто удивительно, насколько совпали мысли, слова и аргументы!
Теперь уж точно тема "последних минимальных" раскрыта!

[kenny91]

Сообщение от Serge_Bliznykov

EducatedFool.
для чисел: 5 3 3 8 3 5 последнее минимальное положительное будет пятое число (т.е. третья тройка)... имхо, конечно...

да , вот это ближе к истине , мне нужно чтобы выводился порядковый номер последнего минимального числа !
наконец то смог переформулировать задание ВУЗа более грамотно