3 Этап Составление программ

Посчитать количество символов с кодом, введенным с клавиатуры и прибавить к этому количеству код символа О.

18. Методика введение понятия о табличной величине и способах обработки табличной информации

3 этапа обучения: 1) Подготовительный этап предназначен для введения терминологии. 2) Этап работы с готовыми документами предназначен для осознания и усвоения учениками работы с электронными документами с использованием электронных инструментов. 3) Этап построения документа предназначен для формирования приемов построения электронных документов с использованием электронных инструментов.

1 Этап Подготовительный

1.Табличные величины предназначены для хранения большого количества однотипных данных под одним именем. Табличная величина характеризуется 3 параметрами: имя, тип и индекс. Табличная величина может быть одномерной и многомерной.

2.Табличная величина в Visual Basic называется массивом. Для задания массива служит команда Dim ИмяМассива (Количество элементов N) As Тип.

Границы стандартно задаются: 0 до N-1.

3.Динамический массив задается следующим образом:

Dim Massiv() as Integer …

ReDim Massiv(Количество элементов N)

или c сохранением уже введенных значений элемента массива

ReDim Preserve Massiv(Количество элементов N)

Для освобождения памяти, занятой динамическим массивом служит команда: Erase Massiv

4.Способы заполнения массива данными:

1 способ

Dim A() As Integer = {2, 4, 2, 8, 4, 2, 12, 32, 65, 92}

2 способ

Dim A(10) As Integer

Dim Rnd = New Random()

For i = 0 To 9

A(i) = Rnd.Next(101) - 50

Next

3 способ (на примере чисел Фибоначчи)

Dim A(10) As Integer

A(0) = 1

A(1) = 1

For i = 2 To 9

A(i) = A(i - 2) + A(i - 1)

Next

5.Вывод данных из массива в объект:

1 способ

lblVivod.Text = ""

For i = 0 To 9

lblVivod.Text = lblVivod.Text + Convert.ToString(A(i)) + " "

Next

2 способ

lstVivod.Items.Clear()

For i = 0 To 9

lstVivod.Items.Add(Convert.ToString(i) + " - " + Convert.ToString(A(i)))

Next

2 Этап Работа с готовыми программами

Обработка массивов

1.Найти сумму элементов массива

Dim Summa As Integer

Summa = 0

For i = 0 To 9

Summa = Summa + A(i)

Next i

lblSumma.Text = "Сумма=" & Summa

2.Найти количество таких элементов массива, которые больше заданного числа F

Dim K As Integer = 0, F As Integer = 20, j As Integer

For j = 0 To N - 1

If A(j) > F Then K = K + 1

Next j

lblResult.Text = "Количество=" & K

3.Найти номер (индекс) максимального элемента

Dim j As Integer

Dim IndMax As Integer = 0

For j = 1 To N - 1

If A(IndMax) < A(j) Then IndMax = j

Next j

lblMax.Text = "Индекс максимального элемента равен " + Convert.ToString(IndMax)