Решебник
- Урок 11. Задание 3.
- ...
- Урок 20. Задание 5.
- Урок 20. Задание 6.
- Урок 21. Задание 1.
- Урок 21. Задание 2.
- Урок 22. Задание 1.
- Урок 22. Задание 2.
- Урок 22. Задание 3.
Program ship;
uses graphABC;
begin
SetWindowSize(600,500);
SetPenColor(clNavy);
line(0,200,100,300);
line(100,300,500,300);
line(500,300,600,200);
line(600,200,0,200);
line(100,200,200,150);
floodfill(250,250,clNavy);
SetBrushColor(clGray);
rectangle(200,100,350,200);
fillrect(200,100,350,200);
line(350,200,350,50);
SetBrushColor(clRed);
FillRect(350,50,400,70);
SetBrushColor(clGreen);
FillRect(350,70,400,80);
End.
uses graphABC;
begin
SetWindowSize(600,500);
SetPenColor(clNavy);
line(0,200,100,300);
line(100,300,500,300);
line(500,300,600,200);
line(600,200,0,200);
line(100,200,200,150);
floodfill(250,250,clNavy);
SetBrushColor(clGray);
rectangle(200,100,350,200);
fillrect(200,100,350,200);
line(350,200,350,50);
SetBrushColor(clRed);
FillRect(350,50,400,70);
SetBrushColor(clGreen);
FillRect(350,70,400,80);
End.