Вычисление рядов. Рекуррентные формулы

Размещено на http://www.allbest.ru/

Министерство образования и науки Российской Федерации

Филиал федерального бюджетного образовательного учреждения высшего профессионального образования

"Уфимский государственный нефтяной технический университет

(Филиал ФГБОУ ВПО УГНТУ в г. Салавате)

• Вычисление рядов. Рекуррентные формулы
• Лабораторная работа №4
• Исполнитель:
• Кулушев И.Ш.
• Руководитель:
• доцент: Кузьминых П.В.
• Салават 2011
• Задание 12
• Задание 62
• Получение стандартного вида последовательности и рекуррентной формулы. алгоритм рекуррентный basic
• Для программирования процесса суммирования представим последовательность в стандартном виде.
• Получим рекуррентную формулу:
• Получение стандартного вида последовательности.
• Для программирования процесса суммирования представим последовательность в стандартном виде.
• Блок-схема №12 (с заданным числом членов)
• Блок-схема №12 (с заданной точностью)
• Блок-схема №62 (с заданным числом членов)
• Блок-схема №62 (с заданной точностью)
• Внешний вид формы:
• Измененные свойства:

Form1 Caption = “Лабораторная работа №4” Height =9330 Left = 0 Top = 0 Width = 7545 BackColor = &H0080FF80&	Label1 Alignment = 0-Left Justify BackColor = &H8000000F& BorderStyle = 1-Fixed signle Caption = “ х y” Height = 495 Left =480 Top = 1440 Width = 1695 ForeColor = &H80000012& Font = Segoe Print; полужирный;11
Label2 Alignment = 0-Left Justify BackColor = &H8000000F& BorderStyle = 1-Fixed signle Caption = “ х y” Height = 495 Left =480 Top = 5040 Width = 1575 ForeColor = &H80000012& Font = Segoe Print; полужирный;11	Label3 Alignment = 0-Left Justify BackColor = &H8000000F& BorderStyle = 1-Fixed signle Caption = “ s n” Height = 495 Left =2880 Top = 1440 Width = 1455 ForeColor = &H000000C0& Font = Segoe Print; полужирный;11
Label4 Alignment = 0-Left Justify BackColor = &H8000000F& BorderStyle = 1-Fixed signle Caption = “ s n” Height = 495 Left =5040 Top = 1440 Width = 1575 ForeColor = &H00FF8080& Font = Segoe Print; полужирный;11	Label5 Alignment = 0-Left Justify BackColor = &H000000C0& BorderStyle = 0-None Caption = “С заданным числом членов” Height = 255 Left =2280 Top = 1080 Width =2415 ForeColor = &H00000000& Font = Segoe Print; наклонный;8
Label6 Alignment = 0-Left Justify BackColor = &H00FF8080& BorderStyle = 0-None Caption = “С заданной точностью” Height = 255 Left =4800 Top = 1080 Width =2055 ForeColor = &H00000000& Font = Segoe Print; наклонный;8	Label7 Alignment = 0-Left Justify BackColor = &H0080FF80& BorderStyle = 0-None Caption = “Лабораторная работа” Height = 375 Left =360 Top = 120 Width = 2535 ForeColor = &H80000012& Font = Segoe Print; полужирный;10
Label8 Alignment = 0-Left Justify BackColor = &H00C0C0C0& BorderStyle = 0-None Caption = “Задание №62” Height = 375 Left =600 Top = 960 Width = 1455 ForeColor = &H80000012& Font = Segoe Print; полужирный;10	Label9 Alignment = 0-Left Justify BackColor = &H00C0C0C0& BorderStyle = 0-None Caption = “Задание №12” Height = 375 Left =360 Top = 4560 Width = 1455 ForeColor = &H80000012& Font = Segoe Print; полужирный;10
Label10 Alignment = 0-Left Justify BackColor = &H8000000F& BorderStyle = 0-None Caption = “ s n” Height = 495 Left =2640 Top = 5040 Width = 2055 ForeColor = &H000000C0& Font = Segoe Print; полужирный;11	Label11 Alignment = 0-Left Justify BackColor = &H8000000F& BorderStyle = 0-None Caption = “ s n” Height = 495 Left =5160 Top = 5040 Width = 1455 ForeColor = &H00FF8080& Font = Segoe Print; полужирный;11
Label12 Alignment = 0-Left Justify BackColor = &H000000C0& BorderStyle = 0-None Caption = “С заданным числом членов” Height = 255 Left =2400 Top = 4680 Width =2415 ForeColor = &H00000000& Font = Segoe Print; наклонный;8	Label13 Alignment = 0-Left Justify BackColor = &H00FF8080& BorderStyle = 0-None Caption = “С заданной точностью” Height = 255 Left =4920 Top = 4680 Width =2055 ForeColor = &H00000000& Font = Segoe Print; наклонный;8
Picture1 Height =1455 Left =480 TabIndex = 0 Top = 1920 Width = 1695 Picture =(None)	Picture2 Height =1455 Left =2880 TabIndex = 1 Top = 1920 Width = 1455 Picture =(None)
Picture3 Height =1455 Left =5040 TabIndex = 2 Top = 1920 Width = 1575 Picture =(None)	Picture4 Height =2295 Left =480 TabIndex = 11 Top = 5520 Width = 1575 Picture =(None)
Picture5 Height =2295 Left =2640 TabIndex = 17 Top = 5520 Width = 2055 Picture =(None)	Picture6 Height =2295 Left =5160 TabIndex = 18 Top = 5520 Width = 1455 Picture =(None)
Shape1 Height =3375 Left =240 Top = 720 Width = 6855 BorderColor = &H80000008&	Shape2 Height =4215 Left =240 Top = 4320 Width = 6855 BorderColor = &H80000008&
Line1 BorderColor = &H80000008& X1 =600 X2 =600 Y1 =0 Y2 =2280	Line2 BorderColor = &H80000008& X1 =840 X2 =840 Y1 =0 Y2 =1440
Line3 BorderColor = &H80000008& X1 =960 X2 =960 Y1 =0 Y2 =1440	Line4 BorderColor = &H80000008& X1 =3720 X2 =3720 Y1 =1440 Y2 =1920
Line5 BorderColor = &H80000008& X1 =6000 X2 =6000 Y1 =1920 Y2 =1440	Line6 BorderColor = &H80000008& X1 =1080 X2 =1080 Y1 =1440 Y2 =1920
Line7 BorderColor = &H80000008& X1 =480 X2 =480 Y1 =0 Y2 =2280	Line8 BorderColor = &H80000008& X1 =960 X2 =960 Y1 =5520 Y2 =5040
Line9 BorderColor = &H80000008& X1 =1440 X2 =1440 Y1 =0 Y2 =2280	Line10 BorderColor = &H80000008& X1 =960 X2 =960 Y1 =0 Y2 =2280
Line11 BorderColor = &H80000008& X1 =4080 X2 =4080 Y1 =5520 Y2 =5040	Line12 BorderColor = &H80000008& X1 =6120 X2 =6120 Y1 =5520 Y2 =5040
Command1 Caption = “N” Height =375 Left =3120 Top = 3480 Width = 975 TabIndex =3 Style =1-Graphical BackColor = &H000000C0& Font = Segoe Print; полужирный;10	Command2 Caption = “Eps” Height =375 Left =5400 Top = 3480 Width = 975 TabIndex =4 Style =1-Graphical BackColor = &H000000C0& Font = Segoe Print; полужирный;10
Command3 Caption = “N” Height =375 Left =3240 Top = 7920 Width = 975 TabIndex =14 Style =1-Graphical BackColor = &H000000C0& Font = Segoe Print; полужирный;10	Command4 Caption = “Eps” Height =375 Left =5640 Top = 7920 Width = 975 TabIndex =15 Style =1-Graphical BackColor = &H000000C0& Font = Segoe Print; полужирный;10
Command5 Caption = “Выход” Height =495 Left =5880 Top = 120 Width = 1215 TabIndex =23 Style =1-Graphical BackColor = &H80000018& Font = MS Sans Serif; обычный;8

Текст программы:

Private Sub Command1_Click()

p = 4 * Atn(1)

For x = p / 8 To p / 2 Step p / 8

y = -Log(Abs(2 * Sin(x / 2)))

s = 0

For n = 1 To 10

s = s + Cos(n * x) / n

Next n

Picture1.Print " "; Format(x, "0.000"); " "; Format(y, "0.000000")

Picture2.Print " "; Format(s, "0.000000"); " "; n - 1

Picture1.Print "--------------------------------------------"

Picture2.Print "--------------------------------------------"

Next x

End Sub

Private Sub Command2_Click()

p = 3.14

e = 0.000001

For x = p / 8 To p / 2 Step p / 8

s = 0

n = 1

Do

a = Cos(n * x) / n

s = s + a

n = n + 1

Loop While Abs(a) > e

Picture3.Print " "; Format(s, "0.000000"); " "; n - 1

Picture3.Print "--------------------------------------------"

Next x

End Sub

Private Sub Command3_Click()

For x = 1 To 2 Step 0.2

y = Exp(-4 * x ^ 2)

s = 1

a = 1

For n = 1 To 10 Step 1

a = -((2 * x) ^ 2 / n) * a

s = s + a

Next n

Picture4.Print Format(x, " 0.0"); " "; Format(y, "0.0000000")

Picture4.Print "--------------------------------------------"

Picture5.Print Format(s, " 000000.0000000"); " "; n - 1

Picture5.Print "-------------------------------------------------"

Next x

End Sub

Private Sub Command4_Click()

For x = 1 To 2 Step 0.2

e = 0.0000001

s = 1

n = 1

a = 1

Do

a = -((2 * x) ^ 2 / n) * a

s = s + a

n = n + 1

Loop While Abs(a) > e

Picture6.Print Format(s, " 0.0000000"), n - 1

Picture6.Print "-------------------------------------------------"

Next x

End Sub

Private Sub Command5_Click()

Unload Me

End Sub

Полученные результаты:

Размещено на Allbest.ru

...