Задача 5(3) (1107190)
Текст из файла
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
Характеристики
Тип файла документ
Документы такого типа открываются такими программами, как Microsoft Office Word на компьютерах Windows, Apple Pages на компьютерах Mac, Open Office - бесплатная альтернатива на различных платформах, в том числе Linux. Наиболее простым и современным решением будут Google документы, так как открываются онлайн без скачивания прямо в браузере на любой платформе. Существуют российские качественные аналоги, например от Яндекса.
Будьте внимательны на мобильных устройствах, так как там используются упрощённый функционал даже в официальном приложении от Microsoft, поэтому для просмотра скачивайте PDF-версию. А если нужно редактировать файл, то используйте оригинальный файл.
Файлы такого типа обычно разбиты на страницы, а текст может быть форматированным (жирный, курсив, выбор шрифта, таблицы и т.п.), а также в него можно добавлять изображения. Формат идеально подходит для рефератов, докладов и РПЗ курсовых проектов, которые необходимо распечатать. Кстати перед печатью также сохраняйте файл в PDF, так как принтер может начудить со шрифтами.
![](https://s.studizba.com/z.php?f=/templates/si/i/noavatar.png&w=100&h=100&t=1"){kind=avatar}
