Задача 4(2) (Программы 3)
Описание файла
Файл "Задача 4(2)" внутри архива находится в папке "Программы 3". Документ из архива "Программы 3", который расположен в категории "". Всё это находится в предмете "практика расчётов на пэвм" из 2 семестр, которые можно найти в файловом архиве МГУ им. Ломоносова. Не смотря на прямую связь этого архива с МГУ им. Ломоносова, его также можно найти и в других разделах. .
Онлайн просмотр документа "Задача 4(2)"
Текст из документа "Задача 4(2)"
Часть 3
Option Strict On
Module Module1
Sub Main()
Dim a, b, c, d, e, f, g, h, i, j As Double
i = 0.2
j = 2.8
h = 0.2
Dim l As Integer
Dim t As String
Console.WriteLine("Время?")
t = Console.ReadLine
l = Integer.Parse(t)
Console.WriteLine("L t (время)")
For r As Integer = 1 To l
Console.Write(" {0}", r)
Next r
Console.WriteLine()
Console.Write("---")
For r As Integer = 1 To l
Console.Write("-------")
Next r
Console.WriteLine()
For k As Integer = 0 To CInt((j - i) / h)
e = i + k * h
Console.Write("{0,3:F1}", e)
For r As Integer = 1 To l Step 1
a = 100
g = 0
d = 0
f = 0.0000000001
Do
g = g + 1
b = Math.Exp(((-2) * (g ^ 2) * (Math.PI ^ 2) * l) / (9 * a))
d = d + ((30 / (g * Math.PI)) * b * (Math.Cos(Math.PI * g) - 1) * Math.Sin(Math.PI * g * e / 3))
Loop While b > f
c = 10 * e + 10 + d
Console.Write(" {0,6:F3}", c)
Next r
Console.WriteLine()
Next k
Console.ReadLine()
End Sub
End Module