Головна | Реєстрація | Вхід | RSSПонеділок, 03.01.2021, 5:17 PM

Довідник для учнів та студентів

Меню сайту
Пошук
Наше опитування
Оцінка сайту
Всього відповідей: 1092
Що нового?
Форма входу
Міні-чат

Піраміда

Uses graph, crt;
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.
 Яндекс.Метрика
Статистика

Онлайн всього: 1
Гостей: 1
Користувачів: 0
Календар
«  Березень 2021  »
ПнВтСрЧтПтСбНд
1234567
891011121314
15161718192021
22232425262728
293031
Архів записів
Друзі сайту

Guide-for-students © 2021
Створити безкоштовний сайт на uCoz