Работа светофора для водителей запрограммирована следующим образом : в начале каждого часа в течении трех минут горит зеленый сигнал , затем , в течении одной минуты - желтый , в течении двух минут - красный , в течении трех минут - опять зеленый и т. д . дано вещественное число т , означающее время в минутах , прошедшее с начала очередного часа . определись , сигнал какого цвета горит для водителей в этот момент (нужно написать программу на языке программирования qbasic )

1. опишем циклическое состояние светофора от начала часа 0 ≤ t < 3 ⇒ зеленый 3 ≤ t < 4 ⇒ желтый 4 ≤ t < 6 ⇒ красный 2. замечаем, что цикл смены состояний светофора составляет 6 секунд, т.е. взяв остаток от деления заданного t на 6, мы сведем к состоянию, описанному в п.1 3. операция "взятие остатка от деления вещественного числа" в qbasic отсутствует, поэтому будем получать некое k - целочисленное частное от деления  t на 6, а потом переопределять t = t - 6*k 'microsoft qbasic 1.0 dim t as double input "введите t", t t = t - 6 * int(t / 6) select case t case is < = 3     print "зеленый" case is < = 4     print "желтый" case else     print "красный" end select

если переменная нужна целая то так:

x: =random(b-a)+a

если можно дробную, то так

x: =(b-a)*random+a