Как найти порядковый номер элемента последовательности - VB
Формулировка задачи:
Вводится последовательность ненулевых чисел, 0-конец последовательности.Найти наименьшее из всех чисел, меньших 15 и его порядковый номер.
1.Что значит ненулевых чисел?
2.Как найти порядковый номер?
На данный момент программу написал так, но без этих двух вопросов.
Решение задачи: «Как найти порядковый номер элемента последовательности»
textual
Листинг программы
Private Sub Command1_Click() Dim a, min As Single, N, K As Integer min = 15 N = 0: K = 0 Do a = InputBox("Ââåäèòå ÷èñëî (0 - ГЄГ®Г*ГҐГ¶ ââîäГ*)") N = N + 1 If a = 0 Then Exit Do If a < min Then min = a: K = N Loop While min < 15 Select Case a Case o To 15 MsgBox "ГЌГ*èìåГ*ГјГёГҐГҐ ГЁГ§ ГўГ±ГҐГµ Г·ГЁГ±ГҐГ«, ìåГ*ГјГёГЁГµ 15 = " & min & " Г…ГЈГ® ïîðÿäêîâûé Г*îìåð =" & K Case Is > 15 MsgBox "îøèáêГ*, Г·ГЁГ±ГҐГ« ìåГ*ГјГёГҐ 15 Г*ГҐ áûëî Г*Г*éäåГ*Г®" End Select End Sub
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д