Где ошибка? вот задача: Из пункта А в пункт Б движется велосипедист с постоянной скоростью V км/ч. Через 1.5 часа после его старта из пункта А стартовал второй велосипедист, который двигался с постоянной скоростью 11 км/ч. Пост...
Где ошибка? вот задача: Из пункта А в пункт Б движется велосипедист с постоянной скоростью V км/ч. Через 1.5 часа после его старта из пункта А стартовал второй велосипедист, который двигался с постоянной скоростью 11 км/ч. Построить алгоритм (нарисовать блок-схему) и составить программу на языке программирования для определения: догонит ли второй велосипедист первого во время своего движения при данных значениях расстояния между пунктами А и Б и скоростей V. Проверить программу на тестах при разных вариантах значений исходных данных. Пояснение. Программа должна вводить значения расстояния между пунктами А, Б - S (км), время T (ч), скорость V (км/ч). В результате должно выводиться одно из двух сообщений: «Догонит!» или «Не догонит!». Будем считать, что если оба велосипедиста приехали в пункт Б одновременно, то второй догнал первого. Dim v1, v2, s, t As String Private Sub Button1_Click() v1 = TextBox1 v2 = TextBox2 s = TextBox3 t = TextBox4 If Asc(s / v2 + t) <= Asc(s / v1) Then Label1.Caption= "Догонит" Else Label1.Caption = "Не догонит" End If End Sub
Ответ(ы) на вопрос:
Когда используете текстовые поля, нужно при использовании в программе сначала преобразовать тип данных - приограмма воспринимает все, что вводите в текстовую как текст. А значит работать корректно программа не будет - вычисления с текстом она делает по другому. Нужно: v1 = Val (TextBox1.Text) v2 = Val (TextBox2.Text) ы = Val (TextBox3.Text)
Во-первых, зачем тебе две скорости, когда скорость первого уже дана в условии(скорость первого 11 км/ч), поэтому вместо v1=textbox надо написать v1=11
Потом, при присваивании переменным значений, надо не просто писать textbox1 или textbox2, а писать надо Val(TextBox1.Text) и так везде) И пользуйся лучше не 6 версией, а на новой версии бейзика - на платформе .Net )
Удачи!
Не нашли ответ?
Похожие вопросы