Лучшие помощники
- Megamozg 2205 б
- Matalya1 1800 б
- DevAdmin 1720 б
- arkasha_bortnikov 900 б
- Dwayne_Johnson 870 б
2 апреля 2023 02:38
1202
Нарисовать любые 2 рисунка в паскале авс
1
ответ
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
·
Хороший ответ
4 апреля 2023 02:38
Остались вопросы?
Еще вопросы по категории Информатика
Растровая графика Таблица 2.3 Векторная графика ая Основной принцип Я Достоинства Недостатки СРОЧНО ДАМ ЛУЧШИЙ ОТВЕТ...
Растровый графический редактор предназначен для: * 1)Преобразования текстовой информации и графическую 2)Создания и обработки изображений, сохраняемых...
Памятник клавиатуре. Место расположения памятника Дата открытия памятника Материал, из которого изготовлен памятник. Описание внешнего вида Гр...
Какое количество ячеек имеет оперативная память объёмом 512 Мбайт?...
Срочно, помогите, пожалуйста. 3. Значение выражения 2410+11012 в двоичной системе счисления равно: 1) 110001 2) 100001 3) 100101 4) 11101...