Новые сообщения · Правила  
Страница 1 из 11
Модератор форума: Berestovskiy 
Форум ПРОГРАММИСТОВ » ПРОГРАММИРОВАНИЕ » Паскаль » Помогите написать прогу про светлофор, плиз!
Помогите написать прогу про светлофор, плиз!
Работа светлофора для пешехода запрограммирывана следуйщим образом: начиная с начала каждого часа, в течение двух минут - красный, в течении трех минут - опять зеленый и т.д.
Дано вещественное число t, означающее время в минутах, прошедшее с начала очередного часа.
Определить, сигнал какого цвета горит для пешеходов в этот момент.
1 | Автор: BeaU | 2009-06-04, 12:21   |  Репутация: [ + 0 ]
program SVET;
uses crt;
var t:real;
begin
clrscr;
Write ('Vvedite vremia:');
Read (t);
if frac(t/5)>=0.4 then write ('GREEN') else
Write ('RED');
readkey;
end.


Удваивается не в четыре, а в три раза!
2 | Автор: RedWoLF | 2009-06-04, 13:27   |  Репутация: [ + 3 ]
Спасибо огромное))))
3 | Автор: BeaU | 2009-06-04, 16:42   |  Репутация: [ + 0 ]
3 | Автор: BeaU | 2009-06-04, 16:42   |  Репутация: [ + 0 ]
Форум ПРОГРАММИСТОВ » ПРОГРАММИРОВАНИЕ » Паскаль » Помогите написать прогу про светлофор, плиз!
Страница 1 из 11
Поиск: