Задача 2.6 (1107182)

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

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

Option Strict On

Module Module1

Sub Main()

Dim v As Double = 0

Dim v1 As Double = 0

Dim w As Double = 1

Dim e As Double = 10 ^ (-6)

Dim Ev As Double

Dim Ev1 As Double

Dim Fv As Double

Dim g, y As Double

Const k As Double = 1.381 * 10 ^ (-16)

Const h As Double = 1.986 * 10 ^ (-16)

Do While w < 1000

w = w * 10

Console.WriteLine()

Console.WriteLine("Частота колебания: {0} (см-1)", w)

Console.WriteLine()

Console.WriteLine("T | Fv | <Ev>/h (см-1) ")

Console.WriteLine("------------------------------------------------")

For T As Double = 100 To 2000 Step 100

Fv = 0

v = -1

v1 = -1

Ev1 = 0

Ev = 0

Do

v = v + 1

y = Math.E ^ (-(v + 0.5) * h * w / (k * T))

Fv = Fv + y

Loop While Math.E ^ (-(v + 0.5) * h * w / (k * T)) > e

Do

v1 = v1 + 1

g = ((v1 + 0.5) * h * w * (Math.E) ^ (-(v1 + 0.5) * h * w / (k * T))) / Fv

Ev = Ev + g

Loop While Math.E ^ (-(v1 + 0.5) * h * w / (k * T)) > e

Ev1 = Ev / h

Console.WriteLine("{0,-4} | {1,-8:F4} | {2,-15:E8} ", T, Fv, Ev1)

Next T

Loop

Console.ReadLine()

End Sub

End Module

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

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

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

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

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

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