Задача 7(2) (1107198)
Текст из файла
Option Strict On
Module Module1
Function f(ByVal x As Double, ByVal k As Double, ByVal p As Double) As Double
Return x * ((3 - 2 * x) ^ 2) / ((1 - x) ^ 3) / (p ^ 2) - 10 ^ k
End Function
Sub Main()
Dim k As Double = 2.361
Dim p As Double = 0.4
Dim a As Double = 0
Dim b As Double = 1
Dim Fa As Double = f(a, k, p)
Dim Fb As Double = f(b, k, p)
Dim e As Double = 0.000001
Dim n As Double
Do While Math.Abs(b - a) > e
Dim c As Double = (a + b) / 2
Dim Fc As Double = f(c, k, p)
If Fa * Fc < 0 Then
b = c
Fb = Fc
Else
a = c
Fa = Fc
End If
Loop
n = ((a + b) / 2) / (3 - a - b) * 100
Console.WriteLine("При давлении {0}атм и lg Кр = {1}", p, k)
Console.WriteLine("было получено {0:f2}% HCN", n)
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}
