Program sfetafor1;
Uses GraphAbc;
Begin
SetWindowSize(640,480);
ClearWindow(clWhite);
SetPenColor(clBlack);
SetPenWidth(3);
Rectangle(200,200,300,400);
FloodFill(250,300,clLtGray);
Circle(250,230,25);
Circle(250,290,25);
Circle(250,350,25);
FloodFill(250,235,clRed);
FloodFill(250,285,clYellow);
FloodFill(250,355,clGreen);
Line(250,200,250,150);
Line(250,150,100,150);
SetFontSize(14);
SetFontColor(clRed);
TextOut(100,125,'Красный свет-дороги нет');
End.
1₂ = 1₁₀
10₂ =2₁₀
11₂ = 3₁₀
100₂ = 4₁₀
101₂ = 5₁₀
110₂ = 6₁₀
111₂ = 7₁₀
1000₂ = 8₁₀
1001₂ = 9₁₀
1010₂ = 10₁₀
1011₂ = 11₁₀
1100₂ = 12₁₀
1101₂ = 13₁₀
1110₂ = 14₁₀
1111₂ = 15₁₀
это таблица для перевода координат точек в 10-ную систему
Объяснение:
1₂ = 1*2⁰ = 1₁₀
10₂ = 0*2⁰ + 1*2¹ = 2₁₀
11₂ = 1*2⁰ + 1*2¹ = 3₁₀
100₂ = 0*2⁰ + 0*2¹ + 1*2² = 4₁₀
101₂ = 1*2⁰ + 0*2¹ + 1*2² = 5₁₀
110₂ = 0*2⁰ + 1*2¹ + 1*2² = 6₁₀
111₂ = 1*2⁰ + 1*2¹ + 1*2² = 7₁₀
1000₂ = 0*2⁰ + 0*2¹ + 0*2² + 1*2³ = 8₁₀
1001₂ = 1*2⁰ + 0*2¹ + 0*2² + 1*2³ = 9₁₀
1010₂ = 0*2⁰ + 1*2¹ + 0*2² + 1*2³ = 10₁₀
1011₂ = 1*2⁰ + 1*2¹ + 0*2² + 1*2³ = 11₁₀
1100₂ = 0*2⁰ + 0*2¹ + 1*2² + 1*2³ = 12₁₀
1101₂ = 1*2⁰ + 0*2¹ + 1*2² + 1*2³ = 13₁₀
1110₂ = 0*2⁰ + 1*2¹ + 1*2² + 1*2³ = 14₁₀
1111₂ = 1*2⁰ + 1*2¹ + 1*2² + 1*2³ = 15₁₀
1₂ = 1₁₀
10₂ =2₁₀
11₂ = 3₁₀
100₂ = 4₁₀
101₂ = 5₁₀
110₂ = 6₁₀
111₂ = 7₁₀
1000₂ = 8₁₀
1001₂ = 9₁₀
1010₂ = 10₁₀
1011₂ = 11₁₀
1100₂ = 12₁₀
1101₂ = 13₁₀
1110₂ = 14₁₀
1111₂ = 15₁₀
это таблица для перевода координат точек в 10-ную систему
Объяснение:
1₂ = 1*2⁰ = 1₁₀
10₂ = 0*2⁰ + 1*2¹ = 2₁₀
11₂ = 1*2⁰ + 1*2¹ = 3₁₀
100₂ = 0*2⁰ + 0*2¹ + 1*2² = 4₁₀
101₂ = 1*2⁰ + 0*2¹ + 1*2² = 5₁₀
110₂ = 0*2⁰ + 1*2¹ + 1*2² = 6₁₀
111₂ = 1*2⁰ + 1*2¹ + 1*2² = 7₁₀
1000₂ = 0*2⁰ + 0*2¹ + 0*2² + 1*2³ = 8₁₀
1001₂ = 1*2⁰ + 0*2¹ + 0*2² + 1*2³ = 9₁₀
1010₂ = 0*2⁰ + 1*2¹ + 0*2² + 1*2³ = 10₁₀
1011₂ = 1*2⁰ + 1*2¹ + 0*2² + 1*2³ = 11₁₀
1100₂ = 0*2⁰ + 0*2¹ + 1*2² + 1*2³ = 12₁₀
1101₂ = 1*2⁰ + 0*2¹ + 1*2² + 1*2³ = 13₁₀
1110₂ = 0*2⁰ + 1*2¹ + 1*2² + 1*2³ = 14₁₀
1111₂ = 1*2⁰ + 1*2¹ + 1*2² + 1*2³ = 15₁₀
uses graphabc,crt;
const t=500;
begin
setwindowsize (600, 600);
setpencolor (clblack);
setbrushcolor (clblack);
rectangle (45, 45, 105, 225 );
setpencolor (clred);
setbrushcolor (clred);
circle (75, 75, 25);
setpencolor (clyellow);
setbrushcolor (clyellow);
circle (75, 130, 25);
setpencolor (clgreen);
setbrushcolor (clgreen);
circle (75, 185, 25);
setpencolor (clblack);
setbrushcolor (clblack);
rectangle (70, 225, 80, 300);
setbrushcolor (clDkGray); circle (75, 130, 25);
setbrushcolor (clgreen); circle (75, 185, 25);
repeat
setbrushcolor (clDkGray); circle (75, 185, 25);
setbrushcolor (clred); circle (75, 75, 25); delay(t);
setbrushcolor (clDkGray); circle (75, 75, 25);
setbrushcolor (clyellow); circle (75, 130, 25); delay(t);
setbrushcolor (clDkGray); circle (75, 130, 25);
setbrushcolor (clgreen); circle (75, 185, 25); delay(t);
until keypressed;
end.