Найти все скорости велосипедистов - VB
Формулировка задачи:
Здравствуйте!
Интересно, какой будет самый короткий код VB6 для школьной задачи ниже.
Условия. Два велосипедиста должны проехать из пункта А в пункт В и обратно. Расстояние АВ равно 120 км. Сначала стартует первый велосипедист, через два часа - второй. Некоторую точку С, находящуюся между пунктами А и В, оба велосипедиста проехали одновременно ( до этого ни один из них в В не побывал). Второй велосипедист, доехав до В и сразу повернув назад, встречает первого - в 100 км от А. Найдите возможные скорости велосипедистов.
________________________________________________________________________________________ ДляВольфрама
хватает записи: t/x = t/z+2 && 100/x=140/z+2 http://m.wolframalpha.com/input/?i=t...Fz%2B2&x=2&y=4 Integer solutions: 1) t = 60, x = 15, z = 30 2) t = 84, x = 30, z = 105 3) t = 90, x = 36, z = 180 4) t = 105, x = 60, z = -420 5) t = 120, x = 120, z = -120 _______________________________________________________________ Пробую написать код для VB6. Он жалуется:Run time error '6': Overflow
Решение задачи: «Найти все скорости велосипедистов»
textual
Листинг программы
Option Explicit Private Sub Command1_Click() Dim x%, z%, t%, k% For x = 10 To 20 For z = 27 To 33 For t = 58 To 62 If (t / x = t / z + 2) And (100 / x = 140 / z + 2) Then k = k + 1 Print k & ") x=" & x & "; z= " & z & "; t= " & t & "." & vbCr End If Next Next Next End Sub
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д