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

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