var timeinsec: integer; // время в секундах color, s, m, h: byte; begin h : = 4; //часы m : = 5; //минуты s : = 23; //секунды
timeinsec : = h * 3600 + m * 60 + s; //перевод времени в секунды color : = (timeinsec div 10) mod 3; {целочисленно делим на 10, чтобы узнать сколько раз светофор изменил цвет} {потом находим остаток деления на 3(количество цветов), чтобы узнать какой сейчас цвет} case color of //вывод ответа 0: writeln('горит зеленый свет'); //0 - это зеленый свет 1: writeln('горит желтый свет'); //1 - это желтый свет 2: writeln('горит красный свет'); //2 - это крсный свет end; end.
uses graphabc, crt;
var klavisha: char; begin maximizewindow; rectangle(600,100,1200,1000); circle(900,250,100); circle(900,500,100); circle(900,750,100); repeat klavisha: =readkey; circle(900,250,100); circle(900,500,100); circle(900,750,100); if klavisha='1' then floodfill(900,250,clred); redraw; if klavisha='2' then floodfill(900,500,clyellow); redraw; if klavisha='3' then floodfill(900,750,clgreen); redraw; until 9> 10; end.
среда разработки pascalabc, свет на светофоре переключать на 1, 2 и 3 соответственно.
Поделитесь своими знаниями, ответьте на вопрос: