Определить, как изменяется величина тормозной силы и время торможения в зависимости от скорости - 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" Вот программа первой задачи:
Private Sub Command1_click()
 
Dim x0 As Single, dx As Single, xk As Single
Dim S As Single, m As Single, x As Single
Dim f As Single, t As Single
 
S = InputBox("ВВести S")
m = InputBox("ВВести m")
x0 = InputBox("ВВести V начальное")
dx = InputBox("ВВести d")
xk = InputBox("ВВести V конечное")
 
List1.AddItem "V      f      t"
 
For x = x0 To xk + dx / 2 Step dx
 
f = (x ^ 2) * m / 2 * S And t = 2 * x / t
 
 
'[выделено красным]
List1.AddItem "Format(x, "0.00") &" "
             & "Format(f, "0.00")" '[выделено красным]
              
 
Next
End Sub
я не знаю в чем моя ошибка(где выделено красным), а точнее не знаю вообще как тут должно быть и если кто-нибудь может, то помогите со второй. Блок схемы обоих программ есть...

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

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


СОХРАНИТЬ ССЫЛКУ