11_2шага (Программы 2)
Описание файла
Файл "11_2шага" внутри архива находится в папке "Программы 2". Документ из архива "Программы 2", который расположен в категории "". Всё это находится в предмете "практика расчётов на пэвм" из 2 семестр, которые можно найти в файловом архиве МГУ им. Ломоносова. Не смотря на прямую связь этого архива с МГУ им. Ломоносова, его также можно найти и в других разделах. .
Онлайн просмотр документа "11_2шага"
Текст из документа "11_2шага"
Option Strict On
Module Module1
Function T(ByVal x As Double) As Double
Return Math.Exp(x) - x - 1
End Function
Function F(ByVal x As Double, ByVal y As Double) As Double
Return x + y
End Function
Sub Main()
Dim x, y, x1, y1 As Double
Dim x0 As Double = 0
Dim y0 As Double = 0
Dim xk As Double = 1
Dim h As Double = 0.1
Dim h1 As Double = 2 * h
Dim dx As Integer = CInt((xk - x0) / h1)
Console.WriteLine(" Начальное условие : х0 = {0}, y0 = {1}", x0, y0)
Console.WriteLine()
Console.WriteLine(" х_кон. = {0} шаг по х: {1}", xk, h)
Console.WriteLine()
Console.WriteLine(" х м-д Эйлера Точное значение Погрешность ")
Console.WriteLine(" шаг h шаг 2h шаг h шаг 2h шаг h шаг 2h")
Console.WriteLine("------------------------------------------------------")
x1 = x0
x = x0
y1 = y0
y = y0
Console.WriteLine(" {0:f1} {1,8:f4} {2,12:f4} {3,14:f4}", x, y, T(x), T(x) - y)
For i As Integer = 1 To dx
y = y + h * F(x, y)
x = x + h
Console.WriteLine(" {0:f1} {1,8:f4} {2,8:f4} {3,8:f4} {4,8:f4} {5,12:f4} {6,12:f4}", x, y, y1, T(x), T(x1), T(x) - y, T(x1) - y1)
Next i
Console.ReadLine()
End Sub
End Module