Дана непустая последовательность различных натуральных чисел ... - VB

Узнай цену своей работы

Формулировка задачи:

Помогите пожалуйста написать программу на Visual Basic. На форуме есть решение на языке Pascal,но нужно решение с алгоритмом на VB. Дана непустая последовательность различных натуральных чисел, за которой следует 0. Определить порядковый номер наименьшего из них

Решение задачи: «Дана непустая последовательность различных натуральных чисел ...»

textual
Листинг программы
Private Sub Command1_Click()
Dim i As Byte, a As Integer, s As String, min As Integer, imin As Integer
Cls
imax = 1
i = 0
min = 32767
Do
 a = Val(InputBox("Ââåäèòå ýëåìåГ*ГІ.ГЋГЄГ®Г*Г·Г*Г*ГЁГҐ ââîäГ* 0: ", "ÂÂÎÄ"))
 s = s & " " & Str(a)
 i = i + 1
 If a <> 0 And a < min Then
  min = a
  imin = i
 End If
Loop Until a = 0
Print s
Print "Г€Г*äåêñ MIN ýëåìåГ*ГІГ*:=" & imin
End Sub

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

Оцени полезность:

10   голосов , оценка 3.9 из 5
Похожие ответы