Главная Случайная страница Контакты | Мы поможем в написании вашей работы! | ||
|
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-го элемента
Дата публикования: 2014-11-18; Прочитано: 199 | Нарушение авторского права страницы | Мы поможем в написании вашей работы!