Лучшие помощники
- Megamozg 2170 б
- Matalya1 1800 б
- DevAdmin 1685 б
- arkasha_bortnikov 775 б
- Dwayne_Johnson 755 б
Uses Graphabc;
begin
SetWindowWidth(1000);
SetWindowHeight(800);
SetPenWidth(3);
SetFontSize(18);
Rectangle(200, 300, 600, 600);
Circle(400, 225, 40);
SetBrushColor(clBlue);
FillRect(300, 400, 500, 500);
rectangle(300, 400, 500, 500);
Line(400, 400, 400, 500);
Line(300, 450, 500, 450);
Line(200, 300, 400, 150);
Line(400, 150, 600, 300);
Line(480, 210, 480, 160);
Line(480, 160, 520, 160);
Line(520, 160, 520, 240);
end.
________________________________________
uses GraphABC;
begin
SetWindowSize(500, 500);
SetPenWidth(3);
SetBrushColor(clFuchsia);
Circle(225, 160, 50);
Line(225, 160, 225, 180);
Line(210, 190, 240, 190);
Line(225, 210, 225, 250);
Line(100, 100, 200, 260);
Line(200, 260, 400, 260);
Line(210, 350, 200, 480);
Line(240, 350, 250, 480);
Rectangle(200, 230, 250, 350);
SetBrushColor(clLime);
FillRect(0, 480, 500, 500);
SetBrushColor(clWhite);
Circle(205, 150, 10);
Circle(245, 150, 10);
end.
begin
SetWindowWidth(1000);
SetWindowHeight(800);
SetPenWidth(3);
SetFontSize(18);
Rectangle(200, 300, 600, 600);
Circle(400, 225, 40);
SetBrushColor(clBlue);
FillRect(300, 400, 500, 500);
rectangle(300, 400, 500, 500);
Line(400, 400, 400, 500);
Line(300, 450, 500, 450);
Line(200, 300, 400, 150);
Line(400, 150, 600, 300);
Line(480, 210, 480, 160);
Line(480, 160, 520, 160);
Line(520, 160, 520, 240);
end.
________________________________________
uses GraphABC;
begin
SetWindowSize(500, 500);
SetPenWidth(3);
SetBrushColor(clFuchsia);
Circle(225, 160, 50);
Line(225, 160, 225, 180);
Line(210, 190, 240, 190);
Line(225, 210, 225, 250);
Line(100, 100, 200, 260);
Line(200, 260, 400, 260);
Line(210, 350, 200, 480);
Line(240, 350, 250, 480);
Rectangle(200, 230, 250, 350);
SetBrushColor(clLime);
FillRect(0, 480, 500, 500);
SetBrushColor(clWhite);
Circle(205, 150, 10);
Circle(245, 150, 10);
end.
0
·
Хороший ответ
5 апреля 2023 02:00
Остались вопросы?
Еще вопросы по категории Информатика
Что такое сообщение? Примеры...
Неужели дождь Виктор живет в Санкт-Петербурге и каждый день перед работой смотрит прогноз погоды на день. Если метеорологи обещают солнечный ден...
Выберите все элементы, принадлежащие пересечению множеств A = {1000, мыло, 12, 9, -1, ножницы} и B = {-1, мыло, котенок, 122, 90}...
Компьютерный вирус А заполняет 1 Гб памяти за один месяц, вирус В заполняет 1 Гб за два месяца, вирус С заполняет 1 Гб за три месяца, вирус D заполняе...
Программирование. 1С. Задание 20 Определите, что напечатает программа. В ответе запишите числа в последовательности их вывода, без пробелов и раздели...