Главная / Информатика / Конспект урока «Построение и исследование информационных моделей» 11 класс

Конспект урока «Построение и исследование информационных моделей» 11 класс

Документы в архиве:

31.5 КБ avtor.doc
614 КБ Построение и исследование информационных моделей.doc
17 КБ Биологическая модель.suo
16.9 КБ Form1.Designer.vb
5.68 КБ Form1.resx
3.63 КБ Form1.vb
2.76 КБ Resources.Designer.vb
5.48 КБ Resources.resx
3.03 КБ Settings.Designer.vb
44 КБ Биологическая модель.exe
77.5 КБ Биологическая модель.pdb
5.5 КБ Биологическая модель.vshost.exe
7.5 КБ My Project.Resources.Designer.vb.dll
44 КБ Биологическая модель.exe
77.5 КБ Биологическая модель.pdb
6.16 КБ Биологическая модель.vbproj.FileListAbsolute.txt
4.45 КБ Биологическая модель.vbproj
155.34 КБ Листинг (Excel).docx
40.49 КБ Листинг.docx
17.7 КБ Численность популяций.xlsx
18 КБ Графическое решение уравнения.suo
21.5 КБ Графическое решение уравнения.xls
6.17 КБ Form1.Designer.vb
5.68 КБ Form1.resx
2 КБ Form1.vb
2.78 КБ Resources.Designer.vb
5.48 КБ Resources.resx
3.06 КБ Settings.Designer.vb
36 КБ Графическое решение уравнения.exe
45.5 КБ Графическое решение уравнения.pdb
5.5 КБ Графическое решение уравнения.vshost.exe
7.5 КБ My Project.Resources.Designer.vb.dll
36 КБ Графическое решение уравнения.exe
45.5 КБ Графическое решение уравнения.pdb
7.87 КБ Графическое решение уравнения.vbproj.FileListAbsolute.txt
4.54 КБ Графическое решение уравнения.vbproj
140 КБ Листинг (Excel).doc
47.5 КБ Листинг 2.doc
35 КБ Листинг.doc
18 КБ Компьютерная модель движения тела.suo
13.38 КБ Компьютерная модель движения тела.xlsx
8.31 КБ Form1.Designer.vb
5.68 КБ Form1.resx
2.17 КБ Form1.vb
2.78 КБ Resources.Designer.vb
5.48 КБ Resources.resx
3.07 КБ Settings.Designer.vb
36 КБ Компьютерная модель движения тела.exe
43.5 КБ Компьютерная модель движения тела.pdb
5.5 КБ Компьютерная модель движения тела.vshost.exe
7.5 КБ My Project.Resources.Designer.vb.dll
36 КБ Компьютерная модель движения тела.exe
43.5 КБ Компьютерная модель движения тела.pdb
7.57 КБ Компьютерная модель движения тела.vbproj.FileListAbsolute.txt
4.57 КБ Компьютерная модель движения тела.vbproj
170 КБ Листинг (Excel).doc
126.5 КБ Листинг.doc

Название документа avtor.doc

Автор: Саликов Игорь Валентинович.

Должность: учитель информатики.

Категория: 1

Образовательное учреждение: ГБОУ СОШ №2047, г. Москва

E-mail: salikov_igor@mail.ru


Тема урока: Построение и исследование информационных моделей

Предмет: Информатика и ИКТ.

Класс: 11 (профильный).

Ключевые слова: информатика, обобщающий урок, объектно-ориентированное программирование, профильное обучение, задания на компьютере, работа в среде программирования Microsoft Visual Basic 2005, в приложениях Microsoft Office Excel 2007 и Microsoft Office PowerPoint 2007.

Оборудование: компьютерный класс, программы Microsoft Visual Basic 2005, Microsoft Office Excel 2007 и Microsoft Office PowerPoint 2007, задания к уроку в электронном виде (см. приложение).

Тип урока: обобщающий и игровой.

Формы работы: фронтальная, коллективная, индивидуальная на компьютере.

Аннотация: количество участников в команде: 3 – 4 (по количеству компьютеров). Время на объяснение условий соревнования команд: 3 – 5 мин., на презентацию заранее подготовленной формализованной модели: 5 мин для каждой из 3-х команд, на изготовление компьютерных моделей: 30 – 40 мин. (команды работают единовременно), на представление результатов своих исследований: 5 мин. для каждой из 3-х команд, на подведение итогов командных соревнований: 3 – 5 мин., на организационные моменты резервировано 10 мин.


Название документа Построение и исследование информационных моделей.doc

Тема урока: «Построение и исследование информационных моделей».

Предмет: Информатики и ИКТ.

Класс: 11.

Ключевые слова: информатика, обобщающий урок, объектно-ориентированное программирование, профильное обучение, задания на компьютере, работа в среде программирования Microsoft Visual Basic 2005, в приложениях Microsoft Office Excel 2007 и Microsoft Office PowerPoint 2007.

Оборудование: компьютерный класс, программы Microsoft Visual Basic 2005, Microsoft Office Excel 2007 и Microsoft Office PowerPoint 2007, задания к уроку в электронном виде (см. приложение).

Тип урока: обобщающий и игровой.

Формы работы: фронтальная, коллективная, индивидуальная на компьютере.

Аннотация: количество участников в команде: 3 – 4 (по количеству компьютеров). Время на объяснение условий соревнования команд: 3 – 5 мин., на презентацию заранее подготовленной формализованной модели: 5 мин для каждой из 3-х команд, на изготовление компьютерных моделей: 30 – 40 мин. (команды работают единовременно), на представление результатов своих исследований: 5 мин. для каждой из 3-х команд, на подведение итогов командных соревнований: 3 – 5 мин., на организационные моменты резервировано 10 мин.

Цель урока: Обобщение знаний, умений и навыков обучающихся об основных этапах разработки и исследования моделей на компьютере.

Задачи:

Учащиеся должны продемонстрировать возможности построения и исследования информационных моделей с использованием технологий, предоставляемых Microsoft Visual Basic 2005, Microsoft Office Excel 2007 и изготовить презентацию формализации модели с использованием Microsoft Office PowerPoint 2007.

Ход урока:

Класс разбивается на 3 команды.

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


Вид работы

I команда

II команда

III команда

Формализация модели

(презентация)




Компьютерная модель

(Visual Basic 2005)




Компьютерная модель

(Microsoft Excel 2007)





Победителем является команда, набравшая наибольшее количество баллов.

Представители каждой команды должны:

  1. Изготовить и представить презентацию построения формальной модели.

  2. Изготовить и представить компьютерную модель, разработанную с использованием Microsoft Visual Basic 2005.

  3. Изготовить и представить компьютерную модель, разработанную с использованием Microsoft Office Excel 2007.

Задания для 1-ой команды :

  1. Представить перед жюри заранее подготовленную с использованием Microsoft Office PowerPoint 2007 формализацию построения и исследования физической модели движения тела, брошенного под углом к горизонту.

  2. Изготовить компьютерную модель с использованием Microsoft Visual Basic 2005:hello_html_46ce9ad7.png

hello_html_m31dfb6ff.gif

hello_html_m4ab186e3.gif

hello_html_m76b2e41f.gif

hello_html_m70dd0a2.gif



hello_html_506fe8de.gif

hello_html_15662136.gif

hello_html_1c445040.gif

hello_html_mc7292de.gif

hello_html_3867b0e2.gif

hello_html_m130f2597.gif

hello_html_7a051a10.gifhello_html_45d172fb.gif



Public Class Form1

Const G As Single = 9.81

Const Pi As Single = 3.14

Dim Vo, A, S, L, H As Single

Dim Graph1 As Graphics

Dim Pen1 As New Pen(Color.Black, 4)

Dim drawbrush As New SolidBrush(Color.Black)

Dim drawFont As New Font("Arial", 10)

Dim X, Y, T As Single


Private Sub Button1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button1.Click

'Ввод начальных значений

Vo = Val(TextBox1.Text)

A = Val(TextBox2.Text)

S = Val(TextBox3.Text)

H = Val(TextBox4.Text)

'Попадание в стену

L = S * Math.Tan(A * Pi / 180) - (G * S ^ 2) / (2 * Vo ^ 2 * Math.Cos(A * Pi / 180) ^ 2)

Select Case L

Case Is < 0

Label10.Text = "Недолет"

Case Is > H

Label10.Text = "Перелет"

Case Else

Label10.Text = "Попадание"

End Select

End Sub


Private Sub Button2_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button2.Click

Graph1 = Me.PictureBox1.CreateGraphics()

Graph1.Clear(Color.White)


' Печать шкал математической системы координат в компьютерной системе координат

For X = 0 To 400 Step 50

Graph1.DrawString(X / 10, drawFont, drawbrush, X, 200)

Next

For Y = 20 To 220 Step 50

Graph1.DrawString((Y - 20) / 10, drawFont, drawbrush, 0, 220 - Y)

Next

'Преобразование компьютерной системы координат в математическую систему координат

Graph1.ScaleTransform(1, -1) 'Поворот оси Y

Graph1.TranslateTransform(0, -200) 'Сдвиг по оси Y

'Рисование осей математической системы координат

Graph1.DrawLine(Pen1, 0, 0, 400, 0) 'Ось Х

Graph1.DrawLine(Pen1, 0, -20, 0, 200) 'Ось Y

'Мишень

Graph1.DrawLine(Pen1, S * 10, 0, S * 10, H * 10)

'Построение траектории движения мячика

For T = 0 To 10 Step 0.1

Y = Vo * Math.Sin(A * Pi / 180) * T - G * T * T / 2

X = Vo * Math.Cos(A * Pi / 180) * T

Graph1.DrawEllipse(Pen1, X * 10, Y * 10, 1, 1)

Next


End Sub

End Class


  1. Изготовить компьютерную модель с использованием Microsoft Office Excel 2007:

hello_html_m49ca3b69.png






















Задания для 2-ой команды :

  1. Представить перед жюри заранее подготовленную с использованием Microsoft Office PowerPoint 2007 формализацию построения и исследования модели приближенного решения уравнения.

  2. Изготовить компьютерную модель с использованием Microsoft Visual Basic 2005:


hello_html_44d92725.pnghello_html_156d98fc.gifhello_html_mb113793.gifhello_html_m32538b9.gifhello_html_m4ff910e4.gifhello_html_798d8745.gifhello_html_d2d8750.gifhello_html_802ed9f.gif



Public Class Form1

Dim Graph1 As Graphics

Dim Pen1 As New Pen(Color.Black, 2)

Dim drawBrush As New SolidBrush(Color.Black)

Dim drawFont As New Font("Arial", 10)

Dim X, Y As Single

Dim A, C, B, P As Single


Private Sub Button1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button1.Click

Graph1 = Me.PictureBox1.CreateGraphics()

Graph1.Clear(Color.White)

'Печать шкал математической системы координат

For X = -150 To 150 Step 50

Graph1.DrawString(X / 100, drawFont, drawBrush, X + 150, 80)

Next

For Y = 0 To 200 Step 50

Graph1.DrawString((Y - 100) / 100, drawFont, drawBrush, 150, 180 - Y)

Next

'Преобразование компьютерной системы координат в математическую ситстему координат

Graph1.ScaleTransform(1, -1) 'Поворот оси Y

Graph1.TranslateTransform(150, -100) 'Сдвиг по осям X и Y

'Рисование осей математической системы координат

Graph1.DrawLine(Pen1, -150, 0, 300, 0) 'Ось Х

Graph1.DrawLine(Pen1, 0, -100, 0, 100) 'Ось Y

For X = -150 To 150 Step 50 'Засечки на оси Х

Graph1.DrawLine(Pen1, X, -5, X, 5)

Next

For X = -150 To 150 Step 50 'Засечки на оси Y

Graph1.DrawLine(Pen1, -5, Y, 5, Y)

Next

'График функции

For X = -1.5 To 1.5 Step 0.01

Y = X ^ 3 - Math.Cos(X)

Graph1.DrawEllipse(Pen1, X * 100, Y * 100, 1, 1)

Next


End Sub


Private Sub Button2_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button2.Click

A = Val(TextBox1.Text)

B = Val(TextBox2.Text)

P = Val(TextBox3.Text)

Do

C = (A + B) / 2

If (A ^ 3 - Math.Cos(A)) * (C ^ 3 - Math.Cos(C)) < 0 Then

B = C

Else

A = C


End If

Loop While (B - A) / 2 > P

TextBox4.Text = (A + B) / 2

End Sub

End Class


  1. Изготовить компьютерную модель с использованием Microsoft Office Excel 2007:

hello_html_m25f826e1.png

























Задания для 3-ей команды :

  1. Представить перед жюри заранее подготовленную с использованием Microsoft Office PowerPoint 2007 формализацию построение и исследование биологической модели развития популяций.

  2. Изготовить компьютерную модель с использованием Microsoft Visual Basic 2005:


hello_html_m378efebe.png



Public Class Form1

Dim Graph1 As Graphics

Dim Pen1 As New Pen(Color.Black, 2)

Dim Pen2 As New Pen(Color.Green, 2)

Dim Pen3 As New Pen(Color.Blue, 2)

Dim Pen4 As New Pen(Color.Brown, 2)

Dim Pen5 As New Pen(Color.Red, 2)

Dim drawBrush As New SolidBrush(Color.Black)

Dim drawFont As New Font("Arial", 10)

Dim X, Y As Integer, N, I, A, B, C, D, G, F, X1, X2, X3, X4, Y1 As Single


Private Sub Button2_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button2.Click

A = Val(TextBoxA.Text)

X1 = Val(TextBoxX.Text)

N = Val(TextBoxN.Text)

For I = 1 To N

X1 = A * X1

Next

Label1.Text = Int(X1)

End Sub


Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click

A = Val(TextBoxA.Text)

B = Val(TextBoxB.Text)

X2 = Val(TextBoxX.Text)

N = Val(TextBoxN.Text)

For I = 1 To N

X2 = (A - B * X2) * X2

Next

Label2.Text = Int(X2)

End Sub


Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click

A = Val(TextBoxA.Text)

B = Val(TextBoxB.Text)

C = Val(TextBoxC.Text)

X3 = Val(TextBoxX.Text)

N = Val(TextBoxN.Text)

For I = 1 To N

X3 = (A - B * X3) * X3 - C

Next

Label3.Text = Int(X3)

End Sub


Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click

A = Val(TextBoxA.Text)

B = Val(TextBoxB.Text)

C = Val(TextBoxC.Text)

D = Val(TextBoxD.Text)

F = Val(TextBoxF.Text)

G = Val(TextBoxG.Text)

X4 = Val(TextBoxX.Text)

Y1 = Val(TextBoxY.Text)

N = Val(TextBoxN.Text)

For I = 1 To N

X4 = (A - B * X4) * X4 - C - F * X4 * Y1

Y1 = D * Y1 + G * X4 * Y1

Next

Label4.Text = Int(X4)

Label5.Text = Int(Y1)

End Sub


Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

Graph1 = Me.PictureBox1.CreateGraphics

Graph1.Clear(Color.White)

For X = 20 To 320 Step 50

Graph1.DrawString((X - 20), drawFont, drawBrush, X - 20, 200)

Next

For Y = 0 To 200 Step 40

Graph1.DrawString(Y, drawFont, drawBrush, 0, 200 - Y)

Next

Graph1.ScaleTransform(1, -1)

Graph1.TranslateTransform(20, -200)

Graph1.DrawLine(Pen1, 0, 0, 300, 0)

Graph1.DrawLine(Pen1, 0, 0, 0, 200)

For X = 0 To 300 Step 50

Graph1.DrawLine(Pen1, X, -5, X, 5)

Next

For Y = 0 To 200 Step 40

Graph1.DrawLine(Pen1, -5, Y, 5, Y)

Next


X1 = Val(TextBoxX.Text)

For I = 1 To 100

Graph1.DrawEllipse(Pen1, I, X1, 1, 1)

X1 = A * X1

Next


X2 = Val(TextBoxX.Text)

For I = 1 To N

Graph1.DrawEllipse(Pen2, I, X2, 1, 1)

X2 = (A - B * X2) * X2

Next


X3 = Val(TextBoxX.Text)

For I = 1 To N

Graph1.DrawEllipse(Pen3, I, X3, 1, 1)

X3 = (A - B * X3) * X3 - C

Next


X4 = Val(TextBoxX.Text)

Y1 = Val(TextBoxY.Text)

For I = 1 To N

X4 = (A - B * X4) * X4 - C - F * X4 * Y1

Y1 = D * Y1 + G * X4 * Y1

Graph1.DrawEllipse(Pen4, I, X4, 1, 1)

Graph1.DrawEllipse(Pen5, I, Y1, 1, 1)

Next


End Sub

End Class


  1. Изготовить компьютерную модель с использованием Microsoft Office Excel 2007:

hello_html_m531a823a.png

Название документа Биологическая модель.vbproj.FileListAbsolute.txt

D:\Игорь Валентинович\Учебный материал\9 класс\VB2005\1.5 Биологическая модель\Биологическая модель\Биологическая модель\bin\Debug\Биологическая модель.exe D:\Игорь Валентинович\Учебный материал\9 класс\VB2005\1.5 Биологическая модель\Биологическая модель\Биологическая модель\bin\Debug\Биологическая модель.pdb D:\Игорь Валентинович\Учебный материал\9 класс\VB2005\1.5 Биологическая модель\Биологическая модель\Биологическая модель\bin\Debug\Биологическая модель.xml D:\Игорь Валентинович\Учебный материал\9 класс\VB2005\1.5 Биологическая модель\Биологическая модель\Биологическая модель\obj\Debug\ResolveAssemblyReference.cache D:\Игорь Валентинович\Учебный материал\9 класс\VB2005\1.5 Биологическая модель\Биологическая модель\Биологическая модель\obj\Debug\Биологическая_модель.Form1.resources D:\Игорь Валентинович\Учебный материал\9 класс\VB2005\1.5 Биологическая модель\Биологическая модель\Биологическая модель\obj\Debug\Биологическая_модель.Resources.resources D:\Игорь Валентинович\Учебный материал\9 класс\VB2005\1.5 Биологическая модель\Биологическая модель\Биологическая модель\obj\Debug\Биологическая модель.vbproj.GenerateResource.Cache D:\Игорь Валентинович\Учебный материал\9 класс\VB2005\1.5 Биологическая модель\Биологическая модель\Биологическая модель\obj\Debug\Биологическая модель.exe D:\Игорь Валентинович\Учебный материал\9 класс\VB2005\1.5 Биологическая модель\Биологическая модель\Биологическая модель\obj\Debug\Биологическая модель.xml D:\Игорь Валентинович\Учебный материал\9 класс\VB2005\1.5 Биологическая модель\Биологическая модель\Биологическая модель\obj\Debug\Биологическая модель.pdb C:\Users\Игорь\Desktop\Открытые уроки\Открытый урок Построение и исследование информационных моделей, 11 класс\primer\Приложение\Биологическая модель\Биологическая модель\obj\Debug\Биологическая модель.exe C:\Users\Игорь\Desktop\Открытые уроки\Открытый урок Построение и исследование информационных моделей, 11 класс\primer\Приложение\Биологическая модель\Биологическая модель\obj\Debug\Биологическая модель.xml C:\Users\Игорь\Desktop\Открытые уроки\Открытый урок Построение и исследование информационных моделей, 11 класс\primer\Приложение\Биологическая модель\Биологическая модель\obj\Debug\Биологическая модель.pdb C:\Users\Игорь\Desktop\Открытые уроки\Открытый урок Построение и исследование информационных моделей, 11 класс\primer\Приложение\Биологическая модель\Биологическая модель\bin\Debug\Биологическая модель.exe C:\Users\Игорь\Desktop\Открытые уроки\Открытый урок Построение и исследование информационных моделей, 11 класс\primer\Приложение\Биологическая модель\Биологическая модель\bin\Debug\Биологическая модель.pdb C:\Users\Игорь\Desktop\Открытые уроки\Открытый урок Построение и исследование информационных моделей, 11 класс\primer\Приложение\Биологическая модель\Биологическая модель\bin\Debug\Биологическая модель.xml C:\Users\Игорь\Desktop\Открытые уроки\Открытый урок Построение и исследование информационных моделей, 11 класс\primer\Приложение\Биологическая модель\Биологическая модель\obj\Debug\ResolveAssemblyReference.cache C:\Users\Игорь\Desktop\Открытые уроки\Открытый урок Построение и исследование информационных моделей, 11 класс\primer\Приложение\Биологическая модель\Биологическая модель\obj\Debug\Биологическая_модель.Form1.resources C:\Users\Игорь\Desktop\Открытые уроки\Открытый урок Построение и исследование информационных моделей, 11 класс\primer\Приложение\Биологическая модель\Биологическая модель\obj\Debug\Биологическая_модель.Resources.resources C:\Users\Игорь\Desktop\Открытые уроки\Открытый урок Построение и исследование информационных моделей, 11 класс\primer\Приложение\Биологическая модель\Биологическая модель\obj\Debug\Биологическая модель.vbproj.GenerateResource.Cache

Название документа Листинг (Excel).docx

hello_html_m531a823a.png

Название документа Листинг.docx

hello_html_m378efebe.png

Public Class Form1

Dim Graph1 As Graphics

Dim Pen1 As New Pen(Color.Black, 2)

Dim Pen2 As New Pen(Color.Green, 2)

Dim Pen3 As New Pen(Color.Blue, 2)

Dim Pen4 As New Pen(Color.Brown, 2)

Dim Pen5 As New Pen(Color.Red, 2)

Dim drawBrush As New SolidBrush(Color.Black)

Dim drawFont As New Font("Arial", 10)

Dim X, Y As Integer, N, I, A, B, C, D, G, F, X1, X2, X3, X4, Y1 As Single


Private Sub Button2_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button2.Click

A = Val(TextBoxA.Text)

X1 = Val(TextBoxX.Text)

N = Val(TextBoxN.Text)

For I = 1 To N

X1 = A * X1

Next

Label1.Text = Int(X1)

End Sub


Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click

A = Val(TextBoxA.Text)

B = Val(TextBoxB.Text)

X2 = Val(TextBoxX.Text)

N = Val(TextBoxN.Text)

For I = 1 To N

X2 = (A - B * X2) * X2

Next

Label2.Text = Int(X2)

End Sub


Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click

A = Val(TextBoxA.Text)

B = Val(TextBoxB.Text)

C = Val(TextBoxC.Text)

X3 = Val(TextBoxX.Text)

N = Val(TextBoxN.Text)

For I = 1 To N

X3 = (A - B * X3) * X3 - C

Next

Label3.Text = Int(X3)

End Sub


Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click

A = Val(TextBoxA.Text)

B = Val(TextBoxB.Text)

C = Val(TextBoxC.Text)

D = Val(TextBoxD.Text)

F = Val(TextBoxF.Text)

G = Val(TextBoxG.Text)

X4 = Val(TextBoxX.Text)

Y1 = Val(TextBoxY.Text)

N = Val(TextBoxN.Text)

For I = 1 To N

X4 = (A - B * X4) * X4 - C - F * X4 * Y1

Y1 = D * Y1 + G * X4 * Y1

Next

Label4.Text = Int(X4)

Label5.Text = Int(Y1)

End Sub


Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

Graph1 = Me.PictureBox1.CreateGraphics

Graph1.Clear(Color.White)

For X = 20 To 320 Step 50

Graph1.DrawString((X - 20), drawFont, drawBrush, X - 20, 200)

Next

For Y = 0 To 200 Step 40

Graph1.DrawString(Y, drawFont, drawBrush, 0, 200 - Y)

Next

Graph1.ScaleTransform(1, -1)

Graph1.TranslateTransform(20, -200)

Graph1.DrawLine(Pen1, 0, 0, 300, 0)

Graph1.DrawLine(Pen1, 0, 0, 0, 200)

For X = 0 To 300 Step 50

Graph1.DrawLine(Pen1, X, -5, X, 5)

Next

For Y = 0 To 200 Step 40

Graph1.DrawLine(Pen1, -5, Y, 5, Y)

Next


X1 = Val(TextBoxX.Text)

For I = 1 To 100

Graph1.DrawEllipse(Pen1, I, X1, 1, 1)

X1 = A * X1

Next


X2 = Val(TextBoxX.Text)

For I = 1 To N

Graph1.DrawEllipse(Pen2, I, X2, 1, 1)

X2 = (A - B * X2) * X2

Next


X3 = Val(TextBoxX.Text)

For I = 1 To N

Graph1.DrawEllipse(Pen3, I, X3, 1, 1)

X3 = (A - B * X3) * X3 - C

Next


X4 = Val(TextBoxX.Text)

Y1 = Val(TextBoxY.Text)

For I = 1 To N

X4 = (A - B * X4) * X4 - C - F * X4 * Y1

Y1 = D * Y1 + G * X4 * Y1

Graph1.DrawEllipse(Pen4, I, X4, 1, 1)

Graph1.DrawEllipse(Pen5, I, Y1, 1, 1)

Next


End Sub

End Class

Название документа Графическое решение уравнения.vbproj.FileListAbsolute.txt

D:\Игорь Валентинович\Учебный материал\9 класс\VB2005\3.4 Приближенное решение уравнений\Графическое решение уравнений\Графическое решение уравнения\Графическое решение уравнения\obj\Debug\Графическое решение уравнения.exe D:\Игорь Валентинович\Учебный материал\9 класс\VB2005\3.4 Приближенное решение уравнений\Графическое решение уравнений\Графическое решение уравнения\Графическое решение уравнения\obj\Debug\Графическое решение уравнения.xml D:\Игорь Валентинович\Учебный материал\9 класс\VB2005\3.4 Приближенное решение уравнений\Графическое решение уравнений\Графическое решение уравнения\Графическое решение уравнения\obj\Debug\Графическое решение уравнения.pdb D:\Игорь Валентинович\Учебный материал\9 класс\VB2005\3.4 Приближенное решение уравнений\Графическое решение уравнений\Графическое решение уравнения\Графическое решение уравнения\bin\Debug\Графическое решение уравнения.exe D:\Игорь Валентинович\Учебный материал\9 класс\VB2005\3.4 Приближенное решение уравнений\Графическое решение уравнений\Графическое решение уравнения\Графическое решение уравнения\bin\Debug\Графическое решение уравнения.pdb D:\Игорь Валентинович\Учебный материал\9 класс\VB2005\3.4 Приближенное решение уравнений\Графическое решение уравнений\Графическое решение уравнения\Графическое решение уравнения\bin\Debug\Графическое решение уравнения.xml D:\Игорь Валентинович\Учебный материал\9 класс\VB2005\3.4 Приближенное решение уравнений\Графическое решение уравнений\Графическое решение уравнения\Графическое решение уравнения\obj\Debug\ResolveAssemblyReference.cache D:\Игорь Валентинович\Учебный материал\9 класс\VB2005\3.4 Приближенное решение уравнений\Графическое решение уравнений\Графическое решение уравнения\Графическое решение уравнения\obj\Debug\Графическое_решение_уравнения.Form1.resources D:\Игорь Валентинович\Учебный материал\9 класс\VB2005\3.4 Приближенное решение уравнений\Графическое решение уравнений\Графическое решение уравнения\Графическое решение уравнения\obj\Debug\Графическое_решение_уравнения.Resources.resources D:\Игорь Валентинович\Учебный материал\9 класс\VB2005\3.4 Приближенное решение уравнений\Графическое решение уравнений\Графическое решение уравнения\Графическое решение уравнения\obj\Debug\Графическое решение уравнения.vbproj.GenerateResource.Cache C:\Users\Игорь\Desktop\Открытые уроки\Открытый урок Построение и исследование информационных моделей, 11 класс\primer\Приложение\Графическое решение уравнения\Графическое решение уравнения\obj\Debug\Графическое решение уравнения.exe C:\Users\Игорь\Desktop\Открытые уроки\Открытый урок Построение и исследование информационных моделей, 11 класс\primer\Приложение\Графическое решение уравнения\Графическое решение уравнения\obj\Debug\Графическое решение уравнения.xml C:\Users\Игорь\Desktop\Открытые уроки\Открытый урок Построение и исследование информационных моделей, 11 класс\primer\Приложение\Графическое решение уравнения\Графическое решение уравнения\obj\Debug\Графическое решение уравнения.pdb C:\Users\Игорь\Desktop\Открытые уроки\Открытый урок Построение и исследование информационных моделей, 11 класс\primer\Приложение\Графическое решение уравнения\Графическое решение уравнения\bin\Debug\Графическое решение уравнения.exe C:\Users\Игорь\Desktop\Открытые уроки\Открытый урок Построение и исследование информационных моделей, 11 класс\primer\Приложение\Графическое решение уравнения\Графическое решение уравнения\bin\Debug\Графическое решение уравнения.pdb C:\Users\Игорь\Desktop\Открытые уроки\Открытый урок Построение и исследование информационных моделей, 11 класс\primer\Приложение\Графическое решение уравнения\Графическое решение уравнения\bin\Debug\Графическое решение уравнения.xml C:\Users\Игорь\Desktop\Открытые уроки\Открытый урок Построение и исследование информационных моделей, 11 класс\primer\Приложение\Графическое решение уравнения\Графическое решение уравнения\obj\Debug\ResolveAssemblyReference.cache C:\Users\Игорь\Desktop\Открытые уроки\Открытый урок Построение и исследование информационных моделей, 11 класс\primer\Приложение\Графическое решение уравнения\Графическое решение уравнения\obj\Debug\Графическое_решение_уравнения.Form1.resources C:\Users\Игорь\Desktop\Открытые уроки\Открытый урок Построение и исследование информационных моделей, 11 класс\primer\Приложение\Графическое решение уравнения\Графическое решение уравнения\obj\Debug\Графическое_решение_уравнения.Resources.resources C:\Users\Игорь\Desktop\Открытые уроки\Открытый урок Построение и исследование информационных моделей, 11 класс\primer\Приложение\Графическое решение уравнения\Графическое решение уравнения\obj\Debug\Графическое решение уравнения.vbproj.GenerateResource.Cache

Название документа Листинг (Excel).doc

hello_html_m25f826e1.png

Название документа Листинг 2.doc

hello_html_44d92725.pnghello_html_mcdcb5c1.gifhello_html_m55c616ef.gifhello_html_m34910ee5.gifhello_html_9ba0310.gifhello_html_m4702f170.gifhello_html_2b8a16e5.gifhello_html_mb16ea64.gif

Public Class Form1

Dim Graph1 As Graphics

Dim Pen1 As New Pen(Color.Black, 2)

Dim drawBrush As New SolidBrush(Color.Black)

Dim drawFont As New Font("Arial", 10)

Dim X, Y As Single

Dim A, C, B, P As Single


Private Sub Button1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button1.Click

Graph1 = Me.PictureBox1.CreateGraphics()

Graph1.Clear(Color.White)

'Печать шкал математической системы координат

For X = -150 To 150 Step 50

Graph1.DrawString(X / 100, drawFont, drawBrush, X + 150, 80)

Next

For Y = 0 To 200 Step 50

Graph1.DrawString((Y - 100) / 100, drawFont, drawBrush, 150, 180 - Y)

Next

'Преобразование компьютерной системы координат в математическую ситстему координат

Graph1.ScaleTransform(1, -1) 'Поворот оси Y

Graph1.TranslateTransform(150, -100) 'Сдвиг по осям X и Y

'Рисование осей математической системы координат

Graph1.DrawLine(Pen1, -150, 0, 300, 0) 'Ось Х

Graph1.DrawLine(Pen1, 0, -100, 0, 100) 'Ось Y

For X = -150 To 150 Step 50 'Засечки на оси Х

Graph1.DrawLine(Pen1, X, -5, X, 5)

Next

For X = -150 To 150 Step 50 'Засечки на оси Y

Graph1.DrawLine(Pen1, -5, Y, 5, Y)

Next

'График функции

For X = -1.5 To 1.5 Step 0.01

Y = X ^ 3 - Math.Cos(X)

Graph1.DrawEllipse(Pen1, X * 100, Y * 100, 1, 1)

Next


End Sub


Private Sub Button2_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button2.Click

A = Val(TextBox1.Text)

B = Val(TextBox2.Text)

P = Val(TextBox3.Text)

Do

C = (A + B) / 2

If (A ^ 3 - Math.Cos(A)) * (C ^ 3 - Math.Cos(C)) < 0 Then

B = C

Else

A = C


End If

Loop While (B - A) / 2 > P

TextBox4.Text = (A + B) / 2

End Sub

End Class

Название документа Листинг.doc

hello_html_7e651409.pnghello_html_70cf785b.gifhello_html_1f1158db.gifhello_html_m31e770a9.gif





Public Class Form1

Dim Graph1 As Graphics

Dim Pen1 As New Pen(Color.Black, 2)

Dim drawBrush As New SolidBrush(Color.Black)

Dim drawFont As New Font("Arial", 10)

Dim X, Y As Single


Private Sub Button1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button1.Click

Graph1 = Me.PictureBox1.CreateGraphics()

Graph1.Clear(Color.White)

'Печать шкал математической системы координат

For X = -150 To 150 Step 50

Graph1.DrawString(X / 100, drawFont, drawBrush, X + 150, 80)

Next

For Y = 0 To 200 Step 50

Graph1.DrawString((Y - 100) / 100, drawFont, drawBrush, 150, 180 - Y)

Next

'Преобразование компьютерной системы координат в математическую ситстему координат

Graph1.ScaleTransform(1, -1) 'Поворот оси Y

Graph1.TranslateTransform(150, -100) 'Сдвиг по осям X и Y

'Рисование осей математической системы координат

Graph1.DrawLine(Pen1, -150, 0, 300, 0) 'Ось Х

Graph1.DrawLine(Pen1, 0, -100, 0, 100) 'Ось Y

For X = -150 To 150 Step 50 'Засечки на оси Х

Graph1.DrawLine(Pen1, X, -5, X, 5)

Next

For X = -150 To 150 Step 50 'Засечки на оси Y

Graph1.DrawLine(Pen1, -5, Y, 5, Y)

Next

'График функции

For X = -1.5 To 1.5 Step 0.01

Y = X ^ 3 - Math.Sin(X)

Graph1.DrawEllipse(Pen1, X * 100, Y * 100, 1, 1)

Next

End Sub

End Class



Название документа Компьютерная модель движения тела.vbproj.FileListAbsolute.txt

D:\Игорь Валентинович\Учебный материал\9 класс\VB2005\3.6.2 Компьютерная модель движения тела\Компьютерная модель движения тела\Компьютерная модель движения тела\bin\Debug\Компьютерная модель движения тела.exe D:\Игорь Валентинович\Учебный материал\9 класс\VB2005\3.6.2 Компьютерная модель движения тела\Компьютерная модель движения тела\Компьютерная модель движения тела\bin\Debug\Компьютерная модель движения тела.pdb D:\Игорь Валентинович\Учебный материал\9 класс\VB2005\3.6.2 Компьютерная модель движения тела\Компьютерная модель движения тела\Компьютерная модель движения тела\bin\Debug\Компьютерная модель движения тела.xml D:\Игорь Валентинович\Учебный материал\9 класс\VB2005\3.6.2 Компьютерная модель движения тела\Компьютерная модель движения тела\Компьютерная модель движения тела\obj\Debug\ResolveAssemblyReference.cache D:\Игорь Валентинович\Учебный материал\9 класс\VB2005\3.6.2 Компьютерная модель движения тела\Компьютерная модель движения тела\Компьютерная модель движения тела\obj\Debug\Компьютерная_модель_движения_тела.Form1.resources D:\Игорь Валентинович\Учебный материал\9 класс\VB2005\3.6.2 Компьютерная модель движения тела\Компьютерная модель движения тела\Компьютерная модель движения тела\obj\Debug\Компьютерная_модель_движения_тела.Resources.resources D:\Игорь Валентинович\Учебный материал\9 класс\VB2005\3.6.2 Компьютерная модель движения тела\Компьютерная модель движения тела\Компьютерная модель движения тела\obj\Debug\Компьютерная модель движения тела.vbproj.GenerateResource.Cache D:\Игорь Валентинович\Учебный материал\9 класс\VB2005\3.6.2 Компьютерная модель движения тела\Компьютерная модель движения тела\Компьютерная модель движения тела\obj\Debug\Компьютерная модель движения тела.exe D:\Игорь Валентинович\Учебный материал\9 класс\VB2005\3.6.2 Компьютерная модель движения тела\Компьютерная модель движения тела\Компьютерная модель движения тела\obj\Debug\Компьютерная модель движения тела.xml D:\Игорь Валентинович\Учебный материал\9 класс\VB2005\3.6.2 Компьютерная модель движения тела\Компьютерная модель движения тела\Компьютерная модель движения тела\obj\Debug\Компьютерная модель движения тела.pdb C:\Users\Игорь\Desktop\Открытые уроки\Открытый урок Построение и исследование информационных моделей, 11 класс\primer\Компьютерная модель движения тела\Компьютерная модель движения тела\obj\Debug\Компьютерная модель движения тела.exe C:\Users\Игорь\Desktop\Открытые уроки\Открытый урок Построение и исследование информационных моделей, 11 класс\primer\Компьютерная модель движения тела\Компьютерная модель движения тела\obj\Debug\Компьютерная модель движения тела.xml C:\Users\Игорь\Desktop\Открытые уроки\Открытый урок Построение и исследование информационных моделей, 11 класс\primer\Компьютерная модель движения тела\Компьютерная модель движения тела\obj\Debug\Компьютерная модель движения тела.pdb C:\Users\Игорь\Desktop\Открытые уроки\Открытый урок Построение и исследование информационных моделей, 11 класс\primer\Компьютерная модель движения тела\Компьютерная модель движения тела\bin\Debug\Компьютерная модель движения тела.exe C:\Users\Игорь\Desktop\Открытые уроки\Открытый урок Построение и исследование информационных моделей, 11 класс\primer\Компьютерная модель движения тела\Компьютерная модель движения тела\bin\Debug\Компьютерная модель движения тела.pdb C:\Users\Игорь\Desktop\Открытые уроки\Открытый урок Построение и исследование информационных моделей, 11 класс\primer\Компьютерная модель движения тела\Компьютерная модель движения тела\bin\Debug\Компьютерная модель движения тела.xml C:\Users\Игорь\Desktop\Открытые уроки\Открытый урок Построение и исследование информационных моделей, 11 класс\primer\Компьютерная модель движения тела\Компьютерная модель движения тела\obj\Debug\ResolveAssemblyReference.cache C:\Users\Игорь\Desktop\Открытые уроки\Открытый урок Построение и исследование информационных моделей, 11 класс\primer\Компьютерная модель движения тела\Компьютерная модель движения тела\obj\Debug\Компьютерная_модель_движения_тела.Form1.resources C:\Users\Игорь\Desktop\Открытые уроки\Открытый урок Построение и исследование информационных моделей, 11 класс\primer\Компьютерная модель движения тела\Компьютерная модель движения тела\obj\Debug\Компьютерная_модель_движения_тела.Resources.resources C:\Users\Игорь\Desktop\Открытые уроки\Открытый урок Построение и исследование информационных моделей, 11 класс\primer\Компьютерная модель движения тела\Компьютерная модель движения тела\obj\Debug\Компьютерная модель движения тела.vbproj.GenerateResource.Cache

Название документа Листинг (Excel).doc

hello_html_5e630a74.png

Название документа Листинг.doc

hello_html_46ce9ad7.png

hello_html_m31dfb6ff.gif

hello_html_m4ab186e3.gif

hello_html_m76b2e41f.gif

hello_html_m70dd0a2.gif



hello_html_506fe8de.gif

hello_html_15662136.gif

hello_html_1c445040.gif

hello_html_mc7292de.gif



hello_html_24657858.gifhello_html_m130f2597.gif

hello_html_7a051a10.gifhello_html_m71a0a88a.gif



Public Class Form1

Const G As Single = 9.81

Const Pi As Single = 3.14

Dim Vo, A, S, L, H As Single

Dim Graph1 As Graphics

Dim Pen1 As New Pen(Color.Black, 4)

Dim drawbrush As New SolidBrush(Color.Black)

Dim drawFont As New Font("Arial", 10)

Dim X, Y, T As Single


Private Sub Button1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button1.Click

'Ввод начальных значений

Vo = Val(TextBox1.Text)

A = Val(TextBox2.Text)

S = Val(TextBox3.Text)

H = Val(TextBox4.Text)

'Попадание в стену

L = S * Math.Tan(A * Pi / 180) - (G * S ^ 2) / (2 * Vo ^ 2 * Math.Cos(A * Pi / 180) ^ 2)

Select Case L

Case Is < 0

Label10.Text = "Недолет"

Case Is > H

Label10.Text = "Перелет"

Case Else

Label10.Text = "Попадание"

End Select

End Sub


Private Sub Button2_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button2.Click

Graph1 = Me.PictureBox1.CreateGraphics()

Graph1.Clear(Color.White)


' Печать шкал математической системы координат в компьютерной системе координат

For X = 0 To 400 Step 50

Graph1.DrawString(X / 10, drawFont, drawbrush, X, 200)

Next

For Y = 20 To 220 Step 50

Graph1.DrawString((Y - 20) / 10, drawFont, drawbrush, 0, 220 - Y)

Next

'Преобразование компьютерной системы координат в математическую систему координат

Graph1.ScaleTransform(1, -1) 'Поворот оси Y

Graph1.TranslateTransform(0, -200) 'Сдвиг по оси Y

'Рисование осей математической системы координат

Graph1.DrawLine(Pen1, 0, 0, 400, 0) 'Ось Х

Graph1.DrawLine(Pen1, 0, -20, 0, 200) 'Ось Y

'Мишень

Graph1.DrawLine(Pen1, S * 10, 0, S * 10, H * 10)

'Построение траектории движения мячика

For T = 0 To 10 Step 0.1

Y = Vo * Math.Sin(A * Pi / 180) * T - G * T * T / 2

X = Vo * Math.Cos(A * Pi / 180) * T

Graph1.DrawEllipse(Pen1, X * 10, Y * 10, 1, 1)

Next


End Sub

End Class

Конспект урока «Построение и исследование информационных моделей» 11 класс
  • Информатика
Описание:

Оборудование: компьютерный класс,  программы Microsoft Visual Basic 2005, Microsoft Office Excel 2007 и Microsoft Office PowerPoint 2007, задания к уроку в электронном виде (см. приложение).

Тип урока: обобщающий и игровой.

Формы работы: фронтальная, коллективная, индивидуальная на компьютере.

Аннотация: количество участников в команде: 3 – 4 (по количеству компьютеров). Время на объяснение условий соревнования команд: 3 – 5 мин., на презентацию заранее подготовленной формализованной модели: 5 мин для каждой из 3-х команд, на изготовление компьютерных моделей: 30 – 40 мин. (команды работают единовременно), на представление результатов своих исследований: 5 мин. для каждой из 3-х команд,  на подведение итогов командных соревнований: 3 –  5 мин., на организационные моменты резервировано 10 мин.

Цель урока: Обобщение знаний, умений и навыков обучающихся об основных этапах разработки и исследования моделей на компьютере.

Задачи:

Учащиеся должны продемонстрировать возможности построения и исследования информационных моделей  с использованием технологий, предоставляемых Microsoft Visual Basic 2005,  Microsoft Office Excel 2007 и изготовить презентацию формализации модели с использованием Microsoft Office PowerPoint 2007.

Ход урока:

Класс разбивается на 3 команды.
По ходу игры заполняется таблица баллов (используется пятибалльная система оценок):

Вид работы

I команда

II команда

III команда

Формализация модели
(презентация)

 

 

 

Компьютерная модель
(Visual Basic 2005)

 

 

 

Компьютерная модель
(Microsoft Excel 2007)

 

 

 

Победителем является команда, набравшая наибольшее количество баллов.
Представители каждой команды должны:

  1. Изготовить и представить презентацию построения формальной модели.
  2. Изготовить и представить компьютерную модель, разработанную с использованием Microsoft Visual Basic 2005.
  1. Изготовить и представить компьютерную модель, разработанную с использованием Microsoft Office Excel 2007.

Задания для 1-ой команды:

  1. Представить перед жюри заранее подготовленную с использованиемMicrosoft Office PowerPoint 2007 формализацию построения и исследования физической модели движения тела, брошенного под углом к горизонту.
  2. Изготовить компьютерную модель с использованием Microsoft Visual Basic 2005:
sal1.jpg

Public Class Form1
    Const G As Single = 9.81
    Const Pi As Single = 3.14
    Dim Vo, A, S, L, H As Single
    Dim Graph1 As Graphics
    Dim Pen1 As New Pen(Color.Black, 4)
    Dim drawbrush As New SolidBrush(Color.Black)
    Dim drawFont As New Font("Arial", 10)
    Dim X, Y, T As Single

    Private Sub Button1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button1.Click
        'Ввод начальных значений
        Vo = Val(TextBox1.Text)
        A = Val(TextBox2.Text)
        S = Val(TextBox3.Text)
        H = Val(TextBox4.Text)
        'Попадание в стену
        L = S * Math.Tan(A * Pi / 180) - (G * S ^ 2) / (2 * Vo ^ 2 * Math.Cos(A * Pi / 180) ^ 2)
        Select Case L
            Case Is < 0
                Label10.Text = "Недолет"
            Case Is > H
                Label10.Text = "Перелет"
            Case Else
                Label10.Text = "Попадание"
        End Select
    End Sub

    Private Sub Button2_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button2.Click
        Graph1 = Me.PictureBox1.CreateGraphics()
        Graph1.Clear(Color.White)

        ' Печать шкал математической системы координат в компьютерной системе координат
        For X = 0 To 400 Step 50
            Graph1.DrawString(X / 10, drawFont, drawbrush, X, 200)
        Next
        For Y = 20 To 220 Step 50
            Graph1.DrawString((Y - 20) / 10, drawFont, drawbrush, 0, 220 - Y)
        Next
        'Преобразование компьютерной системы координат в  математическую систему координат
        Graph1.ScaleTransform(1, -1) 'Поворот оси Y
        Graph1.TranslateTransform(0, -200) 'Сдвиг по оси Y
        'Рисование осей математической системы координат
        Graph1.DrawLine(Pen1, 0, 0, 400, 0) 'Ось Х
        Graph1.DrawLine(Pen1, 0, -20, 0, 200) 'Ось Y
        'Мишень
        Graph1.DrawLine(Pen1, S * 10, 0, S * 10, H * 10)
        'Построение траектории движения мячика
        For T = 0 To 10 Step 0.1
            Y = Vo * Math.Sin(A * Pi / 180) * T - G * T * T / 2
            X = Vo * Math.Cos(A * Pi / 180) * T
            Graph1.DrawEllipse(Pen1, X * 10, Y * 10, 1, 1)
        Next

    End Sub
End Class

  1. Изготовить компьютерную модель с использованием Microsoft Office Excel 2007:
sal2.jpg

 


Задания для 2-ой команды:

  1. Представить перед жюри заранее подготовленную с использованиемMicrosoft Office PowerPoint 2007 формализацию построения и исследования  модели приближенного решения уравнения.
  2. Изготовить компьютерную модель с использованием Microsoft Visual Basic 2005:
sal3.jpg

Public Class Form1
    Dim Graph1 As Graphics
    Dim Pen1 As New Pen(Color.Black, 2)
    Dim drawBrush As New SolidBrush(Color.Black)
    Dim drawFont As New Font("Arial", 10)
    Dim X, Y As Single
    Dim A, C, B, P As Single

    Private Sub Button1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button1.Click
        Graph1 = Me.PictureBox1.CreateGraphics()
        Graph1.Clear(Color.White)
        'Печать шкал математической системы координат
        For X = -150 To 150 Step 50
            Graph1.DrawString(X / 100, drawFont, drawBrush, X + 150, 80)
        Next
        For Y = 0 To 200 Step 50
            Graph1.DrawString((Y - 100) / 100, drawFont, drawBrush, 150, 180 - Y)
        Next
        'Преобразование компьютерной системы координат в математическую ситстему координат
        Graph1.ScaleTransform(1, -1) 'Поворот оси Y
        Graph1.TranslateTransform(150, -100) 'Сдвиг по осям X и Y
        'Рисование осей математической системы координат
        Graph1.DrawLine(Pen1, -150, 0, 300, 0) 'Ось Х
        Graph1.DrawLine(Pen1, 0, -100, 0, 100) 'Ось Y
        For X = -150 To 150 Step 50 'Засечки на оси Х
            Graph1.DrawLine(Pen1, X, -5, X, 5)
        Next
        For X = -150 To 150 Step 50 'Засечки на оси Y
            Graph1.DrawLine(Pen1, -5, Y, 5, Y)
        Next
        'График функции
        For X = -1.5 To 1.5 Step 0.01
            Y = X ^ 3 - Math.Cos(X)
            Graph1.DrawEllipse(Pen1, X * 100, Y * 100, 1, 1)
        Next

    End Sub

    Private Sub Button2_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button2.Click
        A = Val(TextBox1.Text)
        B = Val(TextBox2.Text)
        P = Val(TextBox3.Text)
        Do
            C = (A + B) / 2
            If (A ^ 3 - Math.Cos(A)) * (C ^ 3 - Math.Cos(C)) < 0 Then
                B = C
            Else
                A = C

            End If
        Loop While (B - A) / 2 > P
        TextBox4.Text = (A + B) / 2
    End Sub
End Class

  1. Изготовить компьютерную модель с использованием Microsoft Office Excel 2007:
sal4.jpg

Задания для 3-ей команды:

  1. Представить перед жюри заранее подготовленную с использованиемMicrosoft Office PowerPoint 2007 формализацию построение и исследование биологической модели развития популяций.
  2. Изготовить компьютерную модель с использованием Microsoft Visual Basic 2005:
sal5.jpg

Public Class Form1
    Dim Graph1 As Graphics
    Dim Pen1 As New Pen(Color.Black, 2)
    Dim Pen2 As New Pen(Color.Green, 2)
    Dim Pen3 As New Pen(Color.Blue, 2)
    Dim Pen4 As New Pen(Color.Brown, 2)
    Dim Pen5 As New Pen(Color.Red, 2)
    Dim drawBrush As New SolidBrush(Color.Black)
    Dim drawFont As New Font("Arial", 10)
    Dim X, Y As Integer, N, I, A, B, C, D, G, F, X1, X2, X3, X4, Y1 As Single

    Private Sub Button2_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button2.Click
        A = Val(TextBoxA.Text)
        X1 = Val(TextBoxX.Text)
        N = Val(TextBoxN.Text)
        For I = 1 To N
            X1 = A * X1
        Next
        Label1.Text = Int(X1)
    End Sub

    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        A = Val(TextBoxA.Text)
        B = Val(TextBoxB.Text)
        X2 = Val(TextBoxX.Text)
        N = Val(TextBoxN.Text)
        For I = 1 To N
            X2 = (A - B * X2) * X2
        Next
        Label2.Text = Int(X2)
    End Sub

    Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
        A = Val(TextBoxA.Text)
        B = Val(TextBoxB.Text)
        C = Val(TextBoxC.Text)
        X3 = Val(TextBoxX.Text)
        N = Val(TextBoxN.Text)
        For I = 1 To N
            X3 = (A - B * X3) * X3 - C
        Next
        Label3.Text = Int(X3)
    End Sub

    Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click
        A = Val(TextBoxA.Text)
        B = Val(TextBoxB.Text)
        C = Val(TextBoxC.Text)
        D = Val(TextBoxD.Text)
        F = Val(TextBoxF.Text)
        G = Val(TextBoxG.Text)
        X4 = Val(TextBoxX.Text)
        Y1 = Val(TextBoxY.Text)
        N = Val(TextBoxN.Text)
        For I = 1 To N
            X4 = (A - B * X4) * X4 - C - F * X4 * Y1
            Y1 = D * Y1 + G * X4 * Y1
        Next
        Label4.Text = Int(X4)
        Label5.Text = Int(Y1)
    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Graph1 = Me.PictureBox1.CreateGraphics
        Graph1.Clear(Color.White)
        For X = 20 To 320 Step 50
            Graph1.DrawString((X - 20), drawFont, drawBrush, X - 20, 200)
        Next
        For Y = 0 To 200 Step 40
            Graph1.DrawString(Y, drawFont, drawBrush, 0, 200 - Y)
        Next
        Graph1.ScaleTransform(1, -1)
        Graph1.TranslateTransform(20, -200)
        Graph1.DrawLine(Pen1, 0, 0, 300, 0)
        Graph1.DrawLine(Pen1, 0, 0, 0, 200)
        For X = 0 To 300 Step 50
            Graph1.DrawLine(Pen1, X, -5, X, 5)
        Next
        For Y = 0 To 200 Step 40
            Graph1.DrawLine(Pen1, -5, Y, 5, Y)
        Next

        X1 = Val(TextBoxX.Text)
        For I = 1 To 100
            Graph1.DrawEllipse(Pen1, I, X1, 1, 1)
            X1 = A * X1
        Next

        X2 = Val(TextBoxX.Text)
        For I = 1 To N
            Graph1.DrawEllipse(Pen2, I, X2, 1, 1)
            X2 = (A - B * X2) * X2
        Next

        X3 = Val(TextBoxX.Text)
        For I = 1 To N
            Graph1.DrawEllipse(Pen3, I, X3, 1, 1)
            X3 = (A - B * X3) * X3 - C
        Next

        X4 = Val(TextBoxX.Text)
        Y1 = Val(TextBoxY.Text)
        For I = 1 To N
            X4 = (A - B * X4) * X4 - C - F * X4 * Y1
            Y1 = D * Y1 + G * X4 * Y1
            Graph1.DrawEllipse(Pen4, I, X4, 1, 1)
            Graph1.DrawEllipse(Pen5, I, Y1, 1, 1)
        Next

    End Sub
End Class

  1. Изготовить компьютерную модель с использованием Microsoft Office Excel 2007:
sal6.jpg




dop.pngПриложения: Архив ZIP, объемом 1,3 Мб (2-2-6-21.zip)

  1. Конспект урока - в формате .doc
  2. Пакет приложений на тему «Биологическая модель»
  3. Пакет приложений на тему «Графическое решение уравнения»
  4. Пакет приложений на тему «Компьютерная модель движения тела»
Автор Саликов Игорь Валентинович
Дата добавления 31.05.2014
Раздел Информатика
Подраздел
Просмотров 2611
Номер материала 595
Скачать свидетельство о публикации

Оставьте свой комментарий:

Введите символы, которые изображены на картинке:

Получить новый код
* Обязательные для заполнения.


Комментарии:

↓ Показать еще коментарии ↓