Операции с массивами

Типичными операциями при работе с массивами являются:

• вывод массива;
• ввод массива;
• поиск максимального или минимального элемента массива;
• поиск заданного элемента массива;
• сортировка массива.

Под выводом массива понимается вывод на экран монитора (в диалоговое окно) значений элементов массива.

Если в программе необходимо вывести значения всех элементов массива, то для этого удобно использовать инструкцию for, при этом переменная-счетчик инструкции for может быть использована в качестве индекса элемента массива.

В качестве примера на рис. 5.1 приведено диалоговое окно приложения, которое демонстрирует инициализацию и процесс вывода значений элементов массива в поле метки. Программа выводит пронумерованный список футбольных команд. Следует обратить внимание, что для того чтобы список команд выглядел действительно как список, свойству Label1.AutoSize нужно присвоить значение False (присвойте свойству Label1.AutoSize значение True и посмотрите, как будет работать программа). Текст программы приведен в листинге 5.1.

Рис. 5.1. Форма и диалоговое окно приложения Вывод массива

unit outar_;
interface
uses
 
Windows, Messages, SysUtils, Variants,
Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;
 
type
 
TForm1 = class(TForm)
Button1: TButton;
Label1: TLabel;
 
procedure ButtonlClick(Sender: TObject);
 
private
{ Private declarations } 
public
{ Public declarations } 
end;
 
var
Form1: TForm1;
 
implementation
 
($R *.dfm}
 
const
 
NT = 5;
 
var
 
team: array[1..NT] of string[10] =('Зенит','Динамо','Ротор','Спартак','СКА'
 
procedure TForml.ButtonlClick(Sender: TObject); 
var
 
st:string; // список команд 
i:integer; // индекс, номер элемента массива 
 
begin
 
// формирование списка для отображения в форме 
 
for i:=l to NT do st := st + IntToStr(i)+ ' '
+ team[i] + #13; // вывод списка Label1.Caption := st; 
 
end;
end.