Задача 7.6(1) (Программы 3)
Описание файла
Файл "Задача 7.6(1)" внутри архива находится в папке "Программы 3". Документ из архива "Программы 3", который расположен в категории "". Всё это находится в предмете "практика расчётов на пэвм" из 2 семестр, которые можно найти в файловом архиве МГУ им. Ломоносова. Не смотря на прямую связь этого архива с МГУ им. Ломоносова, его также можно найти и в других разделах. .
Онлайн просмотр документа "Задача 7.6(1)"
Текст из документа "Задача 7.6(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 e As Double = 0.000001
Dim n As Double
Do While Math.Abs(b - a) > e
Dim c As Double = (a + b) / 2
If f(a, k, p) * f(c, k, p) < 0 Then
b = c
Else
a = c
End If
Loop
n = ((a + b) / 2) / (1 + 2 * (a + b)) * 100
Console.WriteLine("При давлении {0} атм и lg Kp = {1}", p, k)
Console.WriteLine("Было получено {0:F2}% (CH3)2C6H4", n)
Console.ReadLine()
End Sub
End Module