Option Strict On 2 (Программы по ЭВМ)
Описание файла
Файл "Option Strict On 2" внутри архива находится в папке "Программы по ЭВМ". Документ из архива "Программы по ЭВМ", который расположен в категории "". Всё это находится в предмете "практика расчётов на пэвм" из 2 семестр, которые можно найти в файловом архиве МГУ им. Ломоносова. Не смотря на прямую связь этого архива с МГУ им. Ломоносова, его также можно найти и в других разделах. .
Онлайн просмотр документа "Option Strict On 2"
Текст из документа "Option Strict On 2"
Option Strict On
Module Module1
Sub Main()
Dim w, T1, T2, e, ENEXT, ENEXT2, s, SUM, SUM2, ESR As Double
Dim v As Integer
Dim probel As String
Const k As Double = 0.0000000000000001381
Const h As Double = 0.0000000000000001986
e = 0.000001
T1 = 100
T2 = 2000
s = 100
w = 10
Do Until w > 1000
Console.WriteLine()
Console.WriteLine(" Частота колебания: {0} (см-1)", w)
Console.WriteLine(" T | Fv | <Ev>/h")
Console.WriteLine(" -------------------------------------")
For T0 As Double = T1 To T2 Step s
v = 0
SUM = 0
SUM2 = 0
ENEXT = Math.Exp(-((v + 0.5) * h * w / k / T0))
Do Until ENEXT < e
ENEXT = Math.Exp(-((v + 0.5) * h * w / k / T0))
SUM = SUM + ENEXT
ENEXT2 = (v + 0.5) * h * w * ENEXT
SUM2 = SUM2 + ENEXT2
v = v + 1
Loop
ESR = SUM2 / SUM
Console.WriteLine(" {0,-5}| {1,-10:F4}| {2,-20:E8}", T0, SUM, ESR / h)
Next T0
w = w * 10
Do
Console.WriteLine("Введите ""далее"" для продолжения, нажмите Enter")
probel = Console.ReadLine
Loop Until probel = "далее"
Loop
Console.WriteLine("Извините, но программа завершена")
Console.ReadLine()
End Sub
End Module