PascalDelphi / Многие готовые лабы за 1&2 сем. от Колесниковой М.Д. / Project _DinMas / Unit1

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    Label1: TLabel;
    Edit1: TEdit;
    Label2: TLabel;
    Edit2: TEdit;
    Button1: TButton;// ввод массива
    Button2: TButton;// вывод массива
    Button3: TButton;// показ результатов в Form2
    Button4: TButton;// суммирование
    Button5: TButton;// максимальный элемент
    Label3: TLabel;
    Edit3: TEdit;
    Button6: TButton;// массив из элементов, кратных "к"
    Button7: TButton;// сортировка массива по возрастанию
    Button8: TButton;// освобождение памяти и выход
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure Button4Click(Sender: TObject);
    procedure Button5Click(Sender: TObject);
    procedure Button6Click(Sender: TObject);
    procedure Button7Click(Sender: TObject);
    procedure Button8Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
  A:arr;
  n:integer;

implementation

uses Unit2;

{$R *.DFM}

Function GetSubstr(st:string;k:integer):string;
  Var i,p:integer;
 Begin for i:=1 to k-1 do
         begin
          p:=Pos(' ',st);
          st:=copy(st,p+1,length(st)-p);
         end;
       p:=Pos(' ',st);
       if p <> 0 then result:=copy(st,1,p-1)
                 else result:=st
 end;

procedure TForm1.Button1Click(Sender: TObject);
 // ввод массива
  Var i:integer;
 begin
  n:=StrToInt(Edit1.Text);
  SetLength(A,n);        // Выделение памяти
  for i:=0 to n-1 do
   A[i]:=StrToInt(GetSubstr(Edit2.text,i+1));
   {В динамическом массиве индекс 1-го элемента равен нулю,
   а из редактора Edit берется 1-й,2-й ит.д. элементы}
end;

procedure TForm1.Button2Click(Sender: TObject);
 // вывод массива
var i:integer;
 begin
 for i:= 0 to n-1 do
  Form2.listBox1.items.Add(IntToStr(A[i]))
end;

procedure TForm1.Button3Click(Sender: TObject);
 // показ результатов в Form2
begin
 Form2.show
end;

procedure TForm1.Button4Click(Sender: TObject);
 // суммирование
 Var k,i,S:integer;
     B:arr;
 begin  k:=0;
   for i:=0 to n-1 do
     if A[i]>0 then
       begin
        SetLength(B,k+1);    // Выделение памяти
        B[k]:=A[i]; k:=k+1
       end;
   S:=Sum(k,B);
   Form2.Edit1.Text:=IntToStr(S) ;
end;

procedure TForm1.Button5Click(Sender: TObject);
 // максимальный элемент
 Var amax,i,kmax:integer;
 begin
   amax:=Max(n,A);
   kmax:=0;
   for i:= 0 to n-1 do
     if A[i]=amax then kmax:=kmax+1;
   Form2.Edit2 .text:=inttostr(amax);
   Form2.Edit3.text:=inttostr(kmax);
 end;

procedure TForm1.Button6Click(Sender: TObject);
 // массив из элементов, кратных "к"
 var B:arr;
     k,kk,i:integer;
 begin
   k:=StrToInt(Edit3.text);
   Kratn(n,A,k,B,kk);
   if kk=0 then Form2.listBox2.items.Add('нет кратных')
           else
         for i:= 0 to kk-1 do
            Form2.listBox2.items.Add(IntToStr(B[i]));
   B:=nil
end;

procedure TForm1.Button7Click(Sender: TObject);
 // сортировка массива по возрастанию
 var i:integer;
 begin
   Sort(n,A);
   for i:= 0 to n-1 do
   Form2.listBox3.items.Add(IntToStr(A[i]))
end;

procedure TForm1.Button8Click(Sender: TObject);
 // освобождение памяти и выход
begin
  A:=nil;
 close
end;

end.