Если у вас возникли сложности с курсовой, контрольной, дипломной, рефератом, отчетом по практике, научно-исследовательской и любой другой работой - мы готовы помочь.
Предоплата всего
Подписываем
ФЕДЕРАЛЬНОЕ АГЕНТСТВО ЖЕЛЕЗНОДОРОЖНОГО ТРАНСПОРТА
Федеральное государственное бюджетное образовательное учреждение высшего профессионального образования
“ПЕТЕРБУРГСКИЙ ГОСУДАРСТВЕННЫЙ УНИВЕРСИТЕТ ПУТЕЙ СООБЩЕНИЯ”
Кафедра “ИНФОРМАТИКА И ИНФОРМАЦИОННАЯ БЕЗОПАСНОСТЬ”
Дисциплина: “Информатика”
ОТЧЕТ
по лабораторной работе №4:
“ЦИКЛ”
Вариант 7
Выполнила студентка
Факультета ЭСУ _________И. И. Гашкова
Группы ЭББ-305 подпись дата
07-305-28
/номер зачетной книжки/
Санкт-Петербург
2013
;
где m = 2000 т; S = 550 м; 30 ≤V ≤60 c шагом 5 км/ч.
Выходные данные:
F– переменная вещественного типа,
t – переменная вещественного типа.
Входные данные:
m – переменная вещественного типа,
S – переменная вещественного типа,
V – переменная вещественного типа.
1
Составление схемы алгоритма
Начало
2
V, Vn, Vk, dV
3
Vn
5
4
V<= Vk ,
F=(V^2*m)/2*S
Да
6
t = 2*S/V
7
F, t
Нет
8
9
V = V +dV
Конец
Private Sub Command1_Click()
Const Vn As Integer = 30
Const Vk As Integer = 60
Dim m As Integer, S As Integer
Dim F As Single, t As Single, dV As Integer
m = InputBox("Введите значение m")
S = InputBox("Введите значение S")
dV = InputBox("Введите значение dV")
For V = Vn To Vk Step dV
F=(V^2*m)/2*S
t = 2*S/V
Print "F= " & Format(F, "0.000") & " t=" & Format(t, "0.000") & " S= " & Format(S, "0.000") & " m= " & Format(m, "0.000") & " Vn= " & Format(m, "0.000") & " Vk= " & Format(m, "0.000")
Next V
End Sub
Вычислить значения функции по формуле:
где постоянная ; переменные: целого типа; - вещественного типа.
На печать выдать значения:
а) входных данных;
б) аргументов , изменяющегося в пределах с шагом , и , изменяющегося в пределах с шагом
в) функции с точностью до сотых для соответствующих и .
При решении контрольного примера принять:
V- переменная вещественного типа
Входные данные:
b1 - переменная целого типа
bk - переменная целого типа
R1 переменная вещественного типа
Rk - переменная вещественного типа
где
с шагом ,
с шагом ;
1
Составление схемы алгоритма
Начало
2
b1, bk, db, R1, Rk, dR
3
b=b1
5
b<=bk
4
R = R1
7
11
Конец
6
R<=Rk
V, b, R
10
8
9
b = b+db
R = R+dR
Private Sub Command1_Click()
Const pi As Single = 3.14
Dim V As Single
Dim b1 As Integer, bk As Integer, db As Integer, b As Integer
Dim R1 As Single, Rk As Single, dR As Single, R As Single
b1 = InputBox("Введите значение b1")
bk = InputBox("Введите значение bk")
R1 = InputBox("Введите значение R1")
Rk = InputBox("Введите значение Rk")
db = 1
dR = 2.5
For b = b1 To bk Step db
R=R1
Do
V = 1/6*pi*b*(b^2+3*b^2)
Print "V= " & Format(V, "0.000") & " b= " & Format(b, "0.000") & " R= " & Format(R, "0.000")
R=R+dR
Loop While R<=10
Next
End Sub