Информатика: Напишите подпрограмму которая рисует домик

vvozmisheva2

01.02.2023 04:16

Информатика

Есть ответ 👍

Напишите подпрограмму которая рисует домик

242

342

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

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

111110098735280

Информатика

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

// pascalabc.net 3.1, сборка 1218 от 12.04.2016 uses graphabc; procedure sun(x, y: integer); begin var c : = 8; for var j : = 1 to 100 do begin var r : = 15 * c; var k : = 0; if j mod 2 = 0 then k : = 20; for var i : = 0 to c do begin brush.color : = rgb(230 - k, 230 - k, 0); circle(x, y, r); k : = k + 15; r : = r - 15; sleep(100); end; end; end; procedure house(x, y: integer); begin brush.color : = clbrown; pen.color : = clburlywood; var house_width : = 300; var house_height : = 300; var count : = 10; var step : = round(house_width / count); fillrectangle(x, y, x + house_width, y + house_height); var xx : = x; for var i : = 1 to count - 1 do begin xx : = xx + step; line(xx, y, xx, y + house_height); end; brush.color : = clgray; fillrectangle(x + 100, y + 100, x + 200, y + 210); brush.color : = clyellow; fillrectangle(x + 105, y + 105, x + 195, y + 150); brush.color : = clred; fillrectangle(x + 105, y + 155, x + 150, y + 205); brush.color : = clblue; fillrectangle(x + 155, y + 155, x + 195, y + 205); moveto(x + house_width div 2, y - 80); lineto(x + house_width, y, pen.color); lineto(x, y, pen.color); lineto(x + house_width div 2, y - 80, pen.color); floodfill(x + house_width div 2, y - 10, clolive); brush.color : = clred; circle(x + house_width div 2, y - 35, 30); end; procedure turtoise(x, y: integer); begin brush.color : = clgreen; pen.color : = clgreen; fillrectangle(x + 5, y + 15, x - 20, y + 24); fillrectangle(x + 50, y, x + 30, y + 70); fillrectangle(x + 100, y, x + 120, y + 70); fillcircle(x + 170, y, 30); brush.color : = clwhite; fillcircle(x + 180, y - 20, 10); brush.color : = clblack; fillcircle(x + 182, y - 18, 2); brush.color : = clred; fillrectangle(x + 180, y, x + 200, y + 4); brush.color : = clbrown; fillellipse(x, y - 10, x + 150, y + 50); end; begin window.init(0, 0, 1920, 1000, clblue); brush.color : = cllimegreen; rectangle(0, 580, 1920, 1018); house(700, 380); turtoise(300, 600); turtoise(900, 750); sun(1200, 200); end.

Finikotik

Информатика

4,8(35 оценок)

Дано: k1=k2 = k i1 = 5 ( ) i2 = 6 ( ) найти: решение: ответ: в раза

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

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

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

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

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

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

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

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

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

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