Задача 6.1(2) (Программы 3)
Описание файла
Файл "Задача 6.1(2)" внутри архива находится в папке "Программы 3". Документ из архива "Программы 3", который расположен в категории "". Всё это находится в предмете "практика расчётов на пэвм" из 2 семестр, которые можно найти в файловом архиве МГУ им. Ломоносова. Не смотря на прямую связь этого архива с МГУ им. Ломоносова, его также можно найти и в других разделах. .
Онлайн просмотр документа "Задача 6.1(2)"
Текст из документа "Задача 6.1(2)"
Option Strict On
Module Module1
Function P(ByVal s As Double, ByVal r As Double) As Double
Return Math.Exp(-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 h As Double = 0.2
Dim Sq As Double = 0
Dim Sqs As Double = 0
Console.WriteLine("Шаг интегрирования по s: {0:F}" & vbNewLine, h)
Console.WriteLine(" z F(z)" & vbNewLine & "----------------------------")
For r As Double = 2.2 To 3.0 Step 0.05
For s As Double = 10 ^ -10 To 30 Step h
Sq = h * (P(s, r) + P(s + h, r)) / 2
Sqs = Sqs + Sq
Next s
Console.WriteLine("{0,7:F2} {1,-13:F5}", r, Sqs)
Sq = 0
Sqs = 0
Next r
Console.ReadLine()
End Sub
End Module