Задача 12.3 (1107218)

Просмтор этого файла доступен только зарегистрированным пользователям. Но у нас супер быстрая регистрация: достаточно только электронной почты!

Текст из файла

Option Strict On

Module Module1

Const eps As Double = 0.001

Const h As Double = 0.5

Function deriv(ByVal x As Double, ByVal y As Double) As Double

Return (x + y) ^ (-1)

End Function

Function brut(ByVal x As Double, ByVal y As Double, ByRef n As Integer) As Double

Dim steps As Integer = 1

Dim ylast, y1n, y2n As Double

Do

ylast = y

For i As Integer = 1 To steps

y1n = ylast + h * deriv(x + (i - 1) * h / steps, ylast) / steps

ylast = y1n

Next i

ylast = y

For i As Integer = 1 To steps * 2

y2n = ylast + h * deriv(x + (i - 1) * h / (steps * 2), ylast) / (steps * 2)

ylast = y2n

Next i

steps = steps * 2

Loop While Math.Abs((y2n - y1n) / y1n) > eps

n = steps

Return y2n

End Function

Sub Main()

Dim n As Integer

Dim xmin = 0

Dim xmax = 8

Dim max As Integer = CInt((xmax - xmin) / h)

Dim x(max) As Double

Dim y(max) As Double

x(0) = 0

y(0) = 1

Console.WriteLine(" x y y' h/2n 2n" & vbNewLine)

Console.WriteLine("-----------------------------------------------")

For i As Integer = 0 To max

If i = 0 Then

Console.WriteLine("{0:F2} {1,-7:F4} {2,-7:E1} ", x(i), y(i), deriv(x(i), y(i)))

Else

x(i) = x(i - 1) + h

y(i) = brut(x(i - 1), y(i - 1), n)

Console.WriteLine("{0:F2} {1,-7:F4} {2,-7:E1} {3,-8:E1} {4,-5} ", x(i), y(i), deriv(x(i), y(i)), h / n, n)

End If

Next i

Console.ReadLine()

End Sub

End Module

Характеристики

Тип файла документ

Документы такого типа открываются такими программами, как Microsoft Office Word на компьютерах Windows, Apple Pages на компьютерах Mac, Open Office - бесплатная альтернатива на различных платформах, в том числе Linux. Наиболее простым и современным решением будут Google документы, так как открываются онлайн без скачивания прямо в браузере на любой платформе. Существуют российские качественные аналоги, например от Яндекса.

Будьте внимательны на мобильных устройствах, так как там используются упрощённый функционал даже в официальном приложении от Microsoft, поэтому для просмотра скачивайте PDF-версию. А если нужно редактировать файл, то используйте оригинальный файл.

Файлы такого типа обычно разбиты на страницы, а текст может быть форматированным (жирный, курсив, выбор шрифта, таблицы и т.п.), а также в него можно добавлять изображения. Формат идеально подходит для рефератов, докладов и РПЗ курсовых проектов, которые необходимо распечатать. Кстати перед печатью также сохраняйте файл в PDF, так как принтер может начудить со шрифтами.

Список файлов лабораторной работы