Сортировка

unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Math;
 
type
  TForm1 = class(TForm)
    cbb1: TComboBox;
    cbb2: TComboBox;
    lbl1: TLabel;
    lbl2: TLabel;
    btn1: TButton;
    btn2: TButton;
    btn3: TButton;
    btn5: TButton;
    procedure btn1Click(Sender: TObject);
    procedure btn3Click(Sender: TObject);
    procedure btn2Click(Sender: TObject);
 
    procedure btn5Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Form1: TForm1;
  const
    n=50;
implementation
 
{$R *.dfm}
 
procedure TForm1.btn1Click(Sender: TObject);
var
  x:array[0..n] of Real;
   y:array[0..n] of Real;
   h:Real; i:Integer;
begin
  h:=(2*Pi)/n;
  for i:=0 to n do
  begin
    x[i]:=i*h;
    y[i]:=Sin(Sqrt(2*x[i]))+Cos(x[i]);
    cbb1.Items.Add(IntToStr(i)+'    x='+FloatToStrF(x[i],ffFixed,3,3)+
    '     '+'y='+FloatToStrF(y[i],ffFixed,3,3));
    end;
end;
 
procedure TForm1.btn3Click(Sender: TObject);
begin
  Close;
end;
 
procedure TForm1.btn2Click(Sender: TObject);
var
    i:Integer;
    begin
 
   for i:=0 to n do begin
 
     if (i/2= i div 2) then
     begin
    cbb2.Items.Add(cbb1.Items.Strings[i]);
 
end;  end; end;
 
 
procedure TForm1.btn5Click(Sender: TObject);
begin
cbb2.Sorted:=True;
 
end;
 
end.