Лб 4 по информатике. АДБ-211 Ляпин В.А. 8 4.docx. Отчет по лабораторной работе по дисциплине Информатика на тему структура развилка

• Название: Отчет по лабораторной работе по дисциплине Информатика на тему структура развилка
• Анкор: Лб 4 по информатике
• Дата: 02.04.2023
• Размер: 358.74 Kb.
• Имя файла: АДБ-211 Ляпин В.А. 8 4.docx.docx
• Тип: Отчет; #1031467

ФЕДЕРАЛЬНОЕ АГЕНТСТВО ЖЕЛЕЗНОДОРОЖНОГО ТРАНСПОРТА

Федеральное государственное бюджетное образовательное учреждение

высшего образования

«Петербургский государственный университет путей сообщения

Императора Александра I»

(ФГБОУ ВО ПГУПС)
Факультет «Транспортное строительство»

Кафедра «Информационные и вычислительные системы»

Направление 8.03.01 «Строительство»

Профиль «Автомобильные дороги»

Отчет по лабораторной работе

по дисциплине

«Информатика»

на тему: «СТРУКТУРА РАЗВИЛКА»

Форма обучения – очная

Вариант: 8

Выполнил обучающийся Курс 1 Группа АДБ-211	__________________ подпись, дата	Ляпин Валерий Алексеевич
Принял	__________________ подпись, дата

Санкт-Петербург

2023

Задание 1

1. 
   Постановка задачи
   

Как изменяется центростремительное ускорение поезда, движущегося по закруглению дороги со скоростью V в зависимости от радиуса r?

a=

где V = 60 км/ч; 200  r  1000 м с шагом 100 м

Входные данные:

r0 – начальное значение параметра цикла, вещественная переменная;

rk – конечное значение параметра цикла, вещественная переменная;

dr – шаг изменения параметра цикла, вещественная переменная.

Выходные данные:

r – параметр цикла, вещественная переменная;

a – переменная вещественного типа

2. 
   Разработка математической модели
   

a= при r0 с шагом dr

3. 
   Составление схемы алгоритма
   

4. 
   Разработка визуальной части проекта
   

5. 
   Код приложения
   

Private Sub CommandButton1_Click()

Dim r As Single, a As Single, v As Single

Dim r0 As Single, rk As Single, dr As Single

r0 = InputBox("Введите r0")

rk = InputBox("Введите rk")

dr = InputBox("Ввелите dr")

ListBox1.AddItem (" r a")

v = 60

For r = r0 To rk + dr / 2 Step dr

a = v ^ 2 / r

ListBox1.AddItem r & " " & a

Next

End Sub

6. 
   Отладка программы
   

Ручной счет:

При r = 200, a = 18

r = 500, a = 7,2

r = 800, a = 4,5

Задание 1

1. 
   Постановка задачи
   

Определить статический и динамический прогибы балки по формулам:



где E = 2 10⁶ кг/см² ; J = 2500 cм ⁴ ; Q = 4 т;

6  l  l2 м с шагом 3 м;

1  h 5 м с шагом 1 м.

Входные данные:

l₀, l_k,h₀, h_k – начальные и конечные значения параметров цикла;

dl, dh – значения шага параметров цикла, вещественные переменные.

Выходные данные:

l, h, f_ст, f _g – параметры цикла, вещественная переменная;

2. 
   Разработка математической модели
   

где l0 ≤ l ≤ lk с шагом dl

h0 ≤ h ≤ hk с шагом dh

3. 
   Составление схемы алгоритма
   

4. 
   Разработка визуальной части проекта
   

5. 
   Код приложения
   

Private Sub CommandButton1_Click()

Dim f1 As Single, f2 As Single, l As Single, h As Single, E As Single, J As Single, Q As Single

Dim l0 As Single, lk As Single, dl As Single

Dim h0 As Single, hk As Single, hY As Single

l0 = InputBox("Введите l0")

lk = InputBox("Введите lk")

dl = InputBox("Введите dl")

h0 = InputBox("Введите h0")

hk = InputBox("Введите hk")

dh = InputBox("Введите dh")

ListBox1.AddItem (" f1 ")

ListBox2.AddItem (" f2 ")

ListBox3.AddItem (" l ")

ListBox4.AddItem (" h ")

E = 2 * (10 ^ 6)

J = 2500

Q = 4

l = l0

Do While l <= lk

h = h0

Do

f1 = (Q * (l ^ 3)) / (48 * E * J)

f2 = f1 + Sqr((f1 ^ 2) + 2 * f1 * h)

ListBox1.AddItem f1

ListBox2.AddItem f2

ListBox3.AddItem l

ListBox4.AddItem h

h = h + dh

Loop Until h > hk

l = l + dl

Loop

End Sub

6. 
   Отладка программы
   

Ручной счет:

При l = 6, h = 1, f1 = 3,6E-09, f2 = 8,48E-05

l = 9, h = 3, f1 = 1,215E-08, f2 = 2,70E-04

l = 12, h = 5, f1 = 2,88E-08, f2 = 5,36E-04