Run Code
|
API
|
Code Wall
|
Misc
|
Feedback
|
Login
|
Theme
|
Privacy
|
Patreon
Светофор-графика
{ Светофор. } uses graphABC; const LEFT = 100; UP = 100; RIGHT = 300; DOWN = 300; procedure signal(c : color; y, t : integer); begin SetBrushColor(c); fillcircle( RIGHT div 2, y, 30); sleep(t); SetBrushColor(clWhite); fillcircle( RIGHT div 2, y, 30); end; var i, time : integer; begin time := 7; initwindow(LEFT,UP,RIGHT,DOWN); while true do begin if time in [8..24] then begin signal (clRed, DOWN div 4, 4000 ); signal (clYellow, DOWN div 2, 1000 ); signal (clGreen, 3 * DOWN div 4, 2000 ); for i := 1 to 4 do begin signal (clGreen, 3 * DOWN div 4, 500 ); signal (clWhite, 3 * DOWN div 4, 500 ); // sleep (500); end end else for i := 1 to 4 do begin signal (clYellow, DOWN div 2, 500 ); signal (clWhite, DOWN div 2, 500 ); end; time := (time + 1 ) mod 24; end end.
run
|
edit
|
history
|
help
0
Menukar nilai2
zadanye 3 a
practica 9 ejercicio 8
Naloga 8: 10.9.2008
Квартира Задача 6.14 учебн. Грицанова
Урок 6. Задача 1 (1525). Номер самого большого числа
1
aefrt
dad
ax+by=n