Задача 11(1) (Программы 3)
Описание файла
Файл "Задача 11(1)" внутри архива находится в папке "Программы 3". Документ из архива "Программы 3", который расположен в категории "". Всё это находится в предмете "практика расчётов на пэвм" из 2 семестр, которые можно найти в файловом архиве МГУ им. Ломоносова. Не смотря на прямую связь этого архива с МГУ им. Ломоносова, его также можно найти и в других разделах. .
Онлайн просмотр документа "Задача 11(1)"
Текст из документа "Задача 11(1)"
Imports System.IO
Module Module1
Function fp(ByVal p As Double, ByVal t As Double)
Const k1 = 5 * 10 ^ (-2)
Const k2 = 6.5 * 10 ^ (-3)
Const a0 = 1
Return k1 * a0 * Math.Exp(-k1 * t) - k2 * p
End Function
Sub Main()
Dim out As StreamWriter
out = New StreamWriter("kinet.csv")
Dim t0, dt, tmax As Integer
Dim p As Double
t0 = 0
p = 0
tmax = 500
dt = 10
out.WriteLine(" t; [P]")
Console.WriteLine("Расчет методом Эйлера кинетики хим. реакции")
Console.WriteLine()
Console.WriteLine("Начальное значение t; 0")
Console.WriteLine("Начальное значение P; 0")
Console.WriteLine("Конечное значение t; 500")
Console.WriteLine("Шаг интегрирования; 10")
Console.WriteLine()
Console.WriteLine(" t; [P]")
For t = t0 To tmax Step dt
out.WriteLine("{0,3}; {1}", t, p)
Console.WriteLine("{0,3}; {1}", t, p)
p = p + dt * fp(p, t)
Next t
out.Close()
Console.ReadLine()
End Sub
End Module