Информатика: 100 нарисовать в паскале любой рисунок кроме домика

2маша

30.07.2021 06:01

Информатика

Есть ответ 👍

100 нарисовать в паскале любой рисунок кроме домика

152

174

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

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

FactorPlay

Информатика

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

Uses graphabc; begin setwindowsize(600,400); line(250,100, 300,50); lineto(350,100); lineto(250,100); floodfill(300,70, clgreen); line(220,200, 300,100); lineto(380,200); lineto(220,200); floodfill(300,150, clgreen); line(200,300, 300,200); lineto(400,300); lineto(200,300); floodfill(300,250, clgreen); rectangle(290, 300,310, 320); floodfill(300,305, clbrown); line(0, 300, 100, 350); lineto(200, 320); lineto(400, 320); lineto(600, 370); lineto(600,400); lineto(0,400); lineto(0,300); end. ну и вот светофор: uses graphabc,crt; var x,y,a1,a2: real; i,x1,r,s,k: integer; m1: array [1..3] of integer; y1: array [1..3] of integer; begin x: =320; y: =240; r: =10; m1[1]: =clred; m1[2]: =clyellow; m1[3]: =clgreen; x1: =round(x); y1[1]: =round(y); y1[2]: =y1[1]+20; y1[3]: =y1[2]+20; setbrushcolor(clblack); circle(x1,y1[1],r); circle(x1,y1[2],r); circle(x1,y1[3],r); while true do begin for i: =1 to 3 do begin setbrushcolor(m1); circle(x1,y1,r); if i=2 then sleep(500) else sleep(1500); setbrushcolor(clblack); circle(x1,y1,r); end; end; end.

Zver7777

Информатика

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

I=m*n*k k- глубина цвета м-по горизонтали n-по вертикали n=2^k 32bit=2^5 k=5 i=640*480*5=1536000 4 страницы? тогда делим на 4 1536000/4=6144000bit 6144000bit/8*1024=750кб ответ 750кб

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

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

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

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

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

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

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

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

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

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