Задача 1.6 (1107181)

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

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

Sub Main()

Dim T, M, p, p0, k, u As Double

Const R As Double = 8.31441

k = 1.402

T = 293

M = 28.96

p0 = 2.4

p = 1.2

u = Math.Sqrt((2 * R * T * (k / (k - 1)) / (M / 1000)) * (1 - p / p0) ^ ((k - 1) / k))

Console.WriteLine("При температуре {0} K", T)

Console.WriteLine(" молярной массе {0} г/моль", M)

Console.WriteLine(" Cp/Cv {0} ", k)

Console.WriteLine(" внешнем давлении {0} атм.", p)

Console.WriteLine(" внутреннем давлении {0} атм.", p0)

Console.WriteLine(" ")

Console.WriteLine("u ={0} м/с", u)

Console.ReadLine()

End Sub

Module Module1

Sub Main()

Dim T, M, p, p0, k, u As Double

Dim pmin As Double = 1.1

Dim pmax As Double = 1.9

Dim dp As Double = 0.1

Const R As Double = 8.31441

k = 1.402

T = 293

M = 28.96

p0 = 2.4

Console.WriteLine("При температуре {0} K", T)

Console.WriteLine(" молярной массе {0} г/моль", M)

Console.WriteLine(" Cp/Cv {0} ", k)

Console.WriteLine(" внутреннем давлении {0} атм.", p0)

Console.WriteLine(" ")

Console.WriteLine("Выполнены расчеты для значений внешнего давления от {0}атм. до {1}атм. с шагом {2}атм.", pmin, pmax, dp)

Console.WriteLine(" p(атм.) | u(м/с)")

For i As Integer = 0 To CInt((pmax - pmin) / dp)

p = pmin + i * dp

u = Math.Sqrt((2 * R * T * (k / (k - 1)) / (M / 1000)) * (1 - p / p0) ^ ((k - 1) / k))

Console.WriteLine("{0} | {1}", p, u)

Next i

Console.ReadLine()

End Sub

End Module

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

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

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

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

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

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