Головна | Реєстрація | Вхід | RSS | Четвер, 03.28.2024, 4:56 PM |
Довідник для учнів та студентів | |
Вітаю Вас Гость |
|
ЗамокUses graph, crt; var dv,mv: integer; Begin dv:=detect; initgraph (dv,mv,' '); cleardevice; SetFillStyle(1,11); Bar(0,639,639,0); SetFillStyle(1,9); Bar(100,500,500,250); Bar(200,400,400,200); Bar(250,300,350,150); SetColor(9); Line(250,150,300,80); Line(300,80,350,150); Line(350,150,250,150); PiesLice(300,80,308,232,90); SetColor(4); Line(300,80,300,20); Line(300,20,340,20); Line(340,20,320,30); Line(320,30,340,40); Line(340,40,300,40); SetFillStyle(1,6); SetColor(0); FillEllipse(300,450,120,170); Line(300,280,300,480); Circle(280,380,10); Circle(320,380,10); SetColor(4); Line(100,250,80,200); Line(80,200,60,240); Line(60,240,92,230); Line(500,250,520,200); Line(520,200,540,240); Line(540,240,508,230); SetFillStyle(11,10); Bar(0,459,639,639); SetTextstyle(1,0,3); OutTextxy(250,210,'Teremok'); setColor(15); SetFillStyle(1,15); FillEllipse(150,300,30,40); FillEllipse(450,300,30,40); FillEllipse(300,180,20,30); SetFillStyle(1,9); Bar(100,300,190,360); Bar(400,300,490,360); Bar(250,180,331,210); repeat until keypressed; closegraph; End. |
|
Guide-for-students © 2024 |
Створити безкоштовний сайт на uCoz |