Найти все скорости велосипедистов - 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
Option Explicit
Private Sub Command1_Click()
Dim x As Integer, z As Integer, t As Integer
 If (t / x = t / z + 2) And (100 / x = 140 / z + 2) Then
  Print "x=" & x & "z= " & z & "t= " & t; vbCr
 End If
End Sub


textual

Код к задаче: «Найти все скорости велосипедистов - VB»

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
Эта работа вам не подошла?

Вы всегда можете заказать любую учебную работу у наших авторов от 20 руб.


СДЕЛАЙТЕ РЕПОСТ

6   голосов, оценка 3.833 из 5

Источник