Решебник
- Урок 11. Задание 3.
- ...
- Урок 20. Задание 3.
- Урок 20. Задание 4.
- Урок 20. Задание 5.
- Урок 20. Задание 6.
- Урок 21. Задание 1.
- Урок 21. Задание 2.
- Урок 22. Задание 1.
Program ulit;
uses graphABC;
begin
SetWindowSize(600,400);
SetBrushColor(clGreen);
circle(300,200,100);
SetBrushColor(clYellow);
circle(300,200,50);
SetBrushColor(clRed);
circle(300,200,20);
line(300,300,400,300);
line(400,300,500,200);
line(500,200,370,270);
floodfill(400,295,clGreen);
SetBrushColor(clGreen);
Circle(500,180,20);
line(480,140,500,160);
line(520,140,500,160);
Circle(505,170,3);
Circle(495,170,3);
line(495,190,505,190);
End.
uses graphABC;
begin
SetWindowSize(600,400);
SetBrushColor(clGreen);
circle(300,200,100);
SetBrushColor(clYellow);
circle(300,200,50);
SetBrushColor(clRed);
circle(300,200,20);
line(300,300,400,300);
line(400,300,500,200);
line(500,200,370,270);
floodfill(400,295,clGreen);
SetBrushColor(clGreen);
Circle(500,180,20);
line(480,140,500,160);
line(520,140,500,160);
Circle(505,170,3);
Circle(495,170,3);
line(495,190,505,190);
End.