Ответы на вопрос:
Uses graphabc; var x, y: word; i: byte; begin setbrushstyle(bsclear); setwindowwidth(590); setwindowheight(390); rectangle(5, 5, 585, 385); x : = 25; y : = 25; circle(565, 25, 20); circle(565, 365, 20); circle(25, 365, 20); repeat circle(x, y, 20); if (x < 565) and (y = 25) then x : = x + 20; if (x = 565) and (y < 365) then y : = y + 20; if (y = 365) and (x > 25) then x : = x - 20; if (x = 25) and (y > 25) then y : = y - 20; until (x = 25) and (y = 25); rectangle(50, 50, 540, 340); x : = 115; for i : = 1 to 8 do begin circle(x, 210, 6); circle(x, 210, 40); circle(x, 210, 45); x : = x + 51; end; x : = 95; for i : = 1 to 11 do begin y : = 130; line(x, y, x, y - 30); y : = y - 30; line(x, y, x + 30, y); x : = x + 30; line(x, y, x, y + 25); y : = y + 25; line(x, y, x - 20, y); x : = x - 20; line(x, y, x, y - 15); y : = y - 15; line(x, y, x + 10, y); x : = x + 10; line(x, y, x, y + 8); y : = y + 8; line(x, y, x - 3, y); x : = x - 3; line(x, y, x, y - 4); y : = y - 4; line(x, y, x - 3, y); x : = x - 3; line(x, y, x, y + 7); y : = y + 7; line(x, y, x + 10, y); x : = x + 10; line(x, y, x, y - 15); y : = y - 15; line(x, y, x - 18, y); x : = x - 18; line(x, y, x, y + 24); y : = y + 24; line(x, y, x + 30, y); x : = x + 30; end; end .
Популярно: Информатика
-
prapra2017oz2bo230.09.2021 17:58
-
OToMCTuTEL13.10.2021 15:57
-
20022013настя21.06.2021 11:50
-
koteika28219.02.2021 22:39
-
ayiina26425.03.2020 06:38
-
reegiinaaa17.09.2022 12:10
-
Anna6966605.06.2023 14:58
-
Ele4ka1722.11.2022 12:23
-
bogdansudak200615.10.2020 04:32
-
iceheart161831.07.2021 04:33