Option Strict On (1106804)

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

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

Option Strict On

Imports System.IO

Module Module1

Sub Main()

Dim n As Integer

Dim file As StreamReader = New StreamReader("data.txt")

n = Integer.Parse(file.ReadLine())

Dim y(n - 1) As Double

Dim x(n - 1) As Double

For i As Integer = 0 To n - 1

Dim line As String = file.ReadLine()

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

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

y(i) = 1 / (Double.Parse(line.Substring(colon + 2)))

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 num As Double = 0

Dim den As Double = 0

For i As Integer = 0 To n - 1

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

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

Next i

Dim a As Double = num / den

Dim b As Double = Ymean - a * Xmean

Console.WriteLine("Уравнение прямой: Y = {0:f6} * X + {1:f6}", a, b)

Dim sx2 As Double = 0

Dim sy2 As Double = 0

Dim sxy As Double = 0

Dim sx1 As Double = sx2

Dim sy1 As Double = sy2

Dim sxy1 As Double = sxy

For i As Integer = 0 To n - 1

sx2 = x(i) ^ 2

sx1 = sx1 + sx2

sy2 = y(i) ^ 2

sy1 = sy1 + sy2

sxy = x(i) * y(i)

sxy1 = sxy1 + sxy

Next i

Dim r As Double = Math.Abs((n * sxy1 - n ^ 2 * Xmean * Ymean) / Math.Sqrt((n * sx1 - (Xmean * n) ^ 2) * (n * sy1 - (Ymean * n) ^ 2)))

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

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

Console.WriteLine("i Xi Yi a*Xi+b Delta")

Dim out As StreamWriter

out = New StreamWriter("8data.csv")

out.WriteLine("<Xi>; <Yi>; <a*Xi+b>")

For i As Integer = 0 To n - 1

Console.WriteLine("{0} {1,10:f2} {2,10:f6} {3,10:f6} {4,10:f6}", i + 1, x(i), y(i), a * x(i) + b, y(i) - (a * x(i) + b))

out.WriteLine("{0,10:f2}; {1,10:f6}; {2,10:f6}", x(i), y(i), a * x(i) + b)

Next i

out.Close()

Console.WriteLine("t0 = {0:f2}", 1 / b)

Console.WriteLine("k = {0:f2}", a)

Console.ReadLine()

End Sub

end Module

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

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

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

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

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

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