Добавить материал и получить бесплатное свидетельство о публикации в СМИ
Эл. №ФС77-60625 от 20.01.2015
Инфоурок / Информатика / Конспекты / Конспект урока Двумерные массивы на языке Visual Basic (VB)

Конспект урока Двумерные массивы на языке Visual Basic (VB)

  • Информатика

Поделитесь материалом с коллегами:

Тема урока Двумерные массивы на языке Visual Basic (VB)

Тип урока: урок изучения нового материала.

Цели урока:

  1. формирование у учащихся понятия двумерного массива, элементов двумерного массива и правил работы с двумерным массивом;

  2. стимулирование интереса учащихся к данной теме и предмету в целом;

  3. воспитание у учащихся самостоятельности,

  4. развитие мышления, умения применять полученные знания при решении задач различной направленности.

Задачи урока:

Воспитательная - развитие познавательного интереса, логического мышления.

Учебная - совершенствование навыков составления программ на языке программирования Basic для ЭВМ;

Развивающая - развитие алгоритмического мышления, памяти, внимательности.

Оборудование: ПК

Программное обеспечение: средство мультимедиа PowerPoint, язык программирования (VB)

ПЛАН УРОКА

  1. Организационный момент.

  2. Объяснение нового материала

  3. Закрепление пройденной темы. Решение задач.

  4. Подведение итогов урока.

ХОД УРОКА

1. Организационный момент.

Приветствие учащихся, ознакомление учащихся с целями и задачами урока.

Вопросы:

  1. Что такое одномерный массив?

  2. Как осуществляется обращение к элементам одномерного массива?

  3. Как осуществляется ввод и вывод элементов одномерного массива?


2 Объяснение нового материала

В двумерном массиве каждый элемент фиксируется номером строки и столбца, на пересечении которых он расположен.

Положение элемента в двумерном массиве определяется двумя индексами. Они разделяются запятой.

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

При появлении отрицательного значения индекса вызывает сообщение об ошибке.

Описание двумерного массива

Для определения двумерного массива в программе используется тот же оператор DIM, только при определении размера необходимо указать два индекса - количество строк и столбцов:

Dim Name(m,n) as тип.

Обращение к элементам массива

При обращении к элементу двумерного массива необходимо указывать два индекса: номер строки и номер столбца.

57

34

56

21

44

88

90

11

91

45

88

92

0

37

73

67

85

16

42

30

22

65

92

49

64

27

82

19

62

37

99

10

35

21

11

Элемент двумерного массива А(3,6) равен 30

Ввод, вывод элементов двумерного массива

При заполнении и выводе на экран элементов двумерных массивов необходимо использовать вложенные циклы. Внешний цикл будет определять номер строки, а внутренний номер столбца.

For i=a to b

For k=c to d

:

Next k

Next i

3 Программа заполнения Двумерного массива

Sub ДвумерныеМассивы()

Dim a(4,5) As Long, i As Long, j As Long

Randomize Timer 'генерация ряда случайных величин

Debug.Print "Массив а=";

Debug.Print

For i = 1 To 4

For j = 1 To 5

a(i, j) = Rnd * 89+10

Debug.Print a(i, j);

Next j

Debug.Print 'перейти на следующую строку

Next i

End Sub

Самостоятельно Решим задачу:Заполнить Двумерный массив .Размер 5.5.На диагонале элементы равны 1,осталные элементы =0.

Option Base 1

Sub ДвумерныеМассивы()

Dim a(5, 5) As Long, i As Long, j As Long

Randomize Timer 'генерация ряда случайных величин

Debug.Print "Массив а=";

Debug.Print

For i = 1 To 5

For j = 1 To 5

If i = j Then a(i, j) = 1 Else a(i, j) = 0

Debug.Print a(i, j);

Next j

Debug.Print 'перейти на следующую строку

Next i

End Sub


Option Base 1

Sub ДвумМасПолМинМах()

Dim a(4, 5) As Long, i As Long, j As Long, min As Long, max As Long

Randomize Timer 'генерация ряда случайных величин

Debug.Print "Массив а=";

Debug.Print

For i = 1 To 4

For j = 1 To 5

a(i, j) = Rnd * 89 + 10

Debug.Print a(i, j);

Next j

Debug.Print 'перейти на следующую строку

Next i

min = a(1, 1): max = a(1, 1)

For i = 1 To 4

For j = 1 To 5

If a(i, j) < min Then min = a(i, j)

If a(i, j) > max Then max = a(i, j)

Next j

Next i

Debug.Print " min="; min; " max="; max

End Sub

Выберите курс повышения квалификации со скидкой 50%:

Краткое описание документа:

Тема урока   Двумерные массивы на языке  Visual Basic (VB)

Тип урока: урок изучения нового материала.

Цели урока:

1.      формирование у учащихся понятия двумерного массива, элементов двумерного массива и правил работы с двумерным массивом;

2.      стимулирование интереса учащихся к данной теме и предмету в целом;

3.      воспитание у учащихся самостоятельности,

4.      развитие мышления, умения применять полученные знания при решении задач различной направленности.

Задачи урока:

Воспитательная - развитие познавательного интереса, логического мышления.

Учебная - совершенствование навыков составления программ на языке программирования  Basic для ЭВМ;

Развивающая - развитие алгоритмического мышления, памяти, внимательности.

Оборудование: ПК

Программное обеспечение: средство мультимедиа PowerPoint, язык программирования (VB)

ПЛАН УРОКА

1.      Организационный момент.

2.      Объяснение нового материала

3.      Закрепление пройденной темы. Решение задач.

4.      Подведение итогов урока.

ХОД УРОКА

1. Организационный момент.

Приветствие учащихся, ознакомление учащихся с целями и задачами урока.

Вопросы:

1.      Что такое одномерный массив?

2.      Как осуществляется обращение к элементам одномерного массива?

3.      Как осуществляется ввод и вывод элементов одномерного массива?

 

2 Объяснение нового материала

В двумерном массиве каждый элемент фиксируется номером строки и столбца, на пересечении которых он расположен.

Положение элемента в двумерном массиве определяется двумя индексами. Они разделяются запятой.

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

При появлении отрицательного значения индекса вызывает сообщение об ошибке.

Описание двумерного массива

Для определения двумерного массива в программе используется тот же оператор DIM, только при определении размера необходимо указать два индекса - количество строк и столбцов:

Dim Name(m,n)   as тип.

Обращение к элементам массива

При обращении к элементу двумерного массива необходимо указывать два индекса: номер строки и номер столбца.

57

34

56

21

44

88

90

11

91

45

88

92

0

37

73

67

85

16

42

30

22

65

92

49

64

27

82

19

62

37

99

10

35

21

11

Элемент двумерного массива А(3,6) равен 30

Ввод, вывод элементов двумерного массива

При заполнении и выводе на экран элементов двумерных массивов необходимо использовать вложенные циклы. Внешний цикл будет определять номер строки, а внутренний номер столбца.

For i=a to b

For k=c to d

:

Next k

Next i

3 Программа заполнения Двумерного массива

Sub ДвумерныеМассивы()

Dim a(4,5) As Long, i As Long, j As Long

RandomizeTimer 'генерация ряда случайных величин

 Debug.Print "Массив а=";

 Debug.Print

  For i = 1 To 4

    For j = 1 To 5

      a(i, j) = Rnd * 89+10

      Debug.Print a(i, j);

    Nextj

     Debug.Print 'перейти на следующую строку

  Nexti

EndSub

Самостоятельно Решим задачу:Заполнить Двумерный массив .Размер  5.5.На диагонале элементы равны 1,осталные элементы =0.

 Option Base 1

Sub ДвумерныеМассивы()

Dim a(5, 5) As Long, i As Long, j As Long

Randomize Timer 'генерация ряда случайных величин

 Debug.Print "Массива=";

 Debug.Print

  For i = 1 To 5

    For j = 1 To 5

     If i = j Then a(i, j) = 1 Else a(i, j) = 0

      Debug.Print a(i, j);

    Next j

     Debug.Print 'перейти на следующую строку

  Next i

End Sub

 

Option Base 1

Sub ДвумМасПолМинМах()

Dim a(4, 5) As Long, i As Long, j As Long, min As Long, max As Long

Randomize Timer 'генерация ряда случайных величин

 Debug.Print "Массива=";

 Debug.Print

  For i = 1 To 4

    For j = 1 To 5

      a(i, j) = Rnd * 89 + 10

      Debug.Print a(i, j);

    Next j

     Debug.Print 'перейти на следующую строку

  Next i

  min = a(1, 1): max = a(1, 1)

  For i = 1 To 4

    For j = 1 To 5

   If a(i, j) < min Then min = a(i, j)

   If a(i, j) > max Then max = a(i, j)

     Next j

     Next i

  Debug.Print " min="; min; " max="; max

End Sub

Автор
Дата добавления 02.06.2015
Раздел Информатика
Подраздел Конспекты
Просмотров462
Номер материала 553266
Получить свидетельство о публикации
Похожие материалы

Включите уведомления прямо сейчас и мы сразу сообщим Вам о важных новостях. Не волнуйтесь, мы будем отправлять только самое главное.
Специальное предложение
Вверх