Где ошибка? вот задача: Из пункта А в пункт Б движется велосипедист с постоянной скоростью 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
Please enter comments
Please enter your name.
Please enter the correct email address.
You must agree before submitting.

Copyright © 2024 SCHOLAR.TIPS - All rights reserved.