Задача 7(3) (Программы 3)
Описание файла
Файл "Задача 7(3)" внутри архива находится в папке "Программы 3". Документ из архива "Программы 3", который расположен в категории "". Всё это находится в предмете "практика расчётов на пэвм" из 2 семестр, которые можно найти в файловом архиве МГУ им. Ломоносова. Не смотря на прямую связь этого архива с МГУ им. Ломоносова, его также можно найти и в других разделах. .
Онлайн просмотр документа "Задача 7(3)"
Текст из документа "Задача 7(3)"
Option Strict On
Module Module1
Function f(ByVal x As Double, ByVal k As Double, ByVal p As Double) As Double
Return (1 - x) * (1 + x * 4) ^ 4 / (((4 * x) ^ 4) * x * p ^ 4) - 10 ^ k
End Function
Sub Main()
Dim k As Double = 2.081
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