Структура цикл / 22

Задание №1

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

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

Поезд массой m при торможении с ускорением a останавливается через время t после начала торможения. Какое количество тепла выделится при торможении?

где m= 2000 т; 0,1≤a≤0,7 м/c² с шагом 0,15 м/c²;

30≤t≤50 c с шагом 10 c;

1.2. Состав входных и выходных данных

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

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

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

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

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

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

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

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

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

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

2. Математическая модель задачи

a1≤a≤ak м/c² с шагом da м/c²; t1≤t≤tk c с шагом dt c;

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

4. Визуальная часть проекта

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

Private Sub Command1_Click()

Dim m As Single, Q As Single, a As Single, a1 As Single, ak As Single, da As Single, t As Single, t1 As Single, tk As Single, dt As Single

m = InputBox("m=")

a1 = InputBox("a1")

ak = InputBox("ak=")

da = InputBox("da=")

t1 = InputBox("t1=")

tk = InputBox("tk=")

dt = InputBox("dt=")

For a = a1 To ak Step da

For t = t1 To tk Step dt

Q = m * a ^ 2 * t ^ 2

Print "Q=" & Q & " a=" & a & " t=" & t

Next

Next

End Sub

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

2