Производная ломаная в виде двух массивов

[lilywka]

Задать произвольное ломаную в виде двух одномерных массивов, единицы координат - см,изобразить ее на форме таким образом, чтобы предельные точки ломаной лежали на границах экрана.
если кто знает, как эту программу написать, отзовитесь. позарез нужно. ее нужно написать в Делфи7

[Ezhik Kihze]

Проблема в чем? Массивы не знаете как объявляются?

[lilywka]

проблема в том, что я не знаю, как нарисовать эту самую ламаную.

[Serge_Bliznykov]

Сообщение от lilywka

проблема в том, что я не знаю, как нарисовать эту самую ламаную.

проще всего рисовать её прямо на канве формы:
смотри:
Canvas.MoveTo
Canvas.LineTo

[lilywka]

вот я набросала немного, но мне выдает кучу ошибок

unit Unit1;

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

type
  TForm1 = class(TForm)
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1:TForm1;
  Button1:TButton;
implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var
  gr: array[1..50] of TPoint;
  x0,y0: integer; 
  dx,dy: integer; 
  i: integer;
begin
  х0:=10;
  у0:=200;
  dx:=5;
  dy:=5;
for i:=l to 50 do
begin
  gr[i].x:=x0+(i-l)*dx;
  gr[i].y:=y0-Data[i]*dy;
end;
with forml.Canvas do
begin
  Form1.Convas MoveTo(x0,y0);
  Form1.Convas LineTo(x0,10);
  Form1.Convas MoveTo(x0,y0);
  Form1.Convas LineTo(200,y0);
  Polyline(gr); 
end;
end.

[Serge_Bliznykov]

var
  Form1:TForm1;
  Button1:TButton;

то, что красным - это Вы ручками дописали? А зачем?! у вас же кнопка уже на форме есть!

for i:=l to 50 do
begin
  gr[i].x:=x0+(i-l)*dx;
  gr[i].y:=y0-Data[i]*dy;
end;

что есть Data[i] ? Откуда взялось, почему не вижу?