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

@Максоус · Регистрация: 05.10.2011

Студворк — интернет-сервис помощи студентам

Доброе врем суток тому кто читает эту тему. Мне надо написать программу по структуре цикл. вот само задание:

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

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

А) Определить, как изменяется величина тормозной силы и время торможения в зависимости от скорости.
Входные данные: 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"

Вот программа первой задачи:

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
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

я не знаю в чем моя ошибка(где выделено красным), а точнее не знаю вообще как тут должно быть
и если кто-нибудь может, то помогите со второй.
Блок схемы обоих программ есть...

@Апострофф · 10.12.2012, 08:30

21-я строка -

Visual Basic
1
2
List1.AddItem "Format(x, "0.00") & " " _
 & "Format(f, "0.00")" '1 - знак конкатенации д.б. окружен пробелами, 2 - строка переносится пробелом и знаком подчеркивания.

@Максоус · 10.12.2012, 20:20 **[ТС]**

что-то не работает

@Апострофф · 10.12.2012, 21:03

Visual Basic
1
List1.AddItem Format(x, "0.00") & " " &  Format(f, "0.00")

В кавычки то зачем заключать операторы?

@Максоус · 10.12.2012, 21:36 **[ТС]**

ааа, ну я ж говорил что не знаю что тут вообще, спасибо

@Максоус · 12.12.2012, 20:47 **[ТС]**

тоже структура цик

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

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
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

1) в условии не дано где v0 а где просто v
2) в коде программы {см код} тут она выдаёт ошибку

Новые блоги и статьи Все статьи Все блоги /
Знаешь почему 90% людей редко бывают счастливыми? kumehtar 14.04.2026 Потому что они ждут. Ждут выходных, ждут отпуска, ждут удачного момента. . . а удачный момент так и не приходит.	Фиксация колонок в отчете СКД Maks 14.04.2026 Фиксация колонок в СКД отчета типа Таблица. Задача: зафиксировать три левых колонки в отчете. Процедура ПриКомпоновкеРезультата(ДокументРезультат, ДанныеРасшифровки, СтандартнаяОбработка) / / . . .	Настройки VS Code Loafer 13.04.2026 { "cmake. configureOnOpen": false, "diffEditor. ignoreTrimWhitespace": true, "editor. guides. bracketPairs": "active", "extensions. ignoreRecommendations": true, . . .	Оптимизация кода на разграничение прав доступа к элементам формы Maks 13.04.2026 Алгоритм из решения ниже реализован на нетиповом документе, разработанного в конфигурации КА2. Задачи, как таковой, поставлено не было, проделанное ниже исключительно моя инициатива. Было так:. . .
Контроль заполнения и очистка дат в зависимости от значения перечислений Maks 12.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "ПланированиеПерсонала", разработанного в конфигурации КА2. Задача: реализовать контроль корректности заполнения дат назначения. . .	Архитектура слоя интернета для сервера-слоя. Hrethgir 11.04.2026 В продолжение https:/ / www. cyberforum. ru/ blogs/ 223907/ 10860. html Знаешь что я подумал? Раз мы все источники пишем в голове ветки, то ничего не мешает добавить в голову такой источник, который сам. . .	Подстановка значения реквизита справочника в табличную часть документа Maks 10.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "ПланированиеПерсонала", разработанного в конфигурации КА2. Задача: при выборе сотрудника (справочник Сотрудники) в ТЧ документа. . .	Очистка реквизитов документа при копировании Maks 09.04.2026 Алгоритм из решения ниже применим как для типовых, так и для нетиповых документов на самых различных конфигурациях. Задача: при копировании документа очищать определенные реквизиты и табличную. . .

@Максоус 1 / 1 / 0 Регистрация: 05.10.2011 Сообщений: 52
	10.12.2012, 20:20 [ТС]
	что-то не работает 0

@Максоус 1 / 1 / 0 Регистрация: 05.10.2011 Сообщений: 52
	10.12.2012, 21:36 [ТС]
	ааа, ну я ж говорил что не знаю что тут вообще, спасибо 0

Опции темы