Лекция 8 ПРЕОБРАЗОВАНИЕ ОДНОМЕРНЫХ МАССИВОВ ИЗМЕНЕНИЕ СОДЕРЖИМОГО ЯЧЕЕК МАССИВА

Лекция 8

ПРЕОБРАЗОВАНИЕ ОДНОМЕРНЫХ МАССИВОВ

ИЗМЕНЕНИЕ СОДЕРЖИМОГО ЯЧЕЕК МАССИВА

Задача: Заполнить массив 5-ю числами. На место отрицательных элементов записать минус один, на место положительных – один.

Option Explicit

Sub Primer1( )

Dim A(1 To 5) As Single, i As Byte, S As String

For i=1 To 5

A(i)=VAL(InputBox(«A(»+STR(i)+")=","Введите5 чисел",""))

Next i

For i=1 To 5

IF A(i)<0 Then A(i)=-1

IF A(i)>0 Then A(i)=1

Next i

S=""

For i=1 To 5

S=S+" "+STR(A(i))

Next i

MsgBox "Массив="+S

End Sub

ПЕРЕСТАНОВКА ЯЧЕЕК МАССИВА

Задача: Заполнить массив 5-ю числами. Переставит местами 1-й и последний элементы массива.

Option Explicit

Sub Primer2( )

Dim A(1 To 5) As Single, i As Byte, S As String, B As Single

For i=1 To 5

A(i)=VAL(InputBox(«A(»+STR(i)+")=","Введите5 чисел",""))

Next i

B=A(1)

A(1)=A(5)

A(5)=B

S=""

For i=1 To 5

S=S+" "+STR(A(i))

Next i

MsgBox "Массив="+S

End Sub

ОПРЕДЕЛЕНИЕ АДРЕСА МИНИМАЛЬНОГО ЭЛЕМЕНТА

OptionExplicit

Sub Primer3( )

Dim A(1 To 5) As Single, i,N As Byte, S As String, Min As Single

For i=1 To 5

A(i)=VAL(InputBox(«A(»+STR(i)+")=","Введите5 чисел",""))

Next i

Min=A(1)

N=1

For i=2 To 5

If A(i)<Min Then

Min=A(i)

N = i

End if

Next i

S=""

For i=1 To 5

S=S+" "+STR(A(i))

Next i

MsgBox "Массив="+S+vbCrLf+«Min=»+STR(Min)+VbCrLf+ _

"Адрес минимума="+STR(N)

End Sub

РАЗМЕСТИТЬ В МАССИВЕ СНАЧАЛА ОТРИЦАТЕЛЬНЫЕ, ЗАТЕМ- ПОЛОЖИТЕЛЬНЫЕ ЭЛЕМЕНТЫ

Option Explicit ' Сгруппировать элементы

Sub Primer4( )

Dim A(1 To 5) As Single, B(1 To 5) As Single, C(1 To 5) As Single

Dim i, N, K As Byte, S As String

For i=1 To 5

A(i)=VAL(InputBox(«A(»+STR(i)+")=","Введите5 чисел",""))

Next i

N = 0

K = 0

For i = 1 To 5

If A(i) < 0 Then

N = N + 1

B(N) = A(i)

End If

If A(i) > 0 Then

K = K + 1

C(K) = A(i)

End If

Next i

For i = 1 To N

A(i) = B(i)

Next i

For i = 1 To K

A(N + i) = C(i)

Next i

S = ""

For i = 1 To 5

S = S + " " + Str(A(i))

Next i

MsgBox "Массив="+S

End Sub

ПЕРЕВЕРНУТЬ МАССИВ

Option Explicit ' Перевернуть массив

Sub Primer5( )

Dim A(1 To 5) As Single, B(1 To 5) As Single

Dim i As Byte, S As String

For i=1 To 5

A(i)=VAL(InputBox(«A(»+STR(i)+")=","Введите5 чисел",""))

Next i

For i=1 To 5

B(5-i+1)=A(i)

Next i

For i=1 To 5

A(i)=B(i)

Next i

S = ""

For i = 1 To 5

S = S + " " + Str(A(i))

Next i

MsgBox "Массив="+S

End Sub

ПЕРЕСТАВИТЬ МЕСТАМИ ПОЛОВИНКИ МАССИВА

OptionExplicit' Переставить половинки массива

Sub Primer6( )

Dim A(1 To 6) As Single, B(1 To 6) As Single, C(1 To 6) As Single

Dim i As Byte, S As String

For i=1 To 6

A(i)=VAL(InputBox(«A(»+STR(i)+")=","Введите5 чисел",""))

Next i

For i=1 To 3

B(i)=A(i)

C(i)=A(i+3)

Next i

For i=1 To 3

A(i)=C(i)

A(i+3)=B(i)

Next i

S = ""

For i = 1 To 6

S = S + " " + Str(A(i))

Next i

MsgBox "Массив="+S

End Sub

165
RSS
Нет комментариев. Ваш будет первым!
Загрузка...
Этот сайт использует файлы cookies, чтобы облегчить вам пользование нашим веб-сайтом. Продолжая использовать этот веб-сайт, вы даете согласие на использование файлов cookies. Подробнее о том, как мы пользуемся файлами cookies и как ими управлять, вы можете узнать нажав на ссылку ниже.