Скачиваний:
5
Добавлен:
15.06.2014
Размер:
2.3 Кб
Скачать
unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, Grids, Buttons, StdCtrls;

type
TForm1 = class(TForm)
Label1: TLabel;
Edit1: TEdit;
Button1: TButton;
BitBtn1: TBitBtn;
StringGrid1: TStringGrid;
Button3: TButton;
Button4: TButton;
procedure FormCreate(Sender: TObject);
procedure Button1Click(Sender: TObject);
procedure Button3Click(Sender: TObject);
procedure Button4Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;
A:array of integer;
N,M,i,j:integer;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
//размер массива по умолчанию в начале программы равен 5
N:=5; Edit1.Text:=inttostr(N);
StringGrid1.ColCount:=N; //задаем кол-во столбцов таблицы
end;

procedure TForm1.Button1Click(Sender: TObject);
begin //кнопка изменения размера массива
N:=StrToInt(Edit1.Text);
StringGrid1.ColCount:=N;
end;

procedure TForm1.Button3Click(Sender: TObject);
var k,ex,min:integer;
begin
//выделяем нужный для записи первого массива объем памяти
SetLength(a,n+1);
//чтение данных из таблицы в массив
//(уделить внимаение и не перепутать столбцы и строки):
for i:=1 to N do
A[i]:=StrToInt(StringGrid1.Cells[i-1,0]);

i:=1; //задание начального значения счетчика
repeat
if odd(a[i])=false then //проверка на четность
begin
if i<>n then
for j:=i+1 to n do a[j-1]:=a[j];
dec(n); //уменьшение количества элементов массива
dec(i);
end;
inc(i);
until i>n; //проверка на выход за пределы масива

//пересоздадаим таблицу с нужным кол-вом ячеек:
stringgrid1.ColCount:=n;
//Вывод результата:
for i:=1 to n do stringgrid1.cells[i-1,0]:=inttostr(a[i]);
//Освобождение памяти, занимаемой динамическим массивом
a:=nil;
end;

procedure TForm1.Button4Click(Sender: TObject);
begin //кнопка-наворот, заполняющая таблицу первого массива случайными целыми
//числами в интервале от 0 до 99
randomize; //процедура инициализации функции задания случайного числа (random)
for i:=0 to n do
stringgrid1.Cells[i,0]:=inttostr(random(100));
end;

end.

Соседние файлы в папке 5.14
  • #
    15.06.2014188 б5Project1.dpr
  • #
    15.06.2014876 б5Project1.res
  • #
    15.06.20146.03 Кб5Unit1.dcu
  • #
    15.06.201451 б6Unit1.ddp
  • #
    15.06.20143.14 Кб5Unit1.dfm
  • #
    15.06.20142.3 Кб5Unit1.pas