Задача 6.1(1) (Программы 3)
Описание файла
Файл "Задача 6.1(1)" внутри архива находится в папке "Программы 3". Документ из архива "Программы 3", который расположен в категории "". Всё это находится в предмете "практика расчётов на пэвм" из 2 семестр, которые можно найти в файловом архиве МГУ им. Ломоносова. Не смотря на прямую связь этого архива с МГУ им. Ломоносова, его также можно найти и в других разделах. .
Онлайн просмотр документа "Задача 6.1(1)"
Текст из документа "Задача 6.1(1)"
Module Module1
Function f(ByVal s As Double, ByVal r As Double) As Double
Return Math.E ^ (-0.0076 * s ^ 2) * Math.Sin(2.67 * s - 0.00004 * s ^ 3) * Math.Sin(s * r) / (s ^ 2 * r)
End Function
Sub Main()
Dim s1, u As String
Dim s, r, c, c1 As Double
Dim p As Double = 10 ^ (-10)
Console.BackgroundColor = ConsoleColor.White
Console.Clear()
Console.ForegroundColor = ConsoleColor.DarkBlue
Do
Do
Console.Clear()
Console.WriteLine()
Console.ForegroundColor = ConsoleColor.DarkBlue
Console.Write(" Введите шаг интегрирования по s: ")
s1 = Console.ReadLine
s = Double.Parse(s1)
If s1 <= 0.1 Then
Console.ForegroundColor = ConsoleColor.DarkRed
Console.WriteLine(" Шаг интегрирования должен быть не меньше 0.1! Для продолжения нажмите enter")
Else
Console.ForegroundColor = ConsoleColor.DarkGreen
Console.WriteLine(" Для начала вычислений нажмите enter")
End If
Console.ReadLine()
Loop While s <= 0.1
Console.ForegroundColor = ConsoleColor.DarkBlue
Console.WriteLine(" r P(r) ")
Console.WriteLine("---------------------------")
r = 2.2
Do While r <= 3
c = 0
For i As Double = s To 30 - s Step s
c = c + f(i, r)
Next
c1 = (c + 0.5 * (f(p, r) + f(30, r))) * s
Console.WriteLine(" {0,4:F2} {1,8:F5} ", r, c1)
r = r + 0.05
Loop
Console.WriteLine()
Console.Write(" для продолжения нажмите")
Console.ForegroundColor = ConsoleColor.DarkGreen
Console.Write(" enter")
Console.ForegroundColor = ConsoleColor.DarkBlue
Console.Write(", для выхода наберите")
Console.ForegroundColor = ConsoleColor.DarkGreen
Console.WriteLine(" exit ")
u = Console.ReadLine
Loop While u <> "exit"
End Sub
End Module