Задача 8.4 (1107205)

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

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

Option Strict On

Imports System.IO

Module Module1

Function x1(ByVal t As Double) As Double

Return 1 / (273.15 + t)

End Function

Function y1(ByVal B As Double, ByVal t As Double, ByVal k As Double, ByVal p As Double) As Double

Return B * Math.Log10(273.15 + t) + Math.Log10(k * p)

End Function

Sub Main()

Dim B, k, R, DHv As Double

B = 0.8403

k = 133.322

R = 8.31441

Dim N As Integer

Dim reader As StreamReader = New StreamReader("TextFile1.txt")

N = Integer.Parse(reader.ReadLine)

Dim x(N - 1) As Double

Dim y(N - 1) As Double

For i As Integer = 0 To N - 1

Dim line As String = reader.ReadLine

Dim semicolon As Integer = line.IndexOf(";")

x(i) = x1(Double.Parse(line.Substring(0, semicolon)))

y(i) = y1(B, Double.Parse(line.Substring(0, semicolon)), k, Double.Parse(line.Substring(semicolon + 1)))

Next i

Dim Xmean As Double = 0

Dim Ymean As Double = 0

For i As Integer = 0 To N - 1

Xmean = Xmean + x(i)

Ymean = Ymean + y(i)

Next i

Xmean = Xmean / N

Ymean = Ymean / N

Dim numerator As Double = 0

Dim denominator As Double = 0

Dim summXiYi As Double = 0

Dim summXi As Double = 0

Dim summYi As Double = 0

Dim summXi2 As Double = 0

Dim summYi2 As Double = 0

For i As Integer = 0 To N - 1

numerator = numerator + (x(i) - Xmean) * (y(i) - Ymean)

denominator = denominator + (x(i) - Xmean) ^ 2

summXiYi = summXiYi + x(i) * y(i)

summXi = summXi + x(i)

summYi = summYi + y(i)

summXi2 = summXi2 + x(i) ^ 2

summYi2 = summYi2 + y(i) ^ 2

Next i

reader.Close()

Dim C As Double = numerator / denominator

Dim A As Double = Ymean - C * Xmean

Dim korr As Double = Math.Abs(N * summXiYi - summXi * summYi) / Math.Sqrt((N * summXi2 - (summXi) ^ 2) * (N * summYi2 - summYi ^ 2))

Console.WriteLine(" Уравнение прямой:")

Console.WriteLine()

Console.WriteLine(" Y= {0:F6} * X + {1:F6}", C, A)

Console.WriteLine()

Console.WriteLine()

Console.WriteLine(" Коэффициент корреляции: r = {0:f4}", korr)

Console.WriteLine()

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

Console.WriteLine()

Console.WriteLine(" i Xi 1/Xi Yi A*Xi+B Delta")

Console.WriteLine()

Dim reader2 As StreamReader = New StreamReader("TextFile1.txt")

Dim N2 As Integer = Integer.Parse(reader2.ReadLine)

Dim x2(N - 1) As Double

Dim y2(N - 1) As Double

For i As Integer = 0 To N - 1

Dim line2 As String = reader2.ReadLine

Dim semicolon2 As Integer = line2.IndexOf(";")

x2(i) = x1(Double.Parse(line2.Substring(0, semicolon2)))

y2(i) = y1(B, Double.Parse(line2.Substring(0, semicolon2)), k, Double.Parse(line2.Substring(semicolon2 + 1)))

Console.WriteLine(" {0,2:f0} {1,7:f2} {2:f5} {3:f4} {4:f4} {5,9:F6}", i + 1, 1 / x2(i), x2(i), y2(i), C * (x2(i)) + A, y2(i) - (C * (x2(i)) + A))

Next i

DHv = -C * R * Math.Log(10)

Console.WriteLine()

Console.WriteLine("DHv = {0,1:f1}", DHv)

Console.ReadLine()

End Sub

End Module

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

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

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

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

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

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