Поиск текста по странице


Введите слово или фразу для поиска.

Компьютерная модель "Квадратное уравнение"

Компьютерная модель «Квадратное уравнение» относится к категории ЭОР (прикладная программа обучающего характера) и может применяться в образовательных учреждениях. Программа не требует установки. Достаточно скачать и распаковать его в нужном месте. Для запуска программы войдите в папку model и запустите файл «model.exe». Программа работает в Windows XP, Windows 7, Windows 8. Разработкой модели занимались учащиеся 9 класса Нижне-Реутчанской СОШ Малыгин Алексей, Пронский Николай, Демидов Данил. Наибольший вклад в работу внес Малыгин Алексей.
Малыгин Алексей участвовал с данным проектом в фестивале "24 bit", где занял первое место на районном этапе и второе место на областном этапе фестиваля.

Скачать "Компьютерная модель "Квадратное уравнение""

Программа предназначена для исследования квадратного уравнения и построения графика. Меняя параметры a, b, c можно определить, имеет уравнение корни или нет, исследовать вид графика. Модель может применяться на уроках математики.

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

Программный код модели «Квадратное уравнение»


Dim x01, x02, y01, y02, r, g, blu As Integer
Dim a, b, c, x1, x2, i, y As Single

Private Sub Command1_Click()
a = Val(Text1)
b = Val(Text2)
c = Val(Text3)
'Решение квадратного уравнения
If b ^ 2 - 4 * a * c >= 0 And a <> 0 Then
x1 = (-b + (b ^ 2 - 4 * a * c) ^ (1 / 2)) / (2 * a)
x2 = (-b - (b ^ 2 - 4 * a * c) ^ (1 / 2)) / (2 * a)
Label4 = x1
Label7 = x2
Else
Label4 = "Решений нет"
Label7 = "Решений нет"
End If
End Sub

Private Sub Command2_Click()
a = Val(Text1)
b = Val(Text2)
c = Val(Text3)
x01 = Val(Text4)
x02 = Val(Text5)
y01 = Val(Text6)
y02 = Val(Text7)
If Abs(x01) <= 100 Or Abs(y01) <= 100 Or Abs(x02) <= 100 Or Abs(y02) <= 100 Then
' Применение генератора случайных чисел для изменения цвета параболы
Randomize
r = Fix(Rnd() * 255)
Randomize
g = Fix(Rnd() * 255)
Randomize
blu = Fix(Rnd() * 255)
'Задание системы координат
Picture1.Scale (x01, y01)-(x02, y02)
'Рисование оси Y
Picture1.Line (0, y01)-(0, y02), RGB(0, 0, 0)
'Рисование оси X
Picture1.Line (x01, 0)-(x02, 0), RGB(0, 0, 0)
'Рисование параболы
For i = x01 To x02 Step 0.001
Picture1.PSet (i, a * i ^ 2 + b * i + c), RGB(r, g, blu)
Next i

If x02 / 10 <= 1 Then
For i = x01 To x02 Step 1
Picture1.Line (i, 0)-(i, 0.3), RGB(0, 0, 0)
Picture1.Print i
Next i
For i = y02 To y01 Step 1
Picture1.Line (0, i)-(0.3, i), RGB(0, 0, 0)
Picture1.Print i
Next i
ElseIf x02 / 10 >= 1 And x02 / 10 <= 10 Then
For i = x01 To x02 Step 10
Picture1.Line (i, 0)-(i, 0.3), RGB(0, 0, 0)
Picture1.Print i
Next i
For i = y02 To y01 Step 10
Picture1.Line (0, i)-(0.3, i), RGB(0, 0, 0)
Picture1.Print i
Next i
ElseIf x02 / 10 >= 10 And x02 / 10 <= 100 Then
For i = x01 To x02 Step 100
Picture1.Line (i, 0)-(i, 0.3), RGB(0, 0, 0)
Picture1.Print i
Next i
For i = y02 To y01 Step 100
Picture1.Line (0, i)-(0.3, i), RGB(0, 0, 0)
Picture1.Print i
Next i
End If

Else
Label12(0) = "Введите координаты не превышающие число 100"
End If
End Sub
Private Sub Command3_Click()
Form1.WindowState = 1
Form1.WindowState = 2
End Sub