Задача 11(2) (1107216)

Просмтор этого файла доступен только зарегистрированным пользователям. Но у нас супер быстрая регистрация: достаточно только электронной почты!

Текст из файла

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

Характеристики

Тип файла документ

Документы такого типа открываются такими программами, как Microsoft Office Word на компьютерах Windows, Apple Pages на компьютерах Mac, Open Office - бесплатная альтернатива на различных платформах, в том числе Linux. Наиболее простым и современным решением будут Google документы, так как открываются онлайн без скачивания прямо в браузере на любой платформе. Существуют российские качественные аналоги, например от Яндекса.

Будьте внимательны на мобильных устройствах, так как там используются упрощённый функционал даже в официальном приложении от Microsoft, поэтому для просмотра скачивайте PDF-версию. А если нужно редактировать файл, то используйте оригинальный файл.

Файлы такого типа обычно разбиты на страницы, а текст может быть форматированным (жирный, курсив, выбор шрифта, таблицы и т.п.), а также в него можно добавлять изображения. Формат идеально подходит для рефератов, докладов и РПЗ курсовых проектов, которые необходимо распечатать. Кстати перед печатью также сохраняйте файл в PDF, так как принтер может начудить со шрифтами.

Список файлов лабораторной работы