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

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

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

Паралелепіпед

Uses graph, crt;
var dv,mv: integer;

Begin
dv:=detect;
initgraph (dv,mv,' ');
cleardevice;

SetColor(2);
Line(150,150,250,150);
line(250,150,190,200);
line(190,200,90,200);
Line(90,200,150,150);

line(90,200,90,400);
Line(90,400,190,400);
Line(190,400,190,200);
Line(250,150,250,350);
Line(250,350,190,400);

SetLineStyle(2,1,1);
Line(150,150,150,350);
Line(150,350,90,400);
Line(150,350,250,350);

SetLineStyle(0,1,1);
Line(350,150,450,150);
Line(350,150,380,190);
Line(380,190,450,150);

Line(450,150,450,300);
Line(350,150,350,300);
lINE(380,190,380,340);
lINE(380,340,350,300);
line(380,340,450,300);

SetLineStyle(2,1,1);
Line(450,300,350,300);

OutTextxy(80,190,'A');
Outtextxy(140,140,'B');
OutTextxy(250,140,'C');
OutTextxy(185,190,'D');
OutTextxy(185,410,'D1');
OutTextxy(80,410,'A1');
OutTextxy(130,340,'B1');
Outtextxy(230,340,'C1');

OutTextxy(340,140,'A');
OutTextxy(450,140,'B');
OutTextxy(380,175,'C');
OutTextxy(380,350,'C1');
OutTextxy(330,300,'A1');
OutTextxy(460,300,'B1');



repeat until keypressed;
closegraph;
End.
 Яндекс.Метрика
Статистика

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

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