Кадрирование, диаграмма и график. Геометрическое моделирование

unit Unit1;

interface

uses

Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,

Buttons, StdCtrls, Spin, ExtCtrls;

type

TForm1 = class(TForm)

SpinEdit2: TSpinEdit;

SpinEdit3: TSpinEdit;

SpinEdit4: TSpinEdit;

SpinEdit5: TSpinEdit;

SpeedButton1: TSpeedButton;

SpinEdit1: TSpinEdit;

<{ Private declarations }

<{ Public declarations }

ar

Form1: TForm1;

r1,r2,r3,r4,r5:trect;

implementation

{$R *.DFM}

procedure p1а ;

form1.canvas.pen.width:=2;

form1.canvas.pen.color:=clblack;

if i=ss[1] thenа

if i=(ss[1]+ss[2]) thenа

if i=(ss[1]+ss[2]+ss[3]) thenа

if i=(ss[1]+ss[2]+ss[3]+ss[4]) thenа

{-------- линейный график --------------}

{--------- гистограмма ------------}

r1:=rect(50,400,120,(400-s[1]*k3));

r2:=rect(120,400,190,(400-s[2]*k3));

r3:=rect(190,400,260,(400-s[3]*k3));

r4:=rect(260,400,330,(400-s[4]*k3));

r5:=rect(330,400,400,(400-s[5]*k3));

procedure TForm1.SpeedButton1Click(Sender: TObject);

begin

end;

end.