رسم یک خط در پاسکال

با سلام خدمت همه دوستان

من یخواهم که در پاسکال یک خط رسم کنم به گونه ای که برنامه ابتدا محل روع خط و محل پایان و اندازه آن را دریافت کرده و به ترتیب گفته شده خطی را رسم کند.

دوستان خیلی فوریه اگر چیزی ویدونید دریغ نکنید چون من خیلی گیر هستم

قربان شما (علی شهبازی)

مولا علی (ع) میفرمایند : هرگز در مورد چیزی که بدان علم نداری سخن مگو

از تابع line استفاده کن

کد:

---

line(x1,y1,x2,y2)

---

برنامه نمونه :

کد:

---

{Line.PAS}

{Sample code for the Line procedure.}

uses Crt, Graph;
var Gd, Gm: Integer;
begin
 Gd := Detect;
 InitGraph(Gd, Gm, ' ');
 if GraphResult <> grOk then
  Halt(1);
 Randomize;
 repeat
  Line(Random(200), Random(200), Random(200), Random(200));
 until KeyPressed;
 Readln;
 CloseGraph;
end.

---