Срочно нужна помощь в создании алгоритма.

[Ketran]

Всем привет.
Мне нужна помощь в создании алгоритма. Короче срочно нужен алгоритм и программа "нахождения минимального из двадцати введенных пользователем чисел". с использованием цикла по счетчику.
Пожалуйста, кто с VB на "ТЫ" помогите разобраться.

[GM]

Код: Выделить всё

dim a(1 to 20) as long, min as long, i as long 'заносим данные в массив
min = a(1)
for i = 2 to 20
if a(i) < min then min = a(i)
next


Надеюсь разберешся

[Ketran]

Код: Выделить всё

dim a(1 to 20) as long, min as long, i as long 'заносим данные в массив
min = a(1)
for i = 2 to 20
if a(i) < min then min = a(i)
next


Надеюсь разберешся

Спасибо за ответ!
Но у меня проблема вообще с написанием алгоритмов в Visual Basic, я никогда раньше не писал (програмировал) проги на VB.
А мне очень срочно, нужна такая прога, не могли бы Вы написать ее мне? Ведь как я понял, это не проблема для такого профи как Вы!
Заранее бладарен!

[d3drm]

Код: Выделить всё

dim a(1 to 20) as long, min as long, i as long 'заносим данные в массив
min = a(1)
for i = 2 to 20
if a(i) < min then min = a(i)
next


Надеюсь разберешся

Спасибо за ответ!
Но у меня проблема вообще с написанием алгоритмов в Visual Basic, я никогда раньше не писал (програмировал) проги на VB.
А мне очень срочно, нужна такая прога, не могли бы Вы написать ее мне? Ведь как я понял, это не проблема для такого профи как Вы!
Заранее бладарен!

это и есть программа =)

[Ketran]

[code]

это и есть программа =)

Да это про меня!
Значит это и есть программа, тогда объясните мне пожалуйста, как мне ее вписать в VB, чтобы получился .exe файл. Я создаю в VB стандартный .exe проект, появляеться форма на которой надо расставить окно ввода и окно получаемого результата и кнопку "ввод". Вопрос такой как мне их взаимо-обвязать, чтобы этот алгоритм использовал окно ввода для принятия цисел, кнопку для вывода результата в окне "Результат".

[GM]

Как вариант:

Код: Выделить всё

Sub Form_Load()
dim a(1 to 20) as long, min as long, i as long
for i = 1 to 20 'проходим по массиву
a(i) = clng(inputbox("Введите " & cstr(i) & "-ое число")) 'читаем значение с помощью inputbox, далее конвертируем в long, и присваиваем элементу массиву
next
min = a(1)  ' пусть минииальным будет первый элемент
for i = 2 to 20  'проходим по массиву
if a(i) < min then min = a(i)  'если минимальный элемент больший за текущий елемент, присваиваем минимальному элементу значение текущего елемента
next
msgbox "Минимальное число: " & cstr(min) 'выводим
end 'конец
end sub


Врят ли, что-то поймеш с коментов, но я старался

[Ketran]

Спасибо за ответ!
Постраюсь разобраться, прога стала более-менее понятна.
Если что не будет получаться обращюсь к Вам.
Всего наилучшего и поздравляю с наступающим Новым Годом!