Задача 6.2(1) (Программы 3)
Описание файла
Файл "Задача 6.2(1)" внутри архива находится в папке "Программы 3". Документ из архива "Программы 3", который расположен в категории "". Всё это находится в предмете "практика расчётов на пэвм" из 2 семестр, которые можно найти в файловом архиве МГУ им. Ломоносова. Не смотря на прямую связь этого архива с МГУ им. Ломоносова, его также можно найти и в других разделах. .
Онлайн просмотр документа "Задача 6.2(1)"
Текст из документа "Задача 6.2(1)"
Option Strict On
Module Module1
Function Cp(ByVal x As Double) As Double
Return 3 * Math.Log(x + 1) / (1 + Math.Log(x + 1))
End Function
Sub Main()
Dim a As String
Dim St, StInt, Ht, T1, T2, ii As Double
Console.Write("Введите шаг:")
a = Console.ReadLine
StInt = Double.Parse(a)
' StInt = 0.1
T1 = 0
T2 = 300
St = 50
Ht = 0
ii = 0
Console.WriteLine("Шаг интегрирования по t: {0:F2}", StInt)
Console.WriteLine()
Console.WriteLine(" T Cp H(T)")
Console.WriteLine("-----------------------------------")
For i = T1 + St To T2 Step St
If i = T1 + St Then Console.WriteLine("{0,5} {1,10} {2,10}", i - St, Cp(i - St), Ht * StInt)
Do
Ht = Ht + (Cp(ii) + Cp(ii + StInt)) / 2
ii = ii + StInt
Loop While ii <= i - StInt / 2
Console.WriteLine("{0,5} {1,10:F5} {2,10:F5}", i, Cp(i), Ht * StInt)
Next i
Console.ReadLine()
End Sub
End Module