| Категории раздела |
|
Мои статьи
[0]
|
|
Basic-256
[7]
Программирование в среде Basic-256. Школьный Линукс
|
|
Gambas
[3]
Программирование в объектно-ориентированной среде
|
|
| Сервис проверки |
 |
| Статистика |
Онлайн всего: 1 Гостей: 1 Пользователей: 0 |
|
Экзаменационная задача про велосипедистов (Gambas)
Public Sub Button1_Click()
Dim s, u, v, t1, t2 As Single
s = ValueBox1.Value
u = ValueBox2.Value
v = ValueBox3.Value
t1 = s / u
t2 = s / v + 0.5
ValueBox4.Value = t1
ValueBox5.Value = t2
If t1 < t2 Then
TextBox1.Text = "Не догонит!"
Else
TextBox1.Text = "Догонит!"
Endif
End
|
| Категория: Gambas | Добавил: klop (24.05.2012)
|
| Просмотров: 1108
| Теги:
| Рейтинг: 0.0/0 |
Добавлять комментарии могут только зарегистрированные пользователи. [ Регистрация | Вход ] |
|
|
Главная 