Одномерные числовые массивы

Занятие 27. Одномерные массивы в языке VB

Тема 3.2. Средства языка программирования, обеспечивающие работу со структурированными данными

Занятие 26. Лабораторная работа №7. Обработка строковых величин

End Sub

N% = Len(y)

Print y

Next i

Next j

Private Sub Command1_Click()

End Sub

Print y

Next i

Next j

Rem Работа с согласными

Next i

Next j

Rem Работа с гласными

Private Sub Command1_Click()

End Sub

Print y

Next i

Next j

K = 0 'счетчик кол-ва встреч i-й буквы

Private Sub Command1_Click()

x$ = InputBox("Введите слово")

Print x$

y$ = ""

For i = 1 To Len(x)

For j = 1 To Len(x)

If Mid$(x, i, 1) = Mid$(x, j, 1) Then k = k + 1

If k <> 3 Then y = y + Mid$(x, i, 1)

Задача 14. Составить программу, выписывающую из слова Х все гласные буквы, а затем все согласные. Например: арбуз Þ аурбз

x$ = InputBox("Введите слово")

Print x$

y$ = ""

Gl$ = "АаЕеЁёИиОоУуЫыЭэЮюЯя"

For i = 1 To Len(x)

For j = 1 To Len(Gl)

If Mid(x, i, 1) = Mid(Gl, j, 1) Then y = y + Mid(x, i, 1)

Sgl$ = "БбВвГгДдЖжЗзЙйКкЛлМмНнПпРрСсТтФфХхЦцЧчШшЩщЬьЪъ"

For i = 1 To Len(x)

For j = 1 To Len(Sgl)

If Mid(x, i, 1) = Mid(Sgl, j, 1) Then y = y + Mid(x, i, 1)

Задача 15. Составить программу, подсчета различных букв в слове Х.

Например: молоко Þ 4

x$ = InputBox("Введите слово")

Print x$

y$ = Mid$(x,1,1)

For i = 2 To Len(x)

Flag = 0

For j = 1 To Len(y)

If Mid(x, i, 1) = Mid(y, j, 1) Then Flag=1

If Flag = 0 then y = y + Mid(x, i, 1)

Print “Различных букв -”; N

Занятие 25. Лабораторная работа №6. Обработка строковых величин: элементарные задачи

Массивы разделяются на одномерные (линейные) и двухмерные (прямоугольные). Возможно существование и n-мерных массивов. Массивы ещё называют таблицами. Массивы могут содержать числовую или символьную информацию.

Такой массив можно представить в виде линейной последовательности ячеек. В каждую ячейку может быть записано число.

А(6)

Индексы элементов массива

А – имя массива

(6) – размерность массива

99 – значение элемента массива

А(4)=-0,5 –четвёртый элемент массива А имеет значение –0,5

Для создания массива в программе его надо определить, т.е. отвести в памяти место под будущий массив. Для этого в начале программы надо записать команду Dim далее указать имя массива и в скобках - количество элементов в массиве. Например, Dim A(6).

Dim (читается – дим, сокращение от англ. Dimension (димэншн), переводится – размеры)

Dim R%(50) – определить место под 50 элементов массива чисел целого типа.