Определить, как изменяется величина тормозной силы и время торможения в зависимости от скорости - VB

Узнай цену своей работы

Формулировка задачи:

Доброе врем суток тому кто читает эту тему. Мне надо написать программу по структуре цикл. вот само задание: "В каждом варианте задания необходимо определить требуемые входные и выходные данные, для вычисления предложенных функций составить схемы алгоритмов и программы решения задач. Предусмотреть печать всех входных и выходных данных. Подготовить контрольные варианты, самостоятельно выбрать значение входных данных, отладить программы. А) Определить, как изменяется величина тормозной силы и время торможения в зависимости от скорости. Входные данные: m=2000 – масса поезда(т); S=550 – тормозной путь поезда(м); 30 ≤V≤ 60 – скорость поезда c шагом d 5 км/ч. Выходные данные: F – величина тормозной силы; t – время торможения Математическая модель задачи F = (V^2)*m/2S; t = 2S/V Б) Вычислить и напечатать таблицу значений функций. Входные данные: 1,541 ≤ x ≤ 10,241 с шагом d1 = 3,41 12 ≤ y ≤ 16 c шагом d2 = 2. Выходные данные: Z Математическая модель задачи Z = √X+∛Y" Вот программа первой задачи:
я не знаю в чем моя ошибка(где выделено красным), а точнее не знаю вообще как тут должно быть и если кто-нибудь может, то помогите со второй. Блок схемы обоих программ есть...

Решение задачи: «Определить, как изменяется величина тормозной силы и время торможения в зависимости от скорости»

textual
Листинг программы
Private Sub Command1_click()
 
Dim x0 As Single, dx As Single, xk As Single, x As Single
Dim y0 As Single, dy As Single, yk As Single, y As Single
Dim de As Single, v As Single, v0 As Single, R As Single, pi As Single
 
x0 = InputBox("Ââåñòè L Г*Г*Г·Г*ëüГ*îå")
dx = InputBox("Ââåñòè ГёГ*ГЈ L")
xk = InputBox("Ââåñòè L ГЄГ®Г*ГҐГ·Г*îå")
R = InputBox("Ââåñòè R")
y0 = InputBox("Ââåñòè C Г*Г*Г·Г*ëüГ*îå")
dy = InputBox("Ââåñòè ГёГ*ГЈ C")
yk = InputBox("Ââåñòè C ГЄГ®Г*ГҐГ·Г*îå")
 
pi = 3.14
 
List1.AddItem "L      C      v      v0      delta"
 
For x = x0 To xk Step dx
For y = y0 To yk Step dy
 
v = 1 / (2 * pi) * Sqr(1 / x * y - (R / 2 * y) ^ 2) {тут программа ругается}
v0 = 1 / (2 * pi * Sqr(l * c))
de = v - v
List1.AddItem Format(x, "###.####") & "    " & Format(y, "###.####") & "    " & Format(v, "###.####") & "    " & Format(v0, "###.####") & "    " & Format(de, "###.####")
 
Next y
Next x
 
End Sub

Оцени полезность:

15   голосов , оценка 3.933 из 5
Похожие ответы