11 (1106788)

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

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

Option Strict On

Imports System.IO

Module Module1

Dim k1 As Double = 0.05

Dim k2 As Double = 0.0065

Dim A0 As Double = 1

Function Pt(ByVal t As Double, ByVal P As Double) As Double

Return Math.Exp(-k1 * t) * k1 * A0 - k2 * P

End Function

Sub Main()

Dim t0 As Double = 0

Dim P0 As Double = 0

Dim tk As Double = 500

Dim h As Double = 10

Dim t As Double

Dim dt As Integer = CInt((tk - t0) / h)

Dim P(dt) As Double

Console.WriteLine(" Расчёт методом Эйлера кинетики хим. реакции")

Console.WriteLine()

Console.WriteLine(" Начальное значение t; {0} ", t0)

Console.WriteLine(" Начальное значение P; {0} ", P0)

Console.WriteLine(" Конечное значение t; {0} ", tk)

Console.WriteLine(" Шаг интегрирования; {0}", h)

Console.WriteLine()

Console.WriteLine(" t; [P]")

For i As Integer = 0 To dt

If i = 0 Then

P(0) = P0

End If

If i <> 0 Then

P(i) = P(i - 1) + h * Pt(t0 + (i - 1) * h, P(i - 1))

End If

Next i

Dim out As StreamWriter

out = New StreamWriter("11.csv")

out.WriteLine(" t; [P]")

For i As Integer = 0 To dt

Console.WriteLine(" {0,10}; {1}", i * h, P(i))

out.WriteLine("{0,10}; {1}", i * h, P(i))

Next i

out.Close()

Console.ReadLine()

End Sub

End Module

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

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

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

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

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

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