Задача 6.1(1) (1107193)
Текст из файла
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
Характеристики
Тип файла документ
Документы такого типа открываются такими программами, как Microsoft Office Word на компьютерах Windows, Apple Pages на компьютерах Mac, Open Office - бесплатная альтернатива на различных платформах, в том числе Linux. Наиболее простым и современным решением будут Google документы, так как открываются онлайн без скачивания прямо в браузере на любой платформе. Существуют российские качественные аналоги, например от Яндекса.
Будьте внимательны на мобильных устройствах, так как там используются упрощённый функционал даже в официальном приложении от Microsoft, поэтому для просмотра скачивайте PDF-версию. А если нужно редактировать файл, то используйте оригинальный файл.
Файлы такого типа обычно разбиты на страницы, а текст может быть форматированным (жирный, курсив, выбор шрифта, таблицы и т.п.), а также в него можно добавлять изображения. Формат идеально подходит для рефератов, докладов и РПЗ курсовых проектов, которые необходимо распечатать. Кстати перед печатью также сохраняйте файл в PDF, так как принтер может начудить со шрифтами.
![](https://s.studizba.com/z.php?f=/templates/si/i/noavatar.png&w=100&h=100&t=1"){kind=avatar}
