VB_NET

ElseIf a(і) = 1 Then ' кількість 1 k1 +=1

End If Next i

For i= 0 To n-1 ' заповнення всього масиву 2 a(і) = 2

Next i

For i= 0 To k0-1 ' початкове заповнення 0 a(і) = 0

Next i

For i= k0 To k0+k1-1 ' заповнення 1 a(і)=1

Next i

Перелічимо деякі стандартні задачі на одновимірні масиви:

1)визначення найбільшого/найменшого елемента;

2)визначення суми/добутку елементів (безумовне й умовне);

3)підрахунок/заміна елементів, що задовольняють заданій умові;

4)визначення заданого розташування елементів;

5)вилучення елемента, введення елемента в задану позицію;

6)перерозташування (інвертування, циклічне зсування) елементів;

7)випадкова вибірка елементів (з повтореннями і без повторень);

8)злиття двох упорядкованих масивів;

9)пошук заданого елемента (використання методу IndexOf);

10)сортуваня масиву (використання методу Sort).

До стандартних задач належить і задача обчислення значення многочлена у деякій точці х, оскільки коефіцієнти многочлена зазвичай зберігають в одновимірному масиві.

Приклад 4.10. Обчислення значення многочлена степеня n у точці х, коефіцієнти якого перебувають у масиві А, за схемою Горнера:

Pn(х) = А0 хn + А1 хn–1 +... + Аn–1 х + Аn =

= (...(((0 х+А0) х + А1) х + А2) х +... + Аn–1) х + Аn.

p = 0

For i = 0 To n

p = p * x + a(i)

Next i

Приклад 4.11. Дано натуральне число n і послідовність дійсних чисел а1, а2,..., аn. Знайти перше від початку найменше число аі (і=1..n) і останнє за порядком найбільше число аj (j=1..n) та поміняти їх місцями (спочатку визначаємо порядкові номери цих чисел).

Module Module2 Sub main()

Dim a(), x As Integer

Dim n, i, kmin, kmax As Byte

Do

n = InputBox("Введіть n>2 і n<21")

Loop Until n > 2 And n < 21

ReDim a(n - 1) For i = 0 To n - 1

a(i) = InputBox("Введіть елемент масиву!") Console.Write(a(i) & " ") ' початковий масив

Next i Console.WriteLine() kmin = 0 : kmax = 0 For i = 1 To n - 1

If a(kmin) > a(i) Then kmin = i If a(kmax) <= a(i) Then kmax = i

Next i

x = a(kmin) : a(kmin) = a(kmax) : a(kmax) = x For i = 0 To n - 1

Console.Write(a(i) & " ") ' кінцевий масив

Next i Console.WriteLine() Console.ReadLine()

End Sub

End Module

Приклад 4.12. Дано натуральне число n і послідовність дійсних чисел а1, а2,..., аn. Знайти суму додатних чисел і середнє арифметичне від’ємних чисел. Значення суми присвоїти першому елементу масиву, а середнє арифметичне – останньому елементу масиву.

Module Module2

Sub main()

Dim a(), sd, sv As Integer

Dim n, i, nv As Byte

Do

n = InputBox("Введіть n>2 і n<21")

Loop Until n > 2 And n < 21

ReDim a(n - 1)

sd = 0 : sv = 0 : nv = 0 For i = 0 To n - 1

a(i) = InputBox("Введіть елемент масиву!")

If a(i) > 0 Then sd += a(i)

If a(i) < 0 Then sv += a(i) : nv += 1 Console.Write(a(i) & " ") ' початковий масив

Next i Console.WriteLine() a(0) = sd

If nv = 0 Then MsgBox("Немає від'ємних") _ Else a(n - 1) = sv / nv

For i = 0 To n - 1

Console.Write(a(i) & " ") ' кінцевий масив

Next i Console.WriteLine() Console.ReadLine()

End Sub

End Module

Приклад 4.13. Дано натуральне число n і послідовність цілих чисел а1, а2,..., аn. Визначити, скільки разів трапляється у цій послідовності найменше число. Замінити цим найменшим числом відповідну кількість елементів від початку масиву.

Module Module2 Sub main()

Dim a(), min As Integer Dim n, i, nmin As Byte

Do

n = InputBox("Введіть n>2 і n<21")

Loop Until n > 2 And n < 21

ReDim a(n - 1) For i = 0 To n - 1

a(i) = InputBox("Введіть елемент масиву!") Console.Write(a(i) & " ") ' початковий масив

Next i Console.WriteLine()

Console.WriteLine()

Console.ReadLine()

End Sub

End Module

На перший погляд здається, що для визначення кількості однакових найменших значень треба організувати два цикли:

•перший – для визначення найменшого значення (мінімуму);

•другий – для визначення кількості повторень цього мінімуму. Однак, скориставшись спеціальним прийомом скидання на-

копиченого значення, можна обійтися одним циклом. Якщо умова a(i)<min справджується, то знайдено нове найменше число і відлік кількості повторень найменшого числа необхідно починати з одиниці (скидання накопиченого значення кількості повторень).

Якщо ж умова a(i)< min не справджується, то з двох можливих значень (a(i)=min чи a(i)>min) нас цікавить одне: a(i)=min

– означає, що визначено елемент, який збігається з поточним найменшим числом (збільшуємо лічильник кількості повторень).

Скидання накопиченого значення деякої величини – досить поширений прийом, який використовують при розв’язуванні багатьох задач. Скористаємося ним і при розв’язанні наступного прикладу.

Приклад 4.16. Введення нового елемента у задану позицію k.

При введенні нового елемента (див. рис. 4.1) необхідно попередньо розсунути масив, тобто пересунути підмасив аk,..., аn вправо на одну позицію. Переміщення підмасиву треба виконувати з кінця і перевіряти, чи достатньо памяті виділено під масив.

Console.ReadLine()

End Sub

End Module

Зауваження. При видаленні k-го елемента з масиву необхідно зсунути підмасив аk+1,..., аn вліво на одну позицію.

Циклічне зсування масиву характерне тим, що розмір масиву не змінюється. Циклічне зсування масиву вліво на одну позицію зображено на рис. 4.2. При зсуванні вправо напрям перегляду масиву і команди присвоювання у циклі такі ж самі, як і при включенні елемента у масив, а при зсуванні вліво – такі ж самі, як і при видаленні елемента з масиву.

Next i : Console.WriteLine()

Do

k = InputBox("Кількість зсувів k>=1 і k<" & n)

Loop Until k >= 1 And k < n For j = 1 To k

x = a(0)

For i = 0 To n – 2 : a(i) = a(i + 1) : Next i a(n - 1) = x

Next j

For i = 0 To n - 1

Console.Write(a(i) & " ") ' кінцевий масив Next i : Console.ReadLine()

End Sub

End Module

місце, а в подальшому при виявленні нового від’ємного члена зсуватиметься на одну позицію вліво.

Приклад 4.19. Дано натуральне число n і послідовність дійсних різних чисел а1, а2,..., аn. Вибрати випадковим чином k (1 ≤ k ≤ n) елементів

цього масиву так, щоб жодне з них не повторилося.

Module Module1 Sub main()

Dim a(),x As Single Dim n, i, j, k As Byte

' Введення n та елементів масиву - див. приклад 4.18!

Do

k = InputBox("Кількість вибраних чисел <=" & n)

Loop Until k <= n

For i = 0 To k - 1

j = i + Rnd() * (n - i - 1) ' випадковий індекс x = a(j) : a(j) = a(i) : a(i) = x ' обмін

Next i

Console.WriteLine("Вибрані числа: ") For i = 0 To k - 1

Console.Write(a(i) & " ")

Next i

Console.WriteLine("Кінцевий масив: ") For i = 0 To n - 1

Console.Write(a(i) & " ") Next i : Console.ReadLine()

End Sub

End Module

Вибираємо випадковий індекс j з проміжку [0; n–1] і відповідний йому елемент a(j) міняємо місцями з нульовим елементом масиву. Наступного разу індекс j обирають з проміжку [1; n–1] і елемент a(j) міняють місцями з першим елементом масиву і т.д. Обрані елементи розташовуються на початку масиву, вони не беруть участі у подальших вибірках (вибірка без повторень).

Приклад 4.20. Дано натуральні числа n, m і два масиви дійсних чисел а1, а2,..., аn і b1, b2,..., bm, впорядковані за неспаданням. Утворити з елементів цих масивів впорядкований за неспаданням масив с.

i = 0 : j = 0

Do While i < n And j < m

If a(i) <= b(j) Then

c(i + j) = a(i) : i = i + 1

Else

c(i + j) = b(j) : j = j + 1

End If Loop

While i < n

c(m + i) = a(i) : i = i + 1

End While

While j < m

c(n + j) = b(j) : j = j + 1

End While

Console.WriteLine("Кінцевий масив: ") For i = 0 To n + m - 1

Console.Write(c(i) & " ") Next i : Console.ReadLine()

End Sub

End Module