tsikl

АТ-701 Вариант 5 Лабораторная работа №2 М.В. Вечер 06.11.2017

ЗАДАНИЕ К ЛАБОРАТОРНОЙ РАБОТЕ №2

1 “СТРУКТУРА ЦИКЛ”

ВАРИАНТ 5

1. Словесное описание

В каждом варианте задания необходимо определить требуемые входные и выходные данные, для вычисления предложенных функций составить схемы алгоритмов и программы решения задач. Предусмотреть печать всех входных и выходных данных.

Подготовить контрольные варианты, самостоятельно выбрать значение входных данных, отладить программы.

ЗАДАНИЕ 1

2. Математическое описание

Участок пути длиной S=1,0 км локомотив проходит с постоянным ускорением а. За какое время этот путь пройден и какова скорость в конце данного участка пути , если 0,2  a  1,2 м/c² с шагом 0,2 м/c² ?

2.1. Определение состава входных данных:

S - вещественного типа

2.2. Определение состава выходных данных:

t, Vt - вещественного типа

3. Алгоритмизация

4. Программирование

Private Sub Command1_Click()

Dim S As Single

Dim t As Single

Dim Vt As Single

Dim a As Single

S = InputBox("BBEDITE S")

For a = 0.2 To 1.2 Step 0.2

t = Sqr(2 * S / a)

Vt = a * t

Print "t=" & t

Print "Vt=" & Vt

Next

End Sub

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

ЗАДАНИЕ 2

2. Математическое описание

Вычислить расстояние между неподвижной и движущейся точками в косоугольной системе координат по формуле:

,

где х₁=0; y ₁=0;

1  x₂ 2 с шагом 0,25;

1,5 y₂  6,0 с шагом 0,75;

2.1. Определение состава входных данных:

X1, Y1, ω – вещественного типа

2.2. Определение состава выходных данных:

d - вещественного типа

2. Алгоритмизация

2. Программирование

Private Sub Command1_Click()

Dim X1 As Single

Dim Y1 As Single

Dim omega As Single

Dim X2 As Single

Dim Y2 As Single

Dim d As Single

X1 = InputBox("BBEDITE X1")

Y1 = InputBox("BBEDITE Y1")

omega = InputBox("BBEDITE omega")

For X2 = 1 To 2 Step 0.25

Y2 = 1.5

Do While Y2 <= 6

d = Sqr((X2 - X1) ^ 2 + (Y2 - Y1) ^ 2 + 2 * (X2 - X1) * (Y2 = Y1) * Cos(omega))

Print "X2=" & X2; Tab; "Y2=" & Y2; Tab; "d=" & d

Y2 = Y2 + 0.75

Loop

Next

End Sub

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