Задача 11(1) (1107214)
Текст из файла
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
Характеристики
Тип файла документ
Документы такого типа открываются такими программами, как Microsoft Office Word на компьютерах Windows, Apple Pages на компьютерах Mac, Open Office - бесплатная альтернатива на различных платформах, в том числе Linux. Наиболее простым и современным решением будут Google документы, так как открываются онлайн без скачивания прямо в браузере на любой платформе. Существуют российские качественные аналоги, например от Яндекса.
Будьте внимательны на мобильных устройствах, так как там используются упрощённый функционал даже в официальном приложении от Microsoft, поэтому для просмотра скачивайте PDF-версию. А если нужно редактировать файл, то используйте оригинальный файл.
Файлы такого типа обычно разбиты на страницы, а текст может быть форматированным (жирный, курсив, выбор шрифта, таблицы и т.п.), а также в него можно добавлять изображения. Формат идеально подходит для рефератов, докладов и РПЗ курсовых проектов, которые необходимо распечатать. Кстати перед печатью также сохраняйте файл в PDF, так как принтер может начудить со шрифтами.














