Открытый урок

МОУ

«Средняя общеобразовательная школа №34

с углубленным изучением отдельных предметов»

ОТКРЫТЫЙ УРОК

ПРОГРАММИРОВАНИЕ НА ЯЗЫКЕ VISUAL BASIC 6.0.
РЕШЕНИЕ ЗАДАЧ ГРАФИЧЕСКИМИ МЕТОДАМИ.

(11 класс «Г»)

Учитель информатики и ИКТ:

г. Старый Оскол

2г.

Цели урока

Обучающие

Закрепить навыки построения графиков функций.

Совершенствование умений и навыков в использовании графических методов в среде программирования Visual Basic 6.0

Развивающие

Формирование исследовательских навыков в учебной деятельности.

Воспитательные

Формирование логического мышления, памяти, культуры умственного труда.

Ход урока

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

Объявление темы и целей урока.

2. Актуализация знаний:

Актуализация опорных знаний по графическим методам.

· Назовите известные вам графические методы.

· Какими способами можно задать цвет построения.

· Какие свойства объектов используются при работе с графикой.

Выполнение практической работы. Построить на форме координатную плоскость с параметрами по осям OX и OY: [-10;10]. Выполнить подпись значений на осях координат с шагом 1.

3. Формирование новых понятий и способов деятельности:

Построение графика функции y(x)=x3- 4x. Демонстрация с помощью интерактивной доски и обсуждение построения.

4. Применение полученных знаний:

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

Дополнительное задание

Требовалось написать программу, изображающую на форме n кругов разного цвета с центром в начале координат. Число кругов не должно превосходить числа 7, если условие не выполняется вывести «no» Программист допустил ошибку. Найдите и исправьте её, чтобы программа работала верно.

Private Sub Command1_Click()

Cls

Scale (-20, 20)-(20, -20)

Line (-20, 0)-(20, 0)

Line (0, -20)-(0, 20)

DrawWidth = 5

n = Val(InputBox("Введите количество кругов", «Количество"))

If n <= 7 And n > 0 Then

For x = 1 To n

FillColor = QBColor(x + 7)

Circle (0, 0), x, QBColor(x + 7)

Next x

Else

PSet (10, 10), vbWhite

Print "no"

End If

End Sub

Решение

Cls

Scale (-20, 20)-(20, -20)

Line (-20, 0)-(20, 0)

Line (0, -20)-(0, 20)

DrawWidth = 5

n = Val(InputBox("Введите количество кругов", «Количество"))

If n <= 7 And n > 0 Then

For x = n To 1 Step -1

FillColor = QBColor(x + 7)

Circle (0, 0), x, QBColor(x + 7)

Next x

Else

PSet (10, 10), vbWhite

Print "no"

End If

5. Обобщение. Задание на дом.

Подведение итога урока. Выставление оценок.

Задание на дом. Задать движение точки по окружности.

Практическая работа

Построение графиков математических функций графическими методами в среде программирования Visual Basic 6.0

Цели работы

Научиться применять знания и умения по программированию при построение графиков математических функций.

Задание

Для построения графиков функций используйте координатную плоскость. Отобразите оси на форме и пронумеруйте с шагом 1. ([-10;10])

Разработайте программу для построения графиков ниже указанных функций с отображением на форме. Покажите движение точки по траектории графика.

№ варианта	y(х)
1.	y=2х³ - х
2.	y=х4 - 4х2
3.	y=6х4 - х3
4.	y=х³ - 9х
5.	y=2х2- 5х4
6.	y=х³ - 9х
7.	y=х2- 4х4
8.	y=х³ +6х2
9.	y= 2х2- х4
10.	y=х³ + 3х
11.	y=-х³ - 4х
12.	y=2х2- 5х4
13.	y=х³ - 2х
14.	y=х2+ 4х4

Дополнительное задание

Требовалось написать программу, изображающую на форме n кругов разного цвета с центром в начале координат. Число кругов не должно превосходить числа 7, если условие не выполняется вывести «no» Программист допустил ошибку. Найдите и исправьте её, чтобы программа работала верно.

Private Sub Command1_Click()

Cls

Scale (-20, 20)-(20, -20)

Line (-20, 0)-(20, 0)

Line (0, -20)-(0, 20)

DrawWidth = 5

n = Val(InputBox("Введите количество кругов", «Количество"))

If n <= 7 And n > 0 Then

For x = 1 To n

FillColor = QBColor(x + 7)

Circle (0, 0), x, QBColor(x + 7)

Next x

Else

PSet (10, 10), vbWhite

Print "no"

End If

End Sub