Краткие сведения из теории. Массивом называется упорядоченная последовательность однотипных объектов, обозначаемая одним именем

Массивом называется упорядоченная последовательность однотипных объектов, обозначаемая одним именем. Чтобы выделить один из объектов (элемент) массива, надо указать имя массива и номер элемента в нем. Номер элемента называется индексом, индекс указывается в квадратных скобах и может быть числом, переменной, выражением. Имя массива образуется по правилам образования имен переменных.

Например, А [10], B [I, J], SUM [1, J+5]

Если для выделения элемента нужен один индекс, массив называется одномерным, два – двумерным и т.д. Число элементов массива называется длиной или размером массива. Одномерный массив называется вектором.

Для описания массивов используется служебное слово array. Массив в Delphi можно описывать двумя способами:

а) в разделе описания переменных var:

var

<имя переменной>: array [тип индекса] of <тип компоненты>;

б) определить сначала тип, а затем описать массив этим типом

type

<имя типа>: array [тип индекса] of <тип компоненты>;

var

<имя переменной>: <имя типа>;

где <тип индекса> - порядковый тип;

<тип компоненты> - любой тип.

В Delphi есть лишь одна операция, которую можно делать с массивом целиком – это операция присваивания. Все остальные операции производятся только с отдельными элементами массива. С элементами массива можно делать все операции, которые разрешены для базового типа массива. Если массив числовой, то математические, если символьный или строковый, то, соответственно, операции с символьными или строковыми переменными.

Двумерный массив состоит из элементов с двумя индексами: один показывает номер строки в массиве, другой - номер столбца.

В Delphi возможны массивы и большей размерности. Для их описания возможны два подхода:

а) массив рассматривается как массив других массивов:

type

x = array[1..100] of real; y = array[1..2] of x;

б) массив рассматривается как многоиндексный

type y = array [ 1...100, 1...2 ] of real;

Оба описания равноценны.

Пример 11. В векторе найти номера и значения первого минимального и последнего максимального элементов.

Использованные компоненты:

Label3 – для вывода результата;

Edit1 – для ввода числа n;

BitBtn1 – для запуска программы;

BitBtn2 – для выхода из программы;

StringGrid1 – для вывода массива.

 

 

 

 

Рис. 19. Форма примера 11

Программный код

unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, Buttons, Grids;type TForm1 = class(TForm) Label1: TLabel; Edit1: TEdit; Label2: TLabel; StringGrid1: TStringGrid; Label3: TLabel; BitBtn1: TBitBtn; BitBtn2: TBitBtn; procedure BitBtn2Click(Sender: TObject); procedure BitBtn1Click(Sender: TObject); private { Private declarations } public { Public declarations } end;var Form1: TForm1;implementation{$R *.dfm} var a:array[1..100] of real; n,i,nmin,nmax:integer; amax,amin:real;procedure TForm1.BitBtn2Click(Sender: TObject);begin close;end;procedure TForm1.BitBtn1Click(Sender: TObject);begin n:=strtoint(edit1.Text); randomize; for i:=1 to n do begin a[i]:=random(81)- 30; stringgrid1.cells[i-1,0]:=floattostr(a[i]); end; amin:=a[1]; nmin:=1; amax:=a[1]; nmax:=1; for i:=1 to n do begin if a[i]<amin then begin amin:=a[i]; nmin:=i end; if a[i]>=amax then begin amax:=a[i]; nmax:=i; end; end;label3.Caption:='Минимальное= '+floattostr(amin)+#13+'Номер минимального= '+inttostr(nmin)+' '+#13+'Максимальное= '+floattostr(amax)+#13+'Номер максимального= '+inttostr(nmax);end;end.

Пример 12. Создать массив из n случайных целых чисел, равномерно распределенных в диапазоне от 0 до 100. Вычислить среднее арифметическое и количество четных чисел.

Использованные компоненты:

Label3 – для вывода результата;

Edit1 – для ввода числа n;

BitBtn1 – для запуска программы;

BitBtn2 – для выхода из программы;

StringGrid1 – для вывода массива.

 

 

Рис. 20. Форма примера 12

Программный код

unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, Buttons, Grids;type TForm1 = class(TForm) Label1: TLabel; Edit1: TEdit; StringGrid1: TStringGrid; Label3: TLabel; BitBtn1: TBitBtn; BitBtn2: TBitBtn; procedure BitBtn2Click(Sender: TObject); procedure BitBtn1Click(Sender: TObject); private { Private declarations } public { Public declarations } end;var Form1: TForm1;implementation{$R *.dfm} const nmax=1000; type x=array[1..nmax] of integer; var m:x; k,i,n:integer; s:real;procedure TForm1.BitBtn2Click(Sender: TObject);begin close;end;procedure TForm1.BitBtn1Click(Sender: TObject);begin n:=strtoint(edit1.Text); randomize; for i:=1 to n do begin m[i]:=random(101); stringgrid1.Cells[i-1,0]:=inttostr(m[i]); end; s:=0; k:=0; for i:=1 to n do if not odd(m[i]) then begin s:=s+m[i]; k:=k+1; end; s:=s/k; label3.Caption:='Среднее арифметическое= '+floattostr(s)+#13+ 'Количество четных чисел= '+inttostr(k);end;end.

Пример 13. Получить матрицу, элементами которой являются произведения номеров строк i и номеров столбцов j.

Использованные компоненты:

BitBtn1 – для запуска программы;

BitBtn2 – для выхода из программы;

StringGrid 1 – для вывода матрицы.

Рис. 21. Форма примера 13

Программный код

unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, Buttons, Grids;type TForm1 = class(TForm) StringGrid1: TStringGrid; BitBtn1: TBitBtn; BitBtn2: TBitBtn; procedure BitBtn2Click(Sender: TObject); procedure BitBtn1Click(Sender: TObject); private { Private declarations } public { Public declarations } end;var Form1: TForm1;implementation{$R *.dfm} type mat=array[1..9,1..9] of integer; var i,j:integer; p:mat;procedure TForm1.BitBtn2Click(Sender: TObject);beginclose;end;procedure TForm1.BitBtn1Click(Sender: TObject);beginfor i:=1 to 9 do begin for j:=1 to 9 do begin p[i,j]:=i*j; stringgrid1.Cells[j-1,i-1]:=inttostr(p[i,j]); end; end;end; end.