Приветствую Вас Гость | RSS
Понедельник
25.10.2021, 06:38
Прорвемся!
Главная Каталог статей Регистрация Вход
Меню сайта

Категории раздела
Мои статьи [0]
Basic-256 [7]
Программирование в среде Basic-256. Школьный Линукс
Gambas [3]
Программирование в объектно-ориентированной среде

Сервис проверки

Сайт за 10 минут
WoWeb.ru - портал для веб-мастера
Топ сайтов Юкоз

Статистика

Онлайн всего: 1
Гостей: 1
Пользователей: 0

My-Shop Учебники

Реклама

Партнер
Хочешь заработать в Интернете? Жми сюда!

Форма входа


Что нового?

Главная » Статьи » Gambas

Экзаменационная задача про велосипедистов (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)
Просмотров: 944 | Теги: задача про велосипедистов, 9 класс, gambas, программирование, экзамен по информатике | Рейтинг: 0.0/0
Всего комментариев: 0
Добавлять комментарии могут только зарегистрированные пользователи.
[ Регистрация | Вход ]
Поиск

Сегодня
clock for blog free часы для сайтов

Друзья сайта
  • Уроки информатики и ИКТ
  • Школьный сайт
  • Сайт школьного округа
  • Сайт РМО Кытмановского района
  • Комитет администрации Кытмановского района по образованию
  • Официальный сайт Кытмановского района
  • Клуб УГА
  • Современный учительский портал
  • Центр методической поддержки внедрения ПСПО в Алтайском крае
  • Стихи и песни моего сына
  • Группа IdeA в контакте

  • Погода в доме

    Внимание!

    Сайт РМО

    Удаленный доступ

    Copyright MyCorp © 2021
    Сайт создан в системе uCoz