ВУЗ: Не указан
Категория: Не указан
Дисциплина: Не указана
Добавлен: 25.08.2020
Просмотров: 835
Скачиваний: 5
СОДЕРЖАНИЕ
ОБРАЗОВАТЕЛЬНЫЙ СТАНДАРТ ОСНОВНОГО ОБЩЕГО ОБРАЗОВАНИЯ ПО ИНФОРМАТИКЕ И ИНФОРМАЦИОННЫМ ТЕХНОЛОГИЯМ
ТРЕБОВАНИЯ К УРОВНЮ ПОДГОТОВКИ ВЫПУСКНИКОВ
ТРЕБОВАНИЯ К УРОВНЮ ПОДГОТОВКИ ВЫПУСКНИКОВ
Проект «График функции в полярной системе координат»
СОРТИРОВКА ОБМЕНОМ (методом "пузырька")
14.Методика введения понятия “Элемент управления RadioButton”
1 этап Подготовительный
1.Элементы управления предназначены для предоставления пользователю возможности управления ходом работы программы.
2. Элементы управления представлены следующими объектами:
RadioButton Value – значения True и False Возможен выбор одного элемента из группы. |
2 этап Работа с готовыми программами
Пример программы:
Проект «Обучение английскому»
- объект ImageList
Public Class frmEnglish
Private Sub btnExit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnExit.Click
End
End Sub
Private Sub rdbCat_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles rdbCat.CheckedChanged
picEnglish.Image = imlEnglish.Images(0)
End Sub
Private Sub rdbDog_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles rdbDog.CheckedChanged
picEnglish.Image = imlEnglish.Images(1)
End Sub
Private Sub rdbHourse_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles rdbHourse.CheckedChanged
picEnglish.Image = imlEnglish.Images(2)
End Sub
End Class
3 этап Составление программ
Самостоятельное составление программ и решение задач.
15.Методика введения понятия “Цикл WHILE”
1 этап Подготовительный
1.Циклы применяются для повторения нескольких шагов множество раз.
2. Циклы организуются следующими операторами:
Do While условие выполняется команды [Exit Do] Loop |
Doкоманды [Exit Do] Loop While условие выполняется |
Do Until условие не выполняется команды [Exit Do] Loop |
Doкоманды [Exit Do] Loop Until условие не выполняется |
3.Условия применимости циклов:
Цикл While (Until) применяется когда известно условие выхода из цикла.
Очень часто данный вид цикла приводит к зацикливанию, поэтому рекомендуется сохранить программу перед запуском.
2 этап Работа с готовыми программами
Пример программы:
Проект «Пирамида»
Public Class frmPiramid
Private Sub btnExit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnExit.Click
End
End Sub
Private Sub btnPusk_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnPusk.Click
Dim SOsn, Shag, X0, Y0, Dlina As Long
Dim picGraphics As Graphics
picGraphics = picPiramid.CreateGraphics()
Dim rnd As New Random()
X0 = picPiramid.Width / 2
Y0 = picPiramid.Height / 2
SOsn = Convert.ToInt32(txtSOsn.Text)
Shag = Convert.ToInt32(txtShag.Text)
Dlina = Math.Sqrt(SOsn)
Do
Dim RndBrush = New SolidBrush(Color.FromArgb(rnd.NextDouble * 255, rnd.NextDouble * 255, rnd.NextDouble * 255))
picGraphics.FillRectangle(RndBrush, Convert.ToInt16(X0 - Dlina / 2), Convert.ToInt16(Y0 - Dlina / 2), Dlina, Dlina)
Dlina = Dlina - Shag
Loop While Dlina > 0
End Sub
End Class
3 этап Составление программ
Самостоятельное составление программ и решение задач.
16.Методика введения понятия “Строки”
1 этап Подготовительный
1.Строки предназначены для хранения
набора символов. Строковая величина
представляет собой одномерную таблицу.
Строковая переменная содержит текст в
кодировке Unicode длиной до 231 (более
2 миллиардов!) символов. Объявление
строковой переменной:
Dim
Stroka As String
Stroka= “информатика”
2.Для работы со строковой переменной используются следующиефункции:
Chr(Cod) – символ по коду (Chr(232) символ “и”, Chr(10)+Chr(13) конец строки и перевод каретки);
ASC(Stroka) – код первого символа в строке (для символа “и” - 232;
3.Для работы со строковой переменной используются следующие свойства и методы:
Stroka.Length – длина строки; (длина 11 символов)
Symbol= Stroka.Substring(Nachalo, Dlina) – вырезка из переменной; (Simvol= Stroka.Substring(2,5) – “форма”). Нумерация символов начинается с 0.
Stroka.Substring(Nachalo, Dlina)= Symbol – замена части символов; (Stroka.Substring(4,1)= “л” – “инфолматика”)
2 этап Работа с готовыми программами
Пример программы:
Количество символов
Public Class frmSymbol
Private Sub btnExit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnExit.Click
End
End Sub
Private Sub btnRun_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnRun.Click
Dim k, i As Integer, S, Text As String
k = 0
S = txtSymbol.Text
Text = rtbText.Text
For i = 0 To Text.Length - 1
If Text.Substring(i, 1) = S Then k = k + 1
Next i
lblResult.Text = "K= " + Convert.ToString(k)
End Sub
End Class
3 этап Составление программ
Самостоятельное составление программ и решение задач.
17. Методика введение понятия о табличной величине и способах обработки табличной информации
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}
Индекс |
0 |
1 |
2 |
3 |
4 |
5 |
6 |
7 |
8 |
9 |
Значение |
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)
3 этап Составление программ
Самостоятельное составление программ и решение задач.
18. Методика введение понятия о методах сортировки табличной информации
1 этап Подготовительный
Существуют различные методы сортировки. Будем рассматривать каждый из методов на примере задачи сортировки по возрастанию массива из N целых чисел.
СОРТИРОВКА ОБМЕНОМ (методом "пузырька")
Идея метода заключается в том, что последовательно сравниваются пары соседних элементов массива. Если они располагаются не в том порядке, то совершаем перестановку, меняя местами пару соседних элементов. После одного такого прохода на последнем месте номер N окажется максимальный элемент ("всплыл" первый "пузырек"). Следующий проход должен рассматривать элементы до предпоследнего и так далее. Всего требуется N-1 проход. Вычислительная сложность сортировки обменом O(N*N).
СОРТИРОВКА ВЫБОРОМ
Идея метода заключается в том, что находится максимальный элемент массива и меняется местами с последним элементом (с номером N). Затем, максимум ищется среди элементов с первого до предпоследнего и ставится на N-1 место, и так далее. Необходимо найти N-1 максимум. Можно искать не максимум, а минимум и ставить его на первое, второе и так далее место. Также применяют модификацию этого метода с одновременным поиском максимума и минимума. В этом случае количество шагов внешнего цикла N div 2.
Вычислительная сложность сортировки выбором - величина порядка N*N, что обычно записывают как O(N*N). Это объясняется тем, что количество сравнений при поиске первого максимума равно N-1. Затем N-2, N-3, и так далее до 1, итого: N*(N-1)/2.
2 этап Работа с готовыми программами
Обработка массивов
1.Сортировка методом «пузырька»
Private Sub SortPuz(ByVal p As Long, ByVal M() As Integer)
Dim i As Long, j As Long, temp As Integer
For i = 0 To p - 1
For j = 0 To p - i
If M(j) > M(j + 1) Then
temp = M(j)
M(j) = M(j + 1)
M(j + 1) = temp
End If
Next j
Next i
End Sub
2.Сортировка выбором
Private Sub SortVibor(ByVal p As Long, ByVal M() As Integer)
Dim i As Long, Max As Long, temp As Integer
For i = 0 To p - 1
Max = IndMax(p - i + 1, M)
temp = M(Max)
M(Max) = M(p - i + 1)
M(p - i + 1) = temp
Next i
End Sub
Private Function IndMax(ByVal p As Long, ByVal M() As Integer) As Long
Dim i As Long
IndMax = 0
For i = 1 To p
If M(i) > M(IndMax) Then IndMax = i
Next i
End Function
3 этап Составление программ
Самостоятельное составление программ и решение задач.