Условиям

Поиск в массиве элементов, удовлетворяющих заданным

Задача 1

Задан массив A из 10 элементов – целые числа в диапазоне от –20 до 20. Найти в массиве все отрицательные элементы и вывести их на экран.

В общем случае в массиве может не быть отрицательных элементов. Чтобы учесть и этот случай введем переменную р, которой присвоим значение 0 (или любое другое) до просмотра элементов и изменяем каким-либо образом ее значение каждый раз, когда найдем отрицательный элемент. После просмотра всех элементов проверяем значение переменной р: если оно не изменилось – отрицательных элементов нет. Сообщение «Отрицательных элементов нет» будем вsводить в окно сообщений MsgBox.

Блок-схема алгоритма:

Фрагмент программного кода:

...

р = 0

For i = 1 to 10

if a(i) < 0 then ‘если элемент массива

Picture2. Print a(i); Spc(2); ‘отрицательный – выводим в

‘графическое окно

р = р + 1 ‘и применяем величину р

end if

next i

if p = 0 then

Label1 Visible = true

Label1 Caption Msg “Отрицательных элементов нет”

end if

…

Задача 2

В массиве А, содержащим 12 целых чисел в диапазоне от –100 до 100, найти 1-й отрицательный элемент. Вывести на экран этот элемент и его индекс i.

Для вывода a_i и i используем текстовые окна text1 и text2. Для вывода сообщения «Отрицательных элементов нет» - встроенное окно сообщений MsgBox.

Private Sub btnStart_Click()

Dim a (1 to 12) as Integer

Dim i as Byte, yes as Boolean ‘Ввод исходного массива

‘Поиск отрицательного элемента

yes = true ‘если отрицательных элементов нет

for i = 1 to 12

if sgn (a(i)) = -1 then

yes = false ‘отрицательные элементы есть

text1.text = CStr (a(i)) ‘вывод a_i < 0

text2.text = CStr (i) ‘и его индекса

exit for ‘досрочный выход из цикла

end if

next i

if yes then ‘yes = true? Есть отрицательные элементы?

‘нет отрицательных элементов

MsgBox «Отрицательных элементов нет»,, “окно сообщений”

end if

end Sub

Блок-схема алгоритма

Функция Sgn (число) проверяет знак числа

Задача 3

Поиск максимального элемента.

В массиве а найти максимальный элемент. Пусть задан массив a = {3,5, 0, 10, -1, 2}, i = 1,…,6. Введем переменную imax – индекс текущего максимального элемента, после просмотра всех элементов массива в этой переменной будет содержаться индекс максимального элемента.

Тогда элемент с индексом imax, т.е. а_imax – это значение максимального элемента на каждом шаге сравнения.

Возьмем начальное значение imax = 1, т.е. за максимальный элемент примем сначала 1-й элемент - а_imax = а₁, и с ним будем сравнивать следующие элементы, начиная со 2-го, пока не найдем элемент а_i > а_imax. Тогда будем считать этот элемент максимальным, т.е. а_imax = а. Следующие элементы будем сравнивать уже с найденными элементом, новым а_imax и т.д.

imax = 1, а_imax = а₁ = 3

1. а₂ > а_imax, да Þ imax = 2, а_imax = а₂ = 5

2. а₃ > а_imax, нет

3. а₄ > а_imax, да Þ imax = 4, а_imax = а₄ = 10

4. а₅ > а_imax, нет

5. а₆ > а_imax, нет

Результат: imax = 4, а_imax = а₄ = 10.

Блок-схема алгоритма:

Фрагмент программного кода:

…

imax = 1

for i = 2 to 6

if a(i) > a (imax) then imax = i

next i

txta.text = Cstr (a(imax)); txti.text = Cstr (imax)

Задача 4. Найти минимальный элемент в массиве. Алгоритм аналогичен поиску максимального элемента – самостоятельно.

Дата добавления: 2014-01-07