| | | |
| 1 | 1 | | program Svetofor; { 12.11.2012 } |
| 2 | 2 | | { 17.11.2012 } |
| 3 | 3 | | uses |
| 4 | 4 | | Graph; |
| 5 | 5 | | const |
| 6 | 6 | | x0 = 100; |
| 7 | 7 | | y0 = 100; |
| 8 | 8 | | R = 50; |
| 9 | 9 | | var |
| 10 | 10 | | mode, driver: integer; |
| 11 | 11 | | pausa: integer; |
| 12 | 12 | | i: integer; |
| 14 | 14 | | {----------------------------------------------------------------} |
| 15 | 15 | | procedure Light(numBulb: integer; color: word); |
| 16 | 16 | | begin |
| 17 | 17 | | SetFillStyle(SolidFill, color); |
| 18 | 18 | | FillEllipse(x0, y0 + (numBulb - 1) * 2 * R, R, R); |
| 19 | 19 | | end; |
| 20 | 20 | | {----------------------------------------------------------------} |
| 21 | 21 | | begin |
| 22 | 22 | | driver := VGA; |
| 23 | 23 | | mode := VGAHi; |
| 24 | 24 | | InitGraph(driver, mode, ''); |
| 25 | 25 | | pausa := 1000; |
| 26 | 26 | | { неживой сломанный светофор } |
| 27 | 27 | | SetColor(White); |
| 28 | 28 | | Circle(x0, y0, R); |
| 29 | 29 | | Circle(x0, y0 + 2 * R, R); |
| 30 | 30 | | Circle(x0, y0 + 4 * R, R); |
| 31 | 31 | | { неживой сломанный светофор, который светит } |
| 32 | 32 | | Light(1, Red); |
| 33 | 33 | | Light(2, Yellow); |
| 34 | 34 | | Light(3, Green); |
| 35 | 35 | | readln; |
| 36 | 36 | | CloseGraph; |
| 37 | 37 | | end. |