Головна | Реєстрація | Вхід | RSS | Четвер, 04.25.2024, 10:44 AM |
Довідник для учнів та студентів | |
Вітаю Вас Гость |
|
Паралелепіпед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. |
|
Guide-for-students © 2024 |
Створити безкоштовний сайт на uCoz |