Лабы / 2 семестр / 2 лаба

Статическая библиотека

unit Unit4;

interface

Type

mass=array[1..2,1..20] of integer;

Function XpoVozr(x:mass; n1:integer):boolean;

Function YpoYbiv(x:mass; n1:integer):boolean;

Procedure Pomen2(var x:mass; N,C:integer);

implementation

Function XpoVozr;

var m:integer;

begin

XpoVozr:=true;

for m:=2 to n1 do begin

if x[1,m-1]<=x[1,m] then

else begin

XpoVozr:=false;

break;

end;

end;

end;

/////

Function YpoYbiv;

var m:integer;

begin

YpoYbiv:=true;

for m:=2 to n1 do begin

if x[2,m-1]>=x[2,m] then

else begin

YpoYbiv:=false;

break;

end;

end;

end;

Procedure Pomen2;

var

m,L:integer;

begin

m:=x[1,N];

x[1,N]:=x[1,C];

x[1,C]:=m;

//

L:=x[2,N];

x[2,N]:=x[2,C];

x[2,C]:=L;

//

end;

end.

Основной код:

var

Form3: TForm3;

A:mass;

n,i,U,F:integer;

a3,b3,a4,b4:mass;

H:integer;

q,p:boolean;

implementation

{$R *.dfm}

procedure TForm3.Button1Click(Sender: TObject);

begin

n:=memo1.lines.count;

for i:=0 to n-1 do begin

A[1,i+1]:=strtoint(memo1.lines[i]);

A[2,i+1]:=strtoint(memo2.Lines[i]);

end;

for i:=1 to n do begin

memo3.lines.add(inttostr(A[1,i])+' ' + inttostr(A[2,i]));

end;

end;

procedure TForm3.ComboBox1Change(Sender: TObject);

begin

U:=strtoint(Edit3.text); //1

F:=strtoint(Edit4.text); //2

H:=combobox1.ItemIndex;

/////

case H of

0: begin

q:=XpoVozr(A,n);

if q=true

then

edit1.text:=('упорядочен')

else

edit1.text:=('не упорядочен');

end;

1:begin

p:=YpoYbiv(A,n);

if p=true

then

edit2.text:=('упорядочен')

else

edit2.text:=('не упорядочен');

end;

2:begin Pomen2(A,U,F);

for i:=0 to n-1 do begin

memo4.lines.add(inttostr(A[1,i+1])+' '+inttostr(A[2,i+1]));

end;

end;

end;

end;

end.

Форма:

Результат:

Function XpoVozr(x:mass; n1:integer):boolean;

XpoVozr:=true;

for m:=2 to n1

if x[1,m1]<=x[1,m]

XpoVozr:=false;

+ -

Конец

break

Function YpoYbiv(x:mass; n1:integer):boolean;

YpoYbiv:=true;

for m:=2 to n1

if

x[2,m-1]>=x[2,m]

YpoYbiv:=false;

+ -

Конец

break

Procedure Pomen2(var x:mass; N,C:integer);

m:=x[1,N];

x[1,N]:=x[1,C];

x[1,C]:=m;

L:=x[2,N];

x[2,N]:=x[2,C];

x[2,C]:=L;

Конец

procedure TForm3.Button1Click(Sender: TObject);

ввод

{A_1,i+1}_n, {A_2,i+1}_n,

вывод

{A_1,i+1}_n +{A_2,i+1}_n,

procedure TForm3.ComboBox1Change(Sender: TObject);

Ввод U,F

case H of

if q=true

q:=XpoVozr(A,n);

edit1.text:=('не упорядочен');

edit1.text:=('упорядочен')

0

p:=YpoYbiv(A,n);

Edit2.text:=('упорядочен')

Edit2.text:=('не упорядочен');

1

if p=true

- -

Конец

Конец

Pomen2(A,U,F);

3

вывод

{A_1,i+1}_n +{A_2,i+1}_n,

Конец