Задача 6.2(2) (1107196)
Текст из файла
Option Strict On
Module Module1
Function Cp(ByVal x As Double) As Double
Return 3 * Math.Log(x + 1) / (1 + Math.Log(x + 1))
End Function
Sub Main()
Dim g As String
Dim a, b, c, d, e, f As Double
Console.Write("Введите шаг:")
g = Console.ReadLine
b = Double.Parse(g)
d = 0
e = 300
a = 50
c = 0
f = 0
Console.WriteLine("Шаг интегрирования по t: {0:F2}", b)
Console.WriteLine()
Console.WriteLine(" T Cp H(T)")
Console.WriteLine("---------------------------------------")
For i = d To e Step a
Do
c = c + (Cp(f) + Cp(f + b)) / 2
f = f + b
Loop While f <= i - b / 2
If i = 0 Then
Console.WriteLine(" {0,1:F0} {1,1:F0} {2,1:F0}", i, Cp(i), b * c)
Else
Console.WriteLine("{0,5} {1,10:F5} {2,10:F5}", i, Cp(i), b * c)
End If
Next i
Console.ReadLine()
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}
