Графика

[Kravec]

Нарисовать фигуру, образованную вырезанием из куба 3 кубиков со втрое меньшей длиной ребра.
НЕ могу никак нарисовать это изображенние

PS извените за кривое вложенние ..... сам рисовал )

[NSvirus]

uses
Graph, Crt;

const
PolyLine1 : array[1..14] of integer =
(
141, 283, 141, 143, 187, 106, 361, 126, 361, 260,
323, 309, 140, 282
);
PolyLine2 : array[1..12] of integer =
(
321, 230, 272, 222, 272, 186, 230, 178, 230, 154,
144, 143
);
PolyLine3 : array[1..14] of integer =
(
323, 309, 323, 229, 335, 217, 335, 184, 348, 162,
348, 134, 360, 126
);
PolyLine4 : array[1..10] of integer =
( 230, 154, 247, 138, 290, 143, 304, 128, 349, 134 );
PolyLine5 : array[1..10] of integer =
( 232, 179, 249, 161, 291, 167, 305, 154, 349, 161 );

var
grDriver : integer;
grMode : integer;
ErrCode : integer;
Key : char;

procedure DrawPICTURE;
begin
DrawPoly( 7, PolyLine1 );
DrawPoly( 6, PolyLine2 );
DrawPoly( 7, PolyLine3 );
Line( 335, 219, 285, 209 );
Line( 285, 209, 273, 221 );
DrawPoly( 5, PolyLine4 );
DrawPoly( 5, PolyLine5 );
Line( 272, 187, 288, 166 );
Line( 288, 144, 287, 209 );
Line( 336, 181, 288, 171 );
Line( 305, 128, 306, 156 );
Line( 248, 138, 249, 162 );
Line( 147, 144, 141, 143 );
end;

begin
grDriver := Detect;
InitGraph( grDriver, grMode, '' );
ErrCode := GraphResult;
if ErrCode <> grOk then
WriteLn('ЋиЁЎЄ* Ја*дЁЄЁ: ', GraphErrorMsg(ErrCode));
DrawPicture;
end.

[Kravec]

мм... не то ... спасибо за помощь )

[Kravec]

вот это изображенние надо нарисовать .... жду вашей помощи

[NSvirus]

Пиши в isq: 445137351, помогу за вознаграждение..

[Kozar]

Привет всем поиогите плиз нарисовать мобильный телефон, раскрасить и дать название=)