Информатика: Нарисовать любые 2 рисунка в паскале авс

Mastermastack

05.11.2021 07:50

Информатика

Есть ответ 👍

Нарисовать любые 2 рисунка в паскале авс

155

288

Посмотреть ответы 2

Ответы на вопрос:

aliana77777

Информатика

4,5(42 оценок)

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.