Листинг 5.4. Ввод и обработка массива дробных чисел

unit. getar_1; interface

Uses

Windows, Messages, SysUtils, Variants, Classes,

Graphics, Controls, Forms, Dialogs, Grids, StdCtrls;

Type

TForm1= class(TForm)

Label1: TLabel;

StringGrid1: TStringGrid;

Button1: TButton;

Label2: TLabel;

procedure Button1ClicktSender: TObject);

procedure StringGridlKeyPress(Sender: TObject; var Key: Char);

private

{ Private declarations }

public

{ Public declarations }

end;

Var

Form1: TForm1;

Implementation

{$R *.dfm}

procedure TForm1.ButtonlClick(Sender: TObject);

var

a: array[1..5] of real; // массив

suram: real; // сумма элементов

sr: real; // среднее арифметическое

i: integer; // индекс

Begin

// ввод массива

// считаем, что если ячейка пустая, то соответствующий

// ей элемент массива равен нулю

for i: = 1 to 5 do

if Length(StringGridl.Cells[i-l, 0])< > 0

then a[i]: = StrToFloat(StringGridl.Cells[i-1, 0]) else a[i]: = 0;

// обработка массива

summ: = 0;

for i: =1 to 5 do

summ: = summ + a[i]; sr: = summ / 5;

// вывод результата

Label2.Caption: =

'Сумма элементов: ' + FloatToStr(summ)

+ #13+ 'Среднее арифметическое: ' + FloatToStr(sr);

end;

'/ Функция обеспечивает ввод в ячейку только допустимых символов

procedure TForm1.StringGridlKeyPress(Sender: TObject; var Key: Char);

Begin

Case Key of

#8, '0'..'9':; // цифры и < Backspace>

#13: // клавиша < Enter>

if StringGridl.Col < StringGridl.ColCount - 1

then StringGridl.Col: = StringGridl.Col + 1; '.', ', ':

// разделитель целой и дробной частей числа

Begin

if Key < > DecimalSeparator then

Key: = DecimalSeparator; // заменим разделитель

// на допустимый

if Pos(StringGridl.Cells[StringGridl.Col, 0],

DecimalSeparator) < > 0

then Key: = Chr(O); // запрет ввода второго

// разделителя

End;

' -': // минус можно ввести только первым символом,

// т. е. когда ячейка пустая

if Length(StringGrid1.Cells[StringGrid1.Col, 0]) < > 0 then

Key: = Chr(0);

else // остальные символы запрещены

key: = Chr(0);

End;

End;

End.

Использование компонента Memo

Рис. 5.4. Компонент Memo

В табл. 5.3 перечислены некоторые свойства компонента Memo.

Таблица 5.3. Свойства компонента Memo

При использовании компонента Memo для ввода массива значение каждого элемента массива следует вводить в отдельной строке и после ввода каждого элемента массива нажимать клавишу < Enter>.

Получить доступ к находящейся в поле Memo строке текста можно при помощи свойства Lines, указав в квадратных скобках номер нужной строки (строки нумеруются с нуля).

Следующая программа, текст которой приведен в листинге 5.5, демонстрирует использование компонента Memo для ввода символьного массива.

Основной цикл процедуры ввода символьного массива из компонента Memo может выглядеть так:

for i: =l to SIZE do

a [ i ]: = Memol.Lines[i];

где:

· SIZE — именованная константа, определяющая размер массива;

· а — массив;

· Memol — имя Memo-компонента;

· Lines — свойство компонента Memo, представляющее собой массив, каждый элемент которого содержит одну строку находящегося в поле Memo текста.

Форма программы приведена на рис. 5.5. Помимо поля Memo она содержит командную кнопку (Buttonl), при щелчке на которой выполняется ввод значений элементов массива из поля Memo.

Рис. 5.5. Диалоговое окно приложения Ввод массива