Задача 6.2(2) (Программы 3)
Описание файла
Файл "Задача 6.2(2)" внутри архива находится в папке "Программы 3". Документ из архива "Программы 3", который расположен в категории "". Всё это находится в предмете "практика расчётов на пэвм" из 2 семестр, которые можно найти в файловом архиве МГУ им. Ломоносова. Не смотря на прямую связь этого архива с МГУ им. Ломоносова, его также можно найти и в других разделах. .
Онлайн просмотр документа "Задача 6.2(2)"
Текст из документа "Задача 6.2(2)"
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 g As String
Dim a, b, c, d, e, f As Double
Console.Write("Введите шаг:")
g = Console.ReadLine
b = Double.Parse(g)
d = 0
e = 300
a = 50
c = 0
f = 0
Console.WriteLine("Шаг интегрирования по t: {0:F2}", b)
Console.WriteLine()
Console.WriteLine(" T Cp H(T)")
Console.WriteLine("---------------------------------------")
For i = d To e Step a
Do
c = c + (Cp(f) + Cp(f + b)) / 2
f = f + b
Loop While f <= i - b / 2
If i = 0 Then
Console.WriteLine(" {0,1:F0} {1,1:F0} {2,1:F0}", i, Cp(i), b * c)
Else
Console.WriteLine("{0,5} {1,10:F5} {2,10:F5}", i, Cp(i), b * c)
End If
Next i
Console.ReadLine()
End Sub
End Module