Задача 7(1) (Программы 3)
Описание файла
Файл "Задача 7(1)" внутри архива находится в папке "Программы 3". Документ из архива "Программы 3", который расположен в категории "". Всё это находится в предмете "практика расчётов на пэвм" из 2 семестр, которые можно найти в файловом архиве МГУ им. Ломоносова. Не смотря на прямую связь этого архива с МГУ им. Ломоносова, его также можно найти и в других разделах. .
Онлайн просмотр документа "Задача 7(1)"
Текст из документа "Задача 7(1)"
Option Strict On
Module Module1
Function f(ByVal x As Double, ByVal k As Double, ByVal p As Double) As Double
Return 256 * (x ^ 5) * (p ^ 4) / (1 + 4 * x) ^ 4 / (1 - x) - 10 ^ k
End Function
Sub Main()
Dim k As Double = -2.08
Dim p As Double = 2
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) / (1 + 2 * (a + b)) * 100
Console.WriteLine("При давлении {0}атм и lg Кр = {1}", p, k)
Console.WriteLine("было получено {0:f2}% HCN", n)
Console.ReadLine()
End Sub
End Module