графика в делфи

[Lena neznayka]

если кто-то в этом понимает, то да нужно подтолкнуть!!!!!а если не понимает????то что делать????

[Snejnaya]

а если кто-то вообще, ну вообще ничего не понимает, и при этом учится по специальности, связанной с программированием, как этот кто-то планирует дальше учится и деньги после универа зарабатывать?

Чтобы нарисовать в делфи линию из точки а(ха,уа) в b(xb,yb) нужно всего две функции
Form1.Canvas.MoveTo(xa,ya) - поставить курсор в точку а
Form1.Canvas.LineTo(xb,yb) - провести линию из текущего положения курсора в точку с координатами xb,yb.

Или вы не можете посчитать пространственные (х, y,z) координаты точек пирамиды?

[Lena neznayka]

не знаю как и кто учится и там деньги будет зарабатывать, но о Вас мнение слаживается не лучшее!!!

[Snejnaya]

складывается, Лена, складывается...

[Lena neznayka]

в ваших исправлениях не нуждаюсь!!!!!!!!!!!!!

[Lena neznayka]

unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, ExtCtrls;

type
TForm1 = class(TForm)
I1: TImage;
procedure FormCreate(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
i1.Canvas.MoveTo(250,250);
i1.Canvas.LineTo(300,200);
i1.Canvas.LineTo(400,200);
i1.Canvas.LineTo(350,250);
i1.Canvas.LineTo(250,250);
i1.Canvas.MoveTo(300,200);
i1.Canvas.Pen.Style:=psDash;
i1.Canvas.Pen.Color:=clred;
i1.Canvas.LineTo(300,250);
i1.Canvas.Pen.Style:=pssolid;
i1.Canvas.Pen.Color:=clBlack;
i1.Canvas.MoveTo(350,100);
i1.Canvas.LineTo(300,200);
i1.Canvas.MoveTo(350,100);
i1.Canvas.LineTo(400,200);
i1.Canvas.MoveTo(350,100);
i1.Canvas.LineTo(250,250);
i1.Canvas.MoveTo(350,100);
i1.Canvas.lineto(350,250);
i1.Canvas.Pen.Style:=psDash;
i1.Canvas.Pen.Color:=clred;
i1.Canvas.MoveTo(300,250);
i1.Canvas.LineTo(270,220);
i1.Canvas.LineTo(300,200);
end;

end.