Как сделать люстру и поместить в нее эту лампочку в паскале? uses Crt,graphABC; procedure DrawLamp(state: Boolean); begin setfontsize(20); if state = true then begin setbrushcolor(clblack); setfontcolor(clwhite); ...
Как сделать люстру и поместить в нее эту лампочку в паскале?
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+(i*10),301,300+(i*10)+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.
Гость
Ответ(ы) на вопрос:
Гость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.
Не нашли ответ?
Похожие вопросы