Найти все скорости велосипедистов

@diligent5 · Регистрация: 24.11.2016

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

Здравствуйте!
Интересно, какой будет самый короткий код VB6 для школьной задачи ниже.

Условия. Два велосипедиста должны проехать из пункта А в пункт В и обратно. Расстояние АВ равно 120 км. Сначала стартует первый велосипедист, через два часа - второй. Некоторую точку С, находящуюся между пунктами А и В, оба велосипедиста проехали одновременно ( до этого ни один из них в В не побывал). Второй велосипедист, доехав до В и сразу повернув назад, встречает первого - в 100 км от А. Найдите возможные скорости велосипедистов.
________________________________________ ________________________________________ ________
Для Вольфрама хватает записи: t/x = t/z+2 && 100/x=140/z+2 http://m.wolframalpha.com/inpu... B2&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

Visual Basic
1
2
3
4
5
6
7
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

@fever brain · 29.11.2016, 12:43

Сообщение от diligent5

Он жалуется: Run time error '6': Overflow

Overflow -переполнение, это значит для числового типа Integer недостаточно места
пробуй вместо Integer поставить Double

SoftIce · 29.11.2016, 12:51

Сообщение от fever brain

пробуй вместо Integer поставить Double

Не поможет. У него t=0 z=0 x=0, а он их делит друг на друга.

@fever brain · 29.11.2016, 12:57

Сообщение от SoftIce

У него t=0 z=0 x=0

Ну да, согласен у него же нет в программе присвоение этих значений
Можно ведь подумать что он гдето их присвоил раз написал:

Сообщение от diligent5

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

SoftIce · 29.11.2016, 13:02

Сообщение от fever brain

Можно ведь подумать что он гдето их присвоил

Он их объявил в процедуре, и тут же начинает делить друг на друга без присвоения значений.

@diligent5 · 29.11.2016, 15:11 **[ТС]**

Сообщение от SoftIce

и тут же начинает делить друг на друга без присвоения

Всем спасибо.
Получилось какое-то искусственное (ненатуральное) решение. За уши притянуто.

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
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

Новые блоги и статьи Все статьи Все блоги /
Автоматическое создание документа при проведении другого документа Maks 29.03.2026 Реализация из решения ниже выполнена на нетиповых документах, разработанных в конфигурации КА2. Есть нетиповой документ "ЗаявкаНаРемонтСпецтехники" и нетиповой документ "ПланированиеСпецтехники". В. . .	Настройка движения справочника по регистру сведений Maks 29.03.2026 Решение ниже реализовано на примере нетипового справочника "ТарифыМобильнойСвязи" разработанного в конфигурации КА2, с целью учета корпоративной мобильной связи в коммерческом предприятии. . . .	Автозаполнение реквизита при выборе элемента справочника Maks 27.03.2026 Программный код из решения ниже на примере нетипового документа "ЗаявкаНаРемонтСпецтехники" разработанного в конфигурации КА2. При выборе "Спецтехники" (Тип Справочник. Спецтехника), заполняется. . .	Сумматор с применением элементов трёх состояний. Hrethgir 26.03.2026 Тут. https:/ / fips. ru/ EGD/ ab3c85c8-836d-4866-871b-c2f0c5d77fbc Первый документ красиво выглядит, но без схемы. Это конечно не даёт никаких плюсов автору, но тем не менее. . . всё может быть. . .
Автозаполнение реквизитов при создании документа Maks 26.03.2026 Программный код из решения ниже размещается в модуле объекта документа, в процедуре "ПриСозданииНаСервере". Алгоритм проверки заполнения реализован для исключения перезаписи значения реквизита,. . .	Команды формы и диалоговое окно Maks 26.03.2026 1. Команда формы "ЗаполнитьЗапчасти". Программный код из решения ниже на примере нетипового документа "ЗаявкаНаРемонтСпецтехники" разработанного в конфигурации КА2. В качестве источника данных. . .	Кому нужен AOT? DevAlt 26.03.2026 Решил сделать простой ланчер Написал заготовку: dotnet new console --aot -o UrlHandler var items = args. Split(":"); var tag = items; var id = items; var executable = args;. . .	Отправка уведомления на почту при создании или изменении элементов справочника Maks 24.03.2026 Программная отправка письма электронной почты на примере типового справочника "Склады" в конфигурации БП3. Перед реализацией необходимо выполнить настройку системной учетной записи электронной. . .