Задача 5(3) (Программы 3)
Описание файла
Файл "Задача 5(3)" внутри архива находится в папке "Программы 3". Документ из архива "Программы 3", который расположен в категории "". Всё это находится в предмете "практика расчётов на пэвм" из 2 семестр, которые можно найти в файловом архиве МГУ им. Ломоносова. Не смотря на прямую связь этого архива с МГУ им. Ломоносова, его также можно найти и в других разделах. .
Онлайн просмотр документа "Задача 5(3)"
Текст из документа "Задача 5(3)"
Option Strict On
Module Module1
Function f(ByVal x As Double) As Double
Return 1 / x
End Function
Sub Main()
Dim Int, h, a, b, n, s1, s2, s3, s4, Pr, Pl, Tr, Par, l As Double
n = 100
l = 10000
a = 0.5
b = 1.5
h = (b - a) / n
s1 = 0
s2 = 0
Pl = 0
s3 = 0
s4 = 0
Int = Math.Log(b / a)
For i As Integer = 1 To CInt(n - 1)
s1 = s1 + f(a + i * h)
s2 = s2 + f(i * h + b)
Pl = Pl + h * f(a + h * i)
Pr = Pr + h * f(a + h * i)
Tr = h * ((f(a) + f(b)) / 2 + s1)
If i Mod 2 = 0 Then
s3 = s3 + f(a + i * h)
Else : s4 = s4 + f(a + i * h)
End If
Next i
Par = h / 3 * (f(a) + f(b) + 4 * s4 + 2 * s3)
Pl = Pl + f(a) * h
Pr = Pr + f(b) * h
Console.WriteLine("Число эдементарных отрезков?")
Console.WriteLine("{0}", n)
Console.WriteLine()
Console.WriteLine("Метод Интеграл Ошибка вычислений")
Console.WriteLine("Прямоуг.лев. {0:f6} {1:e6}", Pl, Int - Pl)
Console.WriteLine("Прямоуг.прав. {0:f6} {1:e6}", Pr, Int - Pr)
Console.WriteLine("Трапеций. {0:f6} {1:e6}", Tr, Int - Tr)
Console.WriteLine("Парабол {0:f6} {1:e6}", Par, Int - Par)
Console.WriteLine()
Console.WriteLine("Число эдементарных отрезков?")
Console.WriteLine("{0}", l)
Console.WriteLine()
Console.WriteLine("Метод Интеграл Ошибка вычислений")
Console.WriteLine("Прямоуг.лев. {0:f6} {1:e6}", Pl, Int - Pl)
Console.WriteLine("Прямоуг.прав. {0:f6} {1:e6}", Pr, Int - Pr)
Console.WriteLine("Трапеций. {0:f6} {1:e6}", Tr, Int - Tr)
Console.WriteLine("Парабол {0:f6} {1:e6}", Par, Int - Par)
Console.ReadLine()
End Sub
End Module