Option Strict On11 (1106806)
Текст из файла
Option Strict On
Module Module1
Function F(ByVal x As Double) As Double
Return 27 * x ^ 4 * 0.4 ^ 2 / (2 + 2 * x) ^ 2 / (1 - x) ^ 2 - 10 ^ (-2.361)
End Function
Sub Main()
Dim a As Double = 0
Dim b As Double = 1
Dim k As Double
Dim eps As Double = 0.000001
Dim Fa = F(a)
Dim Fb = F(b)
Do While Math.Abs(b - a) > 2 * eps
Dim c = (a + b) / 2
Dim Fc = F(c)
If Math.Sign(Fa) <> Math.Sign(Fc) Then
b = c
Fb = Fc
Else
a = c
Fa = Fc
End If
If Fa <> F(a) Or Fb <> F(b) Or Math.Sign(Fa) = Math.Sign(Fb) Then
Console.WriteLine("ОШИБКА")
End If
Loop
k = ((a + b) / 2)
Console.WriteLine("При давлении 0.4 атм и lg Kp = 2.361")
Console.WriteLine("было получено {0:f2}% HCN", k * 100 / (2 + 2 * k))
Console.ReadLine()
End Sub
End Module
Характеристики
Тип файла документ
Документы такого типа открываются такими программами, как Microsoft Office Word на компьютерах Windows, Apple Pages на компьютерах Mac, Open Office - бесплатная альтернатива на различных платформах, в том числе Linux. Наиболее простым и современным решением будут Google документы, так как открываются онлайн без скачивания прямо в браузере на любой платформе. Существуют российские качественные аналоги, например от Яндекса.
Будьте внимательны на мобильных устройствах, так как там используются упрощённый функционал даже в официальном приложении от Microsoft, поэтому для просмотра скачивайте PDF-версию. А если нужно редактировать файл, то используйте оригинальный файл.
Файлы такого типа обычно разбиты на страницы, а текст может быть форматированным (жирный, курсив, выбор шрифта, таблицы и т.п.), а также в него можно добавлять изображения. Формат идеально подходит для рефератов, докладов и РПЗ курсовых проектов, которые необходимо распечатать. Кстати перед печатью также сохраняйте файл в PDF, так как принтер может начудить со шрифтами.
![](https://s.studizba.com/z.php?f=/templates/si/i/noavatar.png&w=100&h=100&t=1"){kind=avatar}
