Старые отчёты / Инфoрматика / Лабораторные по Информатике / Лабораторная работа Следование 1 / Вариант30

Федеральное агенство железнодорожного транспорта

ГОСУДАРСТВЕННОЕ ОБРАЗОВАТЕЛЬНОЕ УЧРЕЖДЕНИЕ

ВЫСШЕГО ПРОФЕССИОНАЛЬНОГО ОБРАЗОВАНИЯ

«ПЕТЕРБУРГСКИЙ ГОСУДАРСТВЕННЫЙ УНИВЕРСИТЕТ

ПУТЕЙ СООБЩЕНИЯ»

Кафедра «Информатика и информационная безопасность»

Отчёт к лабораторной работе №1:

«Структура Следование»

Работу выполнил Работу принял

Студент группы ЭТ-802

Шакиров И.В.

Вариант№25

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

2008

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

M = 50.2

Tn = 8*10^(-4)

E=0.3

q=(TAN(b))/((c+ABS(x))^(1/3))

f=-(COS(x))^2+SIN(x^2)

z=LOG(a+b)*EXP(a+b)

2.

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

1.1:Словесное описание задачи:

При быстром торможении трамвай, имевший скорость V, начал двигаться “юзом”. Определить расстояние, которое пройдет трамвай с момента торможения до полной остановки. Коэффициент трения между колесами и рельсами k.

если V=25км/ч; k=0,2; g=9,80665м/сек².

1.2.

Входные данные: V, k, g – вещественного типа

Выходные данные: S - вещественного типа

2.Математическое моделирование:

3.Схема алгоритма:

4.Код программы:

Private Sub Command1_Click()

Dim V As Double

Dim k As Double

Const g As Single = 9.80665

V = Val(Text1.Text)

k = Val(Text2.Text)

S = V ^ 2 / 2 * k * g

Text3.Text = Str(S)

End Sub

5. Отладочный пример: