Задача 4(1) (Программы 3)
Описание файла
Файл "Задача 4(1)" внутри архива находится в папке "Программы 3". Документ из архива "Программы 3", который расположен в категории "". Всё это находится в предмете "практика расчётов на пэвм" из 2 семестр, которые можно найти в файловом архиве МГУ им. Ломоносова. Не смотря на прямую связь этого архива с МГУ им. Ломоносова, его также можно найти и в других разделах. .
Онлайн просмотр документа "Задача 4(1)"
Текст из документа "Задача 4(1)"
Часть 1
Option Strict On
Module Module1
Sub Main()
Dim A, B, C, D, F, H, I, J, n As Double
A = 100
B = 0.2
C = 5
n = 0
H = 0
J = 0.0000000001
Do
n = n + 1
D = Math.E ^ (((-2) * (n ^ 2) * (Math.PI ^ 2) * C) / (9 * A))
I = ((30 / (n * Math.PI)) * D * (Math.Cos(Math.PI * n) - 1) * Math.Sin(Math.PI * n * B / 3))
H = I + H
Loop While Math.E ^ (((-2) * (n ^ 2) * (Math.PI ^ 2) * C) / (9 * A)) > J
F = 10 * B + 10 + H
Console.WriteLine("При L = {0} и t = {1}", B, C)
Console.WriteLine("Температура = {0:F3}", F)
Console.ReadLine()
End Sub
End Module
Часть 2
Option Strict On
Module Module1
Sub Main()
Dim A, C, D, F, H, I, J, n As Double
Dim W, R As Double
W = 0.2
R = 2.8
Console.WriteLine("t = {0}", C)
Console.WriteLine()
Console.WriteLine(" L Температура")
Console.WriteLine("---------------------")
For B As Double = W To CInt(R - W) Step 0.2
A = 100
C = 1
n = 0
H = 0
J = 0.0000000001
Do
n = n + 1
D = Math.E ^ (((-2) * (n ^ 2) * (Math.PI ^ 2) * C) / (9 * A))
I = ((30 / (n * Math.PI)) * D * (Math.Cos(Math.PI * n) - 1) * Math.Sin(Math.PI * n * B / 3))
H = I + H
Loop While Math.E ^ (((-2) * (n ^ 2) * (Math.PI ^ 2) * C) / (9 * A)) > J
F = 10 * B + 10 + H
Console.WriteLine("{0,3} {1,5:F3}", B, F)
Next B
Console.ReadLine()
End Sub
End Module