Добрый день, с паскалем нужно размножить снежинку и чтобы она появлялась в рандомных местах uses graphabc; var y, i, x: integer; begin moveto(0,320); lineto(2000,320); line(120,100,80,140); line(120,100,160,140); line(120,160,80,200); line(120,160,160,200); line(120,220,80,260); line(120,220,160,260); line(120,100,120,320); rectangle(260,180,400,320); line(260,180,340,100); line(340,100,400,180); rectangle(300,220,340,260); line(300,240,340,240); line(320,220,320,260); rectangle(300,280,340,320); for i : = 1 to 10 do begin x : = random (1024); y : = random (200); line(440,60,480,100); line(440,80,480,80); line(480,60,440,100); line(460,60,460,100); rectangle(460,200,500,320); line(460,220,500,220); line(460,240,500,240); line(460,260,500,260); line(460,280,500,280); line(460,300,500,300); line(500,200,560,200); line(560,200,640,320); line(500,320,640,320); circle(760,280,40); circle(760,220,20); circle(760,190,10); line(500,120,540,120); line(600,20,600,60); line(600,180,600,220); line(660,120,700,120); circle(600,120,40); floodfill(140,440,clskyblue); floodfill(160,380,clskyblue); floodfill(160,350,clskyblue); floodfill(320,200,clgray); floodfill(310,230,clyellow); floodfill(330,230,clyellow); floodfill(310,250,clyellow); floodfill(330,250,clyellow); floodfill(302,20,clsilver); floodfill(600,140,clyellow); floodfill(320,300,clbrown); floodfill(320,160,clred); floodfill(540,250,clteal); floodfill(480,210,clmaroon); floodfill(480,230,clmaroon); floodfill(480,250,clmaroon); floodfill(480,270,clmaroon); floodfill(480,290,clmaroon); floodfill(480,310,clmaroon); end; end.

170

451

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

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

lanovoimaxoxpw94

Информатика

4,4(47 оценок)

Uses graphabc; var y, i, x, j, x1, y1: integer; begin moveto(0,320); lineto(2000,320); line(120,100,80,140); line(120,100,160,140); line(120,160,80,200); line(120,160,160,200); line(120,220,80,260); line(120,220,160,260); line(120,100,120,320); rectangle(260,180,400,320); line(260,180,340,100); line(340,100,400,180); rectangle(300,220,340,260); line(300,240,340,240); line(320,220,320,260); rectangle(300,280,340,320); for i : = 1 to 10 do begin x : = random (1024); y : = random (200); for j: =1 to 3 do begin x1: =random(800); y1: =random(100); line(x1,y1,x1+40,y1+40); line(x1,y1+20,x1+40,y1+20); line(x1+40,y1,x1,y1+40); line(x1+20,y1,x1+20,y1+40); end; rectangle(460,200,500,320); line(460,220,500,220); line(460,240,500,240); line(460,260,500,260); line(460,280,500,280); line(460,300,500,300); line(500,200,560,200); line(560,200,640,320); line(500,320,640,320); circle(760,280,40); circle(760,220,20); circle(760,190,10); line(500,120,540,120); line(600,20,600,60); line(600,180,600,220); line(660,120,700,120); circle(600,120,40); floodfill(140,440,clskyblue); floodfill(160,380,clskyblue); floodfill(160,350,clskyblue); floodfill(320,200,clgray); floodfill(310,230,clyellow); floodfill(330,230,clyellow); floodfill(310,250,clyellow); floodfill(330,250,clyellow); floodfill(302,20,clsilver); floodfill(600,140,clyellow); floodfill(320,300,clbrown); floodfill(320,160,clred); floodfill(540,250,clteal); floodfill(480,210,clmaroon); floodfill(480,230,clmaroon); floodfill(480,250,clmaroon); floodfill(480,270,clmaroon); floodfill(480,290,clmaroon); floodfill(480,310,clmaroon); end; end.

gei228

Информатика

4,6(14 оценок)

Что там семь букв. и что оно насекомое

Реши свою проблему, спроси otvet5GPT

Быстро
Мгновенный ответ на твой вопрос
Точно
Бот обладает знаниями во всех сферах
Бесплатно
Задай вопрос и получи ответ бесплатно

Задай свой вопрос

Популярно: Информатика

Есть вопросы?

Как otvet5GPT работает?

otvet5GPT использует большую языковую модель вместе с базой данных GPT для обеспечения высококачественных образовательных результатов. otvet5GPT действует как доступный академический ресурс вне класса.
Сколько это стоит?

Проект находиться на стадии тестирования и все услуги бесплатны.
Могу ли я использовать otvet5GPT в школе?

Конечно! Нейросеть может помочь вам делать конспекты лекций, придумывать идеи в классе и многое другое!
В чем отличия от ChatGPT?

otvet5GPT черпает академические источники из собственной базы данных и предназначен специально для студентов. otvet5GPT также адаптируется к вашему стилю письма, предоставляя ряд образовательных инструментов, предназначенных для улучшения обучения.