Задача 13(2) (1107222)

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

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

Option Strict On

Imports System.IO

Module Module1

Const h As Double = 0.001

Const mass As Double = 1

Function a(ByVal x As Double) As Double

Return -2 * (1 - Math.Exp(-x)) * Math.Exp(-x) / mass

End Function

Sub Main()

Dim file As StreamWriter = New StreamWriter("data.csv")

Dim max As Integer = CInt(30 / h)

Dim x(max) As Double

Dim v(max) As Double

x(0) = 2

v(0) = 0

Dim T As Double

Dim time As Double

Dim i As Double

Dim abc, b As Double

Dim n As Integer = 0

file.WriteLine("t; x(t); v(t)")

Do While i < 30

If i = 0 Then

file.WriteLine("{0};{1};{2}", i * h, x(0), v(0))

Else

x(CInt(i / h)) = x(CInt(i / h) - 1) + h * v(CInt(i / h) - 1)

v(CInt(i / h)) = v(CInt(i / h) - 1) + h * a(x(CInt(i / h) - 1))

file.WriteLine("{0};{1};{2}", i, x(CInt(i / h)), v(CInt(i / h)))

abc = Math.Sign(v(CInt(i / h) - 1))

b = Math.Sign(v(CInt(i / h)))

If abc <> b Then

T = i - time

time = i

End If

End If

i = i + h

Loop

file.WriteLine(T * 2)

file.Close()

End Sub

End Module

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

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

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

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

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

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