Расставить на экране 30 окружностей со случайными координатами x и y, случайного радиуса и цвета ("мыльные пузыри").паскаль, решите, кто знает
114
179
Ответы на вопрос:
uses graphabc; var x,y,r,i,color: integer; begin randomize; for i: =1 to 30 do begin x: =random(640)+0; y: =random(480)+0; r: =random(30)+5; circle(x,y,r); color: =random(1000)+0; floodfill(x,y,color); end; end.
Популярно: Информатика
-
VasyaRaglinskiy6620.07.2020 08:32
-
максаткайрат10.09.2020 21:59
-
макс301317.02.2020 00:07
-
Ангелинка200713.05.2021 06:44
-
Vikysay1018.06.2022 22:26
-
urspacce14.04.2021 05:36
-
Аким54811.03.2023 05:34
-
Julyash10.05.2022 13:37
-
Marina5254712.10.2021 22:36
-
ддд4умник02.05.2020 22:58