Задача 10.2(1) (Программы 3)
Описание файла
Файл "Задача 10.2(1)" внутри архива находится в папке "Программы 3". Документ из архива "Программы 3", который расположен в категории "". Всё это находится в предмете "практика расчётов на пэвм" из 2 семестр, которые можно найти в файловом архиве МГУ им. Ломоносова. Не смотря на прямую связь этого архива с МГУ им. Ломоносова, его также можно найти и в других разделах. .
Онлайн просмотр документа "Задача 10.2(1)"
Текст из документа "Задача 10.2(1)"
Option Strict On
Module Module1
Function f(ByVal x As Double, ByVal y As Double) As Double
Return 2 * (x ^ 2 + y)
End Function
Function ft(ByRef x As Double) As Double
Return 1.5 * Math.Exp(2 * x) - x ^ 2 - x - 0.5
End Function
Sub Main()
Dim x, y, z, xk, st As Double
y = 1 : z = 1 : xk = 1 : st = 0.1 : x = 0
Console.WriteLine("Начальное условие: x0 = 0, y0 = 1")
Console.WriteLine()
Console.WriteLine("x_кон. = 1 шаг по x: 0.1")
Console.WriteLine()
Console.WriteLine("x м-д Эйлера мод. м-д Эйлера Точное значение Погрешность Погрешность мод.")
Console.WriteLine("----------------------------------------------------------------------------")
Console.WriteLine("{0,3:F1}{1,12:F4}{2,12:F4}{3,12:F4} {4,12:F4}{5,12:F4}", x, y, z, ft(x), ft(x) - y, ft(x) - z)
For x = 0 To xk - st Step st
y = y + st * f(x, y)
z = z + st * f(x + st / 2, y + st / 2 * f(x, y))
Console.WriteLine("{0,3:F1}{1,12:F4}{2,12:F4}{3,12:F4} {4,12:F4}{5,12:F4}", x + st, y, z, ft(x + st), ft(x + st) - y, ft(x + st) - z)
Next x
Console.ReadLine()
End Sub
End Module