Задача 10.1(1) (Программы 3)
Описание файла
Файл "Задача 10.1(1)" внутри архива находится в папке "Программы 3". Документ из архива "Программы 3", который расположен в категории "". Всё это находится в предмете "практика расчётов на пэвм" из 2 семестр, которые можно найти в файловом архиве МГУ им. Ломоносова. Не смотря на прямую связь этого архива с МГУ им. Ломоносова, его также можно найти и в других разделах. .
Онлайн просмотр документа "Задача 10.1(1)"
Текст из документа "Задача 10.1(1)"
Option Strict On
Imports System.IO
Module Module1
Function f(ByVal x As Double, ByVal y As Double) As Double
Return x + y
End Function
Function ft(ByRef x As Double) As Double
Return Math.Exp(x) - x - 1
End Function
Sub Main()
Dim out As StreamWriter = New StreamWriter("123.csv")
out.WriteLine("x(i);y(i)")
Dim x, y, xk, st As Double
y = 0 : xk = 1 : st = 0.1 : x = 0
Console.WriteLine("x м-д Эйлера Точное значение Погрешность ")
Console.WriteLine("-------------------------------------------------")
Console.WriteLine("{0,3:f1}{1,12:f4}{2,12:f4}{3,12:f4}", x, y, ft(x), ft(x) - y)
For x = 0 To xk - st Step st
y = y + st * f(x, y)
out.WriteLine("{0};{1}", x, y)
Console.WriteLine("{0,3:f1}{1,12:f4}{2,12:f4}{3,12:f4}", x + st, y, ft(x + st), ft(x + st) - y)
Next x
out.Close()
Console.ReadLine()
End Sub
End Module