Головна | Реєстрація | Вхід | RSS | П`ятниця, 04.26.2024, 5:33 PM |
Довідник для учнів та студентів | |
Вітаю Вас Гость |
|
Пірамідаvar dv,mv: integer; Begin dv:=detect; initgraph (dv,mv,' '); cleardevice; SetColor(2); SetFillStyle(1,0); FillEllipse(120,150,80,30); Line(40,150,20,350); Line(200,150,220,350); Ellipse(120,350,180,10,100,30); Line(23,345,27,340); Line(37,330,41,328); Line(51,320,55,318); Line(65,314,69,313); Line(79,311,83,310); Line(93,308,97,307); Line(107,307,111,307); Line(121,307,125,307); Line(135,307,139,307); Line(149,307,153,308); Line(163,310,167,311); Line(177,313,181,315); line(191,319,195,321); Line(205,326,209,329); Line(215,334,219,340); Line(380,150,300,350); Line(380,150,580,350); Line(380,150,520,240); Line(520,240,580,350); Line(300,350,580,350); Line(310,345,320,340); Line(330,335,340,330); Line(350,325,360,320); Line(370,315,380,310); Line(390,305,400,300); Line(410,295,420,290); Line(430,285,440,280); Line(450,275,460,270); line(470,265,480,260); Line(490,255,500,250); Line(510,245,520,240); OutTextxy(100,400,'konys'); OutTextxy(400,400,'piramida'); SetTextStyle(0,0,2); OutTextxy(250,50,'Geometry'); repeat until keypressed; closegraph; End. |
|
Guide-for-students © 2024 |
Створити безкоштовний сайт на uCoz |