Задача 11(2) (Программы 3)
Описание файла
Файл "Задача 11(2)" внутри архива находится в папке "Программы 3". Документ из архива "Программы 3", который расположен в категории "". Всё это находится в предмете "практика расчётов на пэвм" из 2 семестр, которые можно найти в файловом архиве МГУ им. Ломоносова. Не смотря на прямую связь этого архива с МГУ им. Ломоносова, его также можно найти и в других разделах. .
Онлайн просмотр документа "Задача 11(2)"
Текст из документа "Задача 11(2)"
Option Strict On
Imports System.IO
Module Module1
Function f(ByVal k1 As Double, ByVal A As Double, ByVal t As Double, ByVal k2 As Double, ByVal p As Double) As Double
Return k1 * A * Math.Exp(-k1 * t) - k2 * p
End Function
Sub Main()
Dim k1 = 0.05, k2 = 0.0065, P, P1 As Double
Dim P0 = 0, A0 = 1, t0 = 0, t2 = 500, dt = 10, t As Integer
P = P0
Console.WriteLine(" Расчет методом Эйлера кинетики хим. реакции")
Console.WriteLine()
Console.WriteLine(" Начальное значение t; {0}", t0)
Console.WriteLine(" Начальное значение P; {0}", P0)
Console.WriteLine(" Конечное значение t; {0}", t2)
Console.WriteLine(" Шаг интегрирования; {0}", dt)
Console.WriteLine()
Console.WriteLine(" t; [P]")
Dim out As StreamWriter
out = New StreamWriter("Расчет методом Эйлера кинетики хим. реакции.csv")
out.WriteLine("t;[P]")
For i As Integer = 0 To CInt((t2 - t0) / dt)
t = t0 + i * dt
If t = t0 Then
P1 = P0
Else
P1 = P + dt * f(k1, A0, t - dt, k2, P)
P = P1
End If
Console.WriteLine("{0,6}; {1}", t, P1)
out.WriteLine("{0};{1}", t, P1)
Next i
out.Close()
Console.ReadLine()
End Sub
End Module