Помогите пожалуйста разобраться с задачей:
Дана непустая последовательность целых чисел, оканчивающаяся числом 100. Определить, есть ли в последовательности число 33. Если имеются несколько таких чисел, то определить индекс первого их них.
Я так думаю, что здесь надо использовать функцию rnd
Dim m(1 To 100) As Long
Dim a As Long
m(100) = Int((100 * Rnd))
Предположим , есть массив m(n), где m(n)=100, n=1,2...
Тогда просто перебором , можно будет найти
Dim m(1 To 100) As Long
Dim a As Long
m(100) = Int((100 * Rnd))
1:
if m(n)=33 then Msgbox(n)
if m(n)=100 then Msgbox("No elements")
if m<>100 and m <> 33 goto 1
Спасибо, разобрался сам)
Я ошибался на счёт m(100) = Int((100 * Rnd)). Будет заполняться только сотый компонент массива. Взял m(i) и поставил счётчик на равенство.
У меня есть ещё одна задача:
Для выборки случайных чисел, содержащихся в массиве A(n), построить гистограмму распределения, содержащую m интервалов.
Примечание. гистограммой (или диаграммой) распределения называется массив из m элементов, значение каждого из которых равно количеству (или доле из общего числа) чисел из А, попавших в соответствующий интервал. Ширина каждого интервала определяется как (amax-amin)/m
amax и amin- что такое?
a максимальное минус а минимальное.
Туплю)))
dim G(m)
dim f as long
f=0
for i=0 to m ; определили максимальный и минимальный
if amax<A(m) then amax=A(m)
if amin>A(m) then amin=A(m)
next i
for i=0 to m
count=0
for j=0 to i
if A(j)< (amax-amin)/j then count=count+1 ; меньше - увеличили счетчик
next j
G(i)=count
count =0
next i
Большое спасибо!
Удачи)
Русская версия Invision Power Board (http://www.invisionboard.com)
© Invision Power Services (http://www.invisionpower.com)