Option Strict O1 (1106803)

Просмтор этого файла доступен только зарегистрированным пользователям. Но у нас супер быстрая регистрация: достаточно только электронной почты!

Текст из файла

Option Strict On

Module Module1

Dim t As Double 'переменная температуры для функций

Dim t0 As Double 'переменный верхний предел интегрирования

Dim Cp As Double 'Cp - теплоемкость

Dim i As Integer 'i - шаг для циклов For...Next

Dim u As Double 'u - лишняя переменная

Dim Fx1 As Double 'Fx1 - лишняя переменная (я её убрал)

Dim sum As Double 'sum - интегральная сумма в методе трапеций и четных членов в методе парабол

Dim sum1 As Double 'sum1 - сумма нечетных членов в методе парабол

Dim du As Double = 0.1 'du - шаг интегрирования

Dim dt As Double = 50 'dt - шаг по температуре

Dim t1 As Double = 0 't1 - начальная температура

Dim t2 As Double = 300 't2 - конечная температура

Dim S1 As Double 'S1 - дополнительная переменная, необходима для сложения интегральных сумм в f3

Dim b As Double 'верхний предел интегрирования

Dim a As Double 'нижний предел интегрирования (обрати внимание, что в программе нигде не

'присваивается значение для a - это ошибка. Спасает, что по умолчанию всем перемменным присваивается 0)

Function f0(ByVal t As Double) As Double

Cp = (3 * Math.Log(t + 1)) / (1 + Math.Log(t + 1))

Return Cp

End Function

Function f3(ByVal t0 As Double) As Double

sum = 0

If CInt(dt / du) = (dt / du) Then

For i As Integer = 1 To CInt(dt / du - 1)

t = t0 - i * du 'здесь очень тонкий момент, необходимо в нем разобраться, чтобы слету ответить на любые вопросы

sum = sum + f0(t)

Next i

Return du * (((f0(t0) + f0(t0 - dt)) / 2) + sum)

Else : Console.WriteLine("Неверно задан шаг интегрирования")

End If

End Function

Function f4(ByVal t0 As Double) As Double

sum = 0

sum1 = 0

b = t0

For i As Integer = 1 To CInt(((b - a) / (2 * du)) - 1)

t = a + 2 * i * du

sum = sum + f0(t)

Next i

For i As Integer = 1 To CInt((b - a) / (2 * du))

t = a + (2 * i - 1) * du

sum1 = sum1 + f0(t)

Next i

Return du * (f0(a) + f0(b) + 2 * sum + 4 * sum1) / 3

End Function

Sub Main()

Console.WriteLine(" T Cp трапеции параболы") 'в твоей программе всё еще отсутствует должное оформление

Console.WriteLine("----------------------------------------------------")

Console.WriteLine(" {0} {1} {2} {3}", t1, f0(t1), 0, 0)

S1 = 0

For i As Integer = 1 To CInt((t2 - t1) / dt)

t0 = i * dt + t1

S1 = S1 + f3(t0)

Console.WriteLine("{0,8} {1,-7:F5} {2,-9:F5} {3,-9:F5}", t0, f0(t0), S1, f4(t0))

Next i

Console.ReadLine()

End Sub

End Module

Характеристики

Тип файла документ

Документы такого типа открываются такими программами, как Microsoft Office Word на компьютерах Windows, Apple Pages на компьютерах Mac, Open Office - бесплатная альтернатива на различных платформах, в том числе Linux. Наиболее простым и современным решением будут Google документы, так как открываются онлайн без скачивания прямо в браузере на любой платформе. Существуют российские качественные аналоги, например от Яндекса.

Будьте внимательны на мобильных устройствах, так как там используются упрощённый функционал даже в официальном приложении от Microsoft, поэтому для просмотра скачивайте PDF-версию. А если нужно редактировать файл, то используйте оригинальный файл.

Файлы такого типа обычно разбиты на страницы, а текст может быть форматированным (жирный, курсив, выбор шрифта, таблицы и т.п.), а также в него можно добавлять изображения. Формат идеально подходит для рефератов, докладов и РПЗ курсовых проектов, которые необходимо распечатать. Кстати перед печатью также сохраняйте файл в PDF, так как принтер может начудить со шрифтами.

Список файлов лабораторной работы