Учебный курс Программирование на Delphi. Модуль 9 — различия между версиями

Текущая версия на 22:36, 27 июля 2008

Работа с одномерными массивами

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

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

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

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

а) в разделе описания переменных var: var <имя переменной>: array [тип индекса] of <тип компоненты>;

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

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

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

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

Пример 1.

• Условие задачи

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

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

Label – метка, используется как надпись или как область вывода информации для чтения.

Edit – строка ввода.

Button – стандартная кнопка, обычно кнопка используется для запуска действия, при этом задействуют только метод OnEvent (реакция на нажатие).

StringGrid - используется для ввода и вывода массива.

• Код программы

unit Unit1;
interface
uses
 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);
  for i:=1 to n do
  if n>30 then label3.Caption:='Большое число';
   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.

• Форма с результатом работы программы

Пример 2.

• Условие задачи

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

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

Label – метка, используется как надпись или как область вывода информации для чтения.

Edit – строка ввода.

Button – стандартная кнопка, обычно кнопка используется для запуска действия, при этом задействуют только метод OnEvent (реакция на нажатие).

StringGrid - используется для ввода и вывода массива.

• Код программы

unit Unit1;
interface
uses
 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

Таблица 14

Ссылки

Учебный курс Программирование на Delphi

Учебный план курса Программирование на Delphi