10.1(шаг) (Программы 2)
Описание файла
Файл "10.1(шаг)" внутри архива находится в папке "Программы 2". Документ из архива "Программы 2", который расположен в категории "". Всё это находится в предмете "практика расчётов на пэвм" из 2 семестр, которые можно найти в файловом архиве МГУ им. Ломоносова. Не смотря на прямую связь этого архива с МГУ им. Ломоносова, его также можно найти и в других разделах. .
Онлайн просмотр документа "10.1(шаг)"
Текст из документа "10.1(шаг)"
Module Module1
Function F(ByVal x As Double, ByVal y As Double) As Double
F = x + y
End Function
Function Teor(ByVal x As Double) As Double
Teor = Math.Exp(x) - x - 1
End Function
Sub Main()
Dim x, y, x1, y1 As Double
Dim x0 As Double = 0
Dim xn As Double = 1
Dim dx As Double = 0.1
Dim dx1 As Double = 2 * dx
Dim y0 As Double = 0
x1 = x0
x = x0
y1 = y0
y = y0
Console.WriteLine("Начальное условие: х0 = {0}, y0 = {1}", x0, y0)
Console.WriteLine()
Console.WriteLine("х_кон. = {0} шаг по х: {1}", xn, dx)
Console.WriteLine()
Console.WriteLine(" х м-д Эйлера Точн.знач. Погрешность м-д Эйлера Погрешность")
Console.WriteLine(" шаг dx шаг dx шаг 2dx шаг 2dx")
Console.WriteLine("---------------------------------------------------------------------")
Console.WriteLine("{0,4:F1} {1,9:F4} {2,10:F4} {3,10:F4} {4,12:F4} {5,12:F4}", x, y, Teor(x), Teor(x) - y, y1, Teor(x1) - y1)
For i As Integer = 1 To CInt((xn - x0) / dx1)
For j As Integer = 0 To 1
y = y + dx * F(x, y)
x = x + dx
Next j
y1 = y1 + dx1 * F(x1, y1)
x1 = x1 + dx1
Console.WriteLine("{0,4:F1} {1,9:F4} {2,10:F4} {3,10:F4} {4,12:F4} {5,12:F4}", x, y, Teor(x), Teor(x) - y, y1, Teor(x1) - y1)
Next i
Console.ReadLine()
End Sub
End Module