Версия для печати темы

Автор: answer 18.3.2012, 17:57

Вводится последовательность ненулевых чисел, 0-конец последовательности.Найти наименьшее из всех чисел, меньших 15 и его порядковый номер.
1.Что значит ненулевых чисел?
2.Как найти порядковый номер?

Sub qqq()
Dim a#, M#, N&, NM&
M = 1.79769313486231E+308
Do
a = InputBox("Введите число (0 - конец ввода)")
If a = 0 Then Exit Do
N = N + 1
If a < M Then M = a: NM = N
Loop
If M < 15 Then
MsgBox "Наименьшее из всех чисел, меньших 15 = " & M & " Его порядковый номер =" & NM
Else
MsgBox "Увы, не было чисел, меньших 15"
End If
End Sub

Автор: Vahappaday 19.3.2012, 9:46

Ненулевых, значит, неравных нулю)
Порядковый номер - это число, равное (количеству элементов, стоящих до какого-либо (в Вашем случае - минимального) элемента последовательности) + 1.
Программа вроде бы правильная. Если найдено число меньше, чем все предыдущие, запоминается его номер.

Автор: answer 19.3.2012, 17:30

Цитата(Vahappaday @ 19.3.2012, 9:46)

Цитата(answer @ 19.3.2012, 17:28)

Автор: Holms26 21.3.2012, 18:03

Private Sub Пуск_Click()
Dim min, I, x, N As Single
min = 15
I = 0
Do
x = Val(InputBox("Введите число из последовательности"))
I = (I + 1)
Print I; "чило ="; x
If x < min Then min = x: M = I
Loop Until x = 0
Print "Наименьшее число (меньше 15) ="; min
Print "Его порядковый номер ="; M
End Sub


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