Задача 5(1) (Программы 3)
Описание файла
Файл "Задача 5(1)" внутри архива находится в папке "Программы 3". Документ из архива "Программы 3", который расположен в категории "". Всё это находится в предмете "практика расчётов на пэвм" из 2 семестр, которые можно найти в файловом архиве МГУ им. Ломоносова. Не смотря на прямую связь этого архива с МГУ им. Ломоносова, его также можно найти и в других разделах. .
Онлайн просмотр документа "Задача 5(1)"
Текст из документа "Задача 5(1)"
Module Module1
Sub Main()
Dim c, d, e, f, g, h, i, j, k, l, m, n, o, p, r, s, t As Double
Dim a As Integer
Dim q As String
Console.WriteLine("Введите число элементарных отрезков")
q = Console.ReadLine
a = Integer.Parse(q)
c = 0.5
d = 1.5
e = (d - c) / q
For b As Integer = 1 To q
f = e * (1 / (c + e * b))
g = f + g
If b <= (q / 2) Then
l = 1 / (c + e * (2 * b - 1))
n = n + l
k = 1 / (c + 2 * e * b)
m = m + k
End If
Next b
i = g + e * ((1 / c) - (1 / d))
j = g + e * 0.5 * ((1 / c) - (1 / d))
o = (4 * n + 2 * m + (1 / c) - (1 / d)) * e / 3
h = Math.Log(d) - Math.Log(c)
p = h - i
r = h - g
s = h - j
t = h - o
Console.WriteLine()
Console.WriteLine("Метод Интеграл Ошибка вычислений")
Console.WriteLine("Прямоуг. лев. {0,8:F6} {1,14:E6}", i, p)
Console.WriteLine("прямоуг. прав. {0,8:F6} {1,14:E6}", g, r)
Console.WriteLine("Трапеций {0,8:F6} {1,14:E6}", j, s)
Console.WriteLine("Парабол {0,8:F6} {1,14:E6}", o, t)
Console.ReadLine()
End Sub
End Module