Visual Basic FAQ

Найти минимальное число из квадратов данной последовательности

Dim arrC(10) 'Объявляем массив

Dim Min 'переменная для минимального значения

Randomize

'Заполняем массив случайными числами, перебирая в цикле все его элементы
For i = LBound(arrC) To UBound(arrC) Step 1
 arrC(i) = Int(Rnd * 100)
Next i

'Снова перебираем массив (кроме первого элемента, его квадрат первоначально считаем минимальным) и ищем минимальный квадрат
Min = arrC(LBound(arrC)) ^ 2
For i = LBound(arrC) + 1 To UBound(arrC) Step 1
 If arrC(i) ^ 2 < Min Then Min = arrC(i)
Next i

'Выводим минимальное значение
MsgBox Min

Запись опубликована on 25.02.2011 at 9:36 и размещена в рубрике: Арифметика. Вы можете читать комментарии, используя RSS-ленту. Вы можете оставить комментарий, или отправить трекбек с Вашего сайта.