Ввод массива

Под вводом понимается процесс получения от пользователя во время работы программы значений элементов массива.

«Лобовое решение» - для каждого элемента создать поле ввода. Но есть другие, более удобные способы.

Var

Form1: TForm1;

i,n:Integer;

Summa:Real;

x:array[1..20]of real;

implementation

{$R *.dfm}

procedure TForm1.Button2Click(Sender: TObject);

Begin

n:=StrToInt(Edit1.Text);

for i:=1 to n do

x[i]:=StrToFloat(InputBox('Ввод элементов массива',

'введите'+IntToStr(i)+'элемент','0,00'));

end;

procedure TForm1.Button3Click(Sender: TObject);

Begin

Summa:=0;

for i:=1 to n do

Summa:= Summa+x[i];

Label6.Caption:=FloatToStr(Summa);

end;

procedure TForm1.Button1Click(Sender: TObject);

Begin

i:=StrToInt(Edit2.Text);

x[i]:=StrToFloat(Edit3.Text);

end;

Компонет StringGrid .

Находится на вкладке . Это таблица.

Основные свойства в инспекторе объектов.

ColCount- количество колонок

RowCount – количество строк

FixedCols – количество зафиксированных колонок

FixedRows - количество зафиксированных строк

Если в Options нажать на крестик, появятся раскрывающиеся свойства

goEditing - признак допустимости редактирования. True – разрешено, False – запрещено.

goTabs – можно двигаться курсором с помощью кловиши Tab.

Доступ к полю осуществляется с помощью фразы Cells[i,j]. Нумерация в таблице осуществляется с нуля.

Используем компонент StringGrid для ввода массива и вычисления среднего арифметического. Создадим форму соответствующим компонентом. Установим

ColCount- 5

RowCount – 1

FixedCols – 0

FixedRows - 0

Options (goEditing и goTabs) в режиме True

Пишем программу

procedure TForm1.Button1Click(Sender: TObject);

Var

a:array[1..5] of integer;

summa,i:integer;

sredn:real;

Begin

for i:=1 to 5 do

if Length(StringGrid1.Cells[i-1,0])<>0

then a[i]:=StrToInt(StringGrid1.Cells[i-1,0])

else a[i]:=0;

summa:=0;

for i:=1 to 5 do

summa:=summa+a[i];

sredn:=summa/5;

Label1.Caption:='Сумма элементов '+IntToStr(summa);

Label2.Caption:='Среднее арифметическое '+FloatToStr(sredn);

end;