Задача 5(5) (Программы 3)
Описание файла
Файл "Задача 5(5)" внутри архива находится в папке "Программы 3". Документ из архива "Программы 3", который расположен в категории "". Всё это находится в предмете "практика расчётов на пэвм" из 2 семестр, которые можно найти в файловом архиве МГУ им. Ломоносова. Не смотря на прямую связь этого архива с МГУ им. Ломоносова, его также можно найти и в других разделах. .
Онлайн просмотр документа "Задача 5(5)"
Текст из документа "Задача 5(5)"
Option Strict On
Module Module1
Function f(ByVal x As Double) As Double
Return 1 / x
End Function
Sub Main()
Dim a, b, c, d, e, w, g, h, i, j, m As Double
Dim u As Integer
Dim t As String
Console.WriteLine("Число элементарных отрезков?")
t = Console.ReadLine
u = Integer.Parse(t)
a = 0.5
b = 1.5
c = (b - a) / u
i = 0
j = 0
For v As Integer = 1 To u - 1
d = d + f(a + (v + 0.5) * c)
If v Mod 2 = 0 Then i = i + f(a + v * c) Else j = j + f(a + v * c)
Next v
g = c * (i + j + f(a))
e = c * (i + j + f(b))
h = c * (i + j + (f(a) + f(b)) / 2)
m = c * (f(a) + f(b) + 2 * i + 4 * j) / 3
d = c * (d + f(a + 0.5 * c))
w = Math.Log(b) - Math.Log(a)
Console.WriteLine()
Console.WriteLine("Метод Интеграл Ошибка вычислений")
Console.WriteLine("Прямоуг.лев. {0,8:F6} {1,15:E6}", g, w - g)
Console.WriteLine("Прямоуг.прав. {0,8:F6} {1,15:E6}", e, w - e)
Console.WriteLine("Трапеций. {0,8:F6} {1,15:E6}", h, w - h)
Console.WriteLine("Парабол. {0,8:F6} {1,15:E6}", m, w - m)
Console.WriteLine("Средних. {0,8:F6} {1,15:E6}", d, w - d)
Console.ReadLine()
End Sub
End Module