Автор работы: Пользователь скрыл имя, 14 Марта 2012 в 16:06, курсовая работа
В последние десятилетия значение математики в общей системе человеческих знаний сильно возросло. С помощью математических методов рассчитываются атомные реакторы, изучается строение кристаллов и молекул химических веществ, предсказываются место и глубина залегания полезных ископаемых, прогнозируется погода, анализируются экономические процессы и оптимизируется управление экономическими системами, ставятся диагнозы болезней, расшифровываются неизвестные письмена, обосновываются выводы социологических исследований. Математические методы являются базой и для изменяющих мир информационных технологий.
Введение ………………………………………………………………………….. 3
1 Общая часть 5
1.1 Цели разработки 5
1.2 Анализ использования разработки 5
1.3 Анализ методов решения проблемы 5
1.4 Состав ПЭВМ 6
1.5 Используемое программное обеспечение. 10
1.5.1 Операционная система. 12
1.5.2 Дополнительные программные средства 13
2. Технологическая часть. 19
2.1 Постановка задачи. 19
2.1.1 Технико-математическое описание задачи. 19
2.2 Проектирование 20
2.2.1Алгоритм решения. 20
2.3 Текст программы с описанием. 25
2.3.1 Описание программы 25
2.4 Текст программы 25
2.5 Описание процесса отладки 26
2.6 Тестирование 27
Заключение ……………………………………………………………………...30
Литература ……………………………………………………………………...31
Приложение А 32
Руководство оператора 32
Приложение Б 38
Руководство программиста 38
Код программы 39
Приложение С 60
Диск с программой 60
x = b
z = a
Text19 = 2
Image4.Visible = True
Image5.Visible = False
End If
c = k * Cos(m * z) + n * z ^ i + o
ml:
y = k * Cos(m * x) + n * x ^ i + o
t = c - y
j = y * (z - x)
s = j / t
s1 = Int(s * 10000) / 10000
x = x - s1
If c / x > e Then GoTo ml Else Text24 = x
End Sub
Private Sub Image7_Click()
Text1 = " "
Text2 = " "
Text3 = " "
Text4 = " "
Text5 = " "
Text6 = " "
Text7 = " "
Text8 = " "
Text9 = " "
Text10 = " "
Text11 = " "
Text12 = " "
Text13 = " "
Text14 = " "
Text15 = " "
Text16 = " "
Text17 = " "
Text18 = " "
Text19 = " "
Text20 = " "
Text21 = " "
Text22 = " "
Text23 = " "
Text24 = " "
Image4.Visible = False
Image5.Visible = False
End Sub
Private Sub Image8_Click()
Form1.Show
Unload Form4
End Sub
Форма 5:
Private Sub Image6_Click()
k = Val(Text1)
m = Val(Text2)
n = Val(Text3)
i = Val(Text4)
o = Val(Text5)
e = Val(Text6)
a = Val(Text7)
b = Val(Text8)
F = k * 2.7 ^ (m * a) + n * a ^ i + o
F1 = k * 2.7 ^ (m * b) + n * b ^ i + o
Text9 = Str(F)
Text10 = Str(F1)
u = k * m
Text11 = u
u1 = m
Text12 = u1
u2 = n * i
Text13 = u2
u3 = i - 1
Text14 = u3
u4 = u * m
Text15 = u4
u5 = m
Text16 = u5
u6 = n * i * (i - 1)
Text17 = u6
u7 = i - 2
Text18 = u7
p = (a + b) / 2
Text20 = p
Text21 = u * 2.7 ^ (u1 * p) + u2 * p ^ u3
Text22 = Text20
Text23 = u4 * 2.7 ^ (u5 * p) + u6 * p ^ u7
If u3 < 0 And a = 0 Then a = a + 0.2
If u3 < 0 And b = 0 Then b = b + 0.2
If Text21 * Text23 > 0 Then
x = a
z = b
Text19 = 1
Image5.Visible = True
Image4.Visible = False
Else
x = b
z = a
Text19 = 2
Image4.Visible = True
Image5.Visible = False
End If
c = k * 2.7 ^ (m * z) + n * z ^ i + o
ml:
y = k * 2.7 ^ (m * x) + n * x ^ i + o
t = c - y
j = y * (z - x)
s = j / t
s1 = Int(s * 10000) / 10000
x = x - s1
If s > e Then GoTo ml Else Text24 = x
End Sub
Private Sub Image7_Click()
Text1 = " "
Text2 = " "
Text3 = " "
Text4 = " "
Text5 = " "
Text6 = " "
Text7 = " "
Text8 = " "
Text9 = " "
Text10 = " "
Text11 = " "
Text12 = " "
Text13 = " "
Text14 = " "
Text15 = " "
Text16 = " "
Text17 = " "
Text18 = " "
Text19 = " "
Text20 = " "
Text21 = " "
Text22 = " "
Text23 = " "
Text24 = " "
Image4.Visible = False
Image5.Visible = False
End Sub
Private Sub Image8_Click()
Form1.Show
Unload Form5
End Sub
16