Begin Form2.show end;

procedure TForm1.Button4Click(Sender: TObject);

// суммирование

Var k,i,S:integer;

B:arr;

begin k:=0;

SetLength(B,k+1); // Выделение памяти

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.

Модуль формы Form2:

Unit Unit2;

Interface

Uses Windows, Messages, SysUtils, Classes, Graphics,

Controls, Forms, Dialogs, StdCtrls;

Type

TForm2 = class(TForm)

Label1: TLabel; ListBox1: TListBox;

Label2: TLabel; Edit1: TEdit;

Label3: TLabel; Edit2: TEdit;

Label4: TLabel; Edit3: TEdit;

Label5: TLabel; Label6: TLabel;

ListBox2: TListBox; Label7: TLabel;

ListBox3: TListBox;

private { Private declarations }

public { Public declarations } end;

Var

Form2: TForm2;

Implementation

{$R *.DFM}

End.

Модуль без формы с подпрограммами

для использования из приложения:

Unit Mas_PP;

Interface

Type arr=Array of Integer;

Function Sum(n:integer;A:arr):integer;

Function Max(n:integer;A:arr):integer;

ProcedureKratn(n:integer;A:arr;k:integer;var B:arr;

var kk:integer);

Procedure Sort(n:integer;var A:arr);

Implementation

Date: 2015-07-25; view: 339; Нарушение авторских прав