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

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


textual

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

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.900 из 5



Похожие ответы
  1. Задан целочисленный массив из 10 элементов 1) определить, есть ли в массиве последовательность из n повторяющихся элементов, стоящих подряд. n пользователь вводит. подводный камень: 3334445551 - n должно быть <=3,однако при неправильном коде(как у меня) выводит,что,допустим, 5 элементов тоже есть

  1. Дана последовательность чисел. Нужно определить, соблюдается ли последовательность чередования четных и не четных цифр (то есть, если это 123456, то соблюдается, а если 12356 то не соблюдается)

  1. Дана последовательность действительных чисел a1, a2, ..., an. Выяснить, будет ли она возрастающей. Вот что у меня вышло,но она работать как надо не хочет. В чем проблема?

  1. Дана числовая последовательность целых чисел, оканчивающаяся нулем элементов. Определить количество чисел, которые делятся на 7;

  1. Помогите пожалуйста с решением. Примерно в голове алгоритм есть, а как реализовать не могу понять;( срочно надо!

  1. Для начало, наверное, напишу что от меня хотят.Дана последовательность действительных чисел а1, а2,..., а10, элементы которой образована с помощью датчика случайных чисел из диапазона 10,00-99,99. Элементы последовательности в дробной части имеют не более двух цифр. Выяснить, будет ли она убывающей. Я понимаю это так. Создаем подряд 10 рандомных чисел из диапозона. Получаем последовательность. И проверяем ее на то какая она. ( возрастает или убывает, ну или равномерная ) Вообщем вот я написал код для создания последовательности:

  1. Помогите пожалуйста. Не получается решить задачу

  1. Дана числовая последовательность .Подсчитать сумму с точностью 0,000001

  1. Дана числовая последовательность {1,3,5...m}. Найти сумму первых пятидесяти членов

  1. Какое условие нужно поставить чтоб определить количество целых чисел, входящих в указанную последовательность один раз.