Рефераты по теме Программирование, Базы данных

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

Скачать реферат бесплатно ↓ [0 B]

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

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;
    procedure SpeedButton1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
   k3,k2,max,sum,i,xx:integer;
   s,ss:array[1..5]of integer;
   pr:extended;
   r1,r2,r3,r4,r5:trect;
implementation

{$R *.DFM}
procedure p1  ;
 begin
   form1.refresh;
form1.canvas.pen.width:=2;
form1.canvas.pen.color:=clblack;
   for i:=0 to 627 do
     begin
if i=ss[1] then  form1.canvas.pen.color:=clred;
if i=(ss[1]+ss[2]) then  form1.canvas.pen.color:=clblue;
if i=(ss[1]+ss[2]+ss[3]) then  form1.canvas.pen.color:=clgreen;
if i=(ss[1]+ss[2]+ss[3]+ss[4]) then  form1.canvas.pen.color:=clwhite;
 form1.canvas.moveto(75,75);
 form1.canvas.lineto(trunc(75+60*cos(i/100)),trunc(75+60*sin(i/100)));
     end;
{-------- линейный график --------------}
     form1.canvas.pen.width:=1;
     form1.canvas.moveto(200,20);
     form1.canvas.lineto(200,150);
     form1.canvas.lineto(400,150);
     form1.canvas.moveto(200,150);
     xx:=240;
     for i:=1 to 5 do
       begin
       form1.canvas.lineto(xx,(150-s[i]*k2));
       xx:=xx+40;
       end;
{--------- гистограмма ------------}
  form1.canvas.pen.width:=2;
  form1.canvas.moveto(48,190);
  form1.canvas.lineto(48,402);
  form1.canvas.lineto(402,402);
  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));
  form1.canvas.brush.color:=clblack;
  form1.canvas.fillrect(r1);
  form1.canvas.brush.color:=clred;
  form1.canvas.fillrect(r2);
  form1.canvas.brush.color:=clblue;
  form1.canvas.fillrect(r3);
  form1.canvas.brush.color:=clgreen;
  form1.canvas.fillrect(r4);
  form1.canvas.brush.color:=clwhite;
  form1.canvas.fillrect(r5);
 end;

procedure TForm1.SpeedButton1Click(Sender: TObject);
begin
     s[1]:=SpinEdit1.value;
     s[2]:=SpinEdit2.value;
     s[3]:=SpinEdit3.value;
     s[4]:=SpinEdit4.value;
     s[5]:=SpinEdit5.value;
    sum:=0;
    for i:=1 to 5 do
         sum:=sum+s[i];
     pr:=628/sum;
     for i:=1 to 5 do