1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
Program svetofor;
uses GraphABC,Crt;
Var xc,yc,i,j:integer;
Begin
xc:=windowwidth div 2;
yc:=windowheight div 2;
hidecursor;
setpencolor(clGray);
rectangle(xc-80,yc-180,xc+80,yc+180);
floodfill(xc,yc,clGray);
setpencolor(clLightGray);
circle(xc,yc-100,40);
floodfill(xc,yc-100,clLightGray);
circle(xc,yc,40);
floodfill(xc,yc,clLightGray);
circle(xc,yc+100,40);
floodfill(xc,yc+100,clGray);
i:=0;
j:=1;
while not KeyPressed do //пока не нажата клавиша
begin
case i of //выключен
0: begin
setpencolor(clLightGray); //красный
circle(xc,yc-100,40);
floodfill(xc,yc-100,clLightGray);
end;
1: begin
setpencolor(clGray); //желтый
circle(xc,yc,40);
floodfill(xc,yc,clLightGray);
end;
2: begin
setpencolor(clGray); //зеленый
circle(xc,yc+100,40);
floodfill(xc,yc+100,clLightGray);
end;
end;
case j of //включен
0: begin
setpencolor(clRed); //красный
circle(xc,yc-100,40);
floodfill(xc,yc-100,clRed);
end;
1: begin
setpencolor(clYellow);//желтый
circle(xc,yc,40);
floodfill(xc,yc,clYellow);
end;
2: begin
setpencolor(clGreen); //зеленый
circle(xc,yc+100,40);
floodfill(xc,yc+100,clGreen);
end;
end;
if j=0 then //переключения
begin
i:=0;
j:=1;
end
else if j=2 then
begin
i:=2;
j:=1;
end
else if (j=1) and (i=0) then
begin
i:=1;
j:=2;
end
else if (j=1) and (i=2) then
begin
i:=1;
j:=0;
end;
Delay(1000);//1 секунда, долго ждать 10, исправь на 10000 если есть желание
end;
End.