Задача 1 Відома вага порції та кількість калорій в 100 г. Обчислити загальну кількість калорій в страві. Вага порції та кількість калорій в 100 г. вказується користувачем з клавіатури.
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
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
uses GraphABC;
begin
setwindowsize(500,500);
setbrushcolor(clrandom);
circle(250,250,230);
setbrushcolor(clrandom);
circle(250,250,210);
setbrushcolor(clrandom);
circle(250,250,190);
setbrushcolor(clrandom);
circle(250,250,170);
setbrushcolor(clrandom);
circle(250,250,150);
setbrushcolor(clrandom);
circle(250,250,130);
setbrushcolor(clrandom);
circle(250,250,110);
setbrushcolor(clrandom);
circle(250,250,90);
setbrushcolor(clrandom);
circle(250,250,70);
setbrushcolor(clrandom);
circle(250,250,50);
setbrushcolor(clrandom);
circle(250,250,30);
setbrushcolor(clrandom);
circle(250,250,10);
end.