Решебник
- Урок 11. Задание 3.
- ...
- Урок 19. Задание 1.
- Урок 19. Задание 2.
- Урок 19. Задание 3.
- Урок 19. Задание 4.
- Урок 20. Задание 1.
- Урок 20. Задание 2.
- Урок 20. Задание 3.
Program usegraph3;
uses graphABC,crt;
begin
SetWindowSize(600,500);
SetPenColor(clRed);
SetPenWidth(4);
line(50,100,150,100);
line(150,100,100,200);
line(100,200,50,100);
TextOut(50,70,'Треугольник');
SetPenColor(clBlue);
Circle(250,150,50);
TextOut(210,70,'Окружность');
SetPenColor(clGreen);
Rectangle(350,100,500,200);
TextOut(380,70,'Прямоугольник');
End.
uses graphABC,crt;
begin
SetWindowSize(600,500);
SetPenColor(clRed);
SetPenWidth(4);
line(50,100,150,100);
line(150,100,100,200);
line(100,200,50,100);
TextOut(50,70,'Треугольник');
SetPenColor(clBlue);
Circle(250,150,50);
TextOut(210,70,'Окружность');
SetPenColor(clGreen);
Rectangle(350,100,500,200);
TextOut(380,70,'Прямоугольник');
End.