Option Strict On 1 (Программы по ЭВМ)
Описание файла
Файл "Option Strict On 1" внутри архива находится в папке "Программы по ЭВМ". Документ из архива "Программы по ЭВМ", который расположен в категории "". Всё это находится в предмете "практика расчётов на пэвм" из 2 семестр, которые можно найти в файловом архиве МГУ им. Ломоносова. Не смотря на прямую связь этого архива с МГУ им. Ломоносова, его также можно найти и в других разделах. .
Онлайн просмотр документа "Option Strict On 1"
Текст из документа "Option Strict On 1"
Option Strict On
Imports System.IO
Module Module1
Const k1 As Double = 0.05
Const k2 As Double = 0.0065
Function der(ByVal P As Double, ByVal t As Double, ByVal A As Double) As Double
Return k1 * A * Math.Exp(-k1 * t) - k2 * P
End Function
Sub Main()
Dim writer As StreamWriter = New StreamWriter("Output.csv")
Dim t0, P, A, h, fint, t As Double
Console.WriteLine("Рассчёт методом Эйлера кинетики химической реакции" & vbNewLine)
Console.Write("Начальное значение t;")
t0 = Double.Parse(Console.ReadLine())
Console.Write("Начальное значение P;")
P = Double.Parse(Console.ReadLine())
Console.Write("Конечное значение t;")
fint = Double.Parse(Console.ReadLine())
Console.Write("Шаг интегрирования; ")
h = Double.Parse(Console.ReadLine())
A = 1
Console.WriteLine()
Console.WriteLine(" T:[P]")
writer.WriteLine("Рассчёт методом Эйлера кинетики химической реакции")
writer.WriteLine("Начальное значение t;{0}", t0)
writer.WriteLine("Начальное значение P;{0}", P)
writer.WriteLine("Конечное значение t;{0}", fint)
writer.WriteLine("Шаг интегрирования; {0}", h)
writer.WriteLine(" T:[P]")
For i As Integer = 0 To CInt((fint - t0) / h)
t = t0 + i * h
Console.WriteLine("{0,5};{1}", t, P)
writer.WriteLine("{0,5};{1}", t, P)
P += der(P, t, A) * h
Next i
writer.Close()
Console.ReadLine()
End Sub
End Module
Ответ
Даша, при входе в цикл у Вас есть начальные значения аргумента и функции, Вы можете вычислить значения функции в следующей точке. Именно так измените свою программу. Уточните полученные результаты с помощью модифицированного метода Эйлера.