Как сделать люстру и поместить в нее эту лампочку в паскале? uses crt,graphabc; procedure drawlamp(state: boolean); begin setfontsize(20); if state = true then begin setbrushcolor(clblack); setfontcolor(clwhite); textout(200,450,'true'); end else begin setbrushcolor(clwhite); setfontcolor(clblack); textout(200,450,'false'); end; end; procedure zokol; var i: byte; begin for i: =1 to 10 do begin if odd(i) then setbrushcolor(clbrown) else setbrushcolor(cldkgray); ellipse(199,300+(i10),301,300+(i10)+20); end; setbrushcolor(clblack); ellipse(230,410,270,430); end; procedure dark; begin clearwindow(clblack); zokol; setpencolor(clwhite); arc(250,150,100,-60,240); line(200,230,200,320); line(300,230,300,320); floodfill(250,250,clyellow); setbrushcolor(clwhite); circle(250,150,60); end; procedure ligth; begin clearwindow(clwhite); zokol; setpencolor(clblack); arc(250,150,100,-60,240); line(200,230,200,320); line(300,230,300,320); end; var lampstate: boolean; key: char; begin setwindowsize(500,500); hidecursor; lampstate : = false; repeat if lampstate=true then dark else ligth; drawlamp(lampstate); key : = readkey; if key = 'h' then lampstate : = not(lampstate); until key = #27; end.

116

236

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

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

коьик1

Информатика

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

Uses graphabc; const cx = 200; cy = 200; radius = 150; procedure chandelier(pencolor, brushcolor: color); begin setpencolor(pencolor); setbrushcolor(brushcolor); line(cx, 0, cx, cy - radius); fillpie(cx, cy, radius, 0, 180); ellipse(cx - radius, cy - 30, cx + radius, cy + 30); end; procedure dark(); begin clearwindow(clblack); chandelier(clgreen, cldarkgreen); setbrushcolor(clblack); setfontcolor(clwhite); textout(cx - 30, 2 * cy - 50, 'false'); end; procedure light(); begin clearwindow(clsilver); setbrushcolor(cllightgoldenrodyellow); fillpie(cx, cy - radius div 2, 3 * cx, 210, 330); chandelier(clgreen, cllime); setbrushcolor(clyellow); fillcircle(cx, cy - radius div 2, 35); setbrushcolor(cllightgoldenrodyellow); setfontcolor(clblack); textout(cx - 30, 2 * cy - 50, 'true'); end; procedure drawlamp(state: boolean); begin if state then light() else dark(); end; var lampstate: boolean; key: char; begin setwindowsize(2 * cx, 2 * cy); setfontsize(20); lampstate : = false; repeat drawlamp(lampstate); key : = readchar(); if key = 'h' then lampstate : = not lampstate; until key = #27; end.

хавал

Информатика

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

Var a: real; begin write('a = '); readln(a); writeln('d = ', sqrt(2 * sqr(; writeln('p = ', 4 * a); writeln('s = ', sqr(a)); end.

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

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

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

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

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

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

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

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

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

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