Алгоритми опрацювання табличних величин: знаходження суми або кількості значень елементів

набір даних одного типу

величина і порядковий номер елемента

елемент загальної маси даних

type

array

var

пошук елемента масива

знаходження суми значень елементів масиву

знаходження кількості значень елементів масиву

багаторядкового текстового поля(Standard)

багаторядкового текстового поля (Memo)

багаторядкового текстового поля (Lines)

наявність чи відсутність компонентів смуг прокручування

можливість або неможливість редагувати вміст компонента

набір значень, розташованих у рядках цього компонента

знаходження значень кількості усіх елементів табличної величини

знаходження значень суми усіх елементів табличної величини

знаходження значень середнього значення усіх елементів табличної величини

знаходження значень суми усіх елементів табличної величини

знаходження значень кількості усіх елементів табличної величини

знаходження значень середнього усіх елементів табличної величини

ім'я та тип елементів масиву

ім'я та команди елементів масиву

ім'я та значення елементів масиву

{дані з рядків першого багаторядкового текстового поля перевести в числа і присвоїти відповідним елементам табличної величини}

очистити друге багаторядкове текстове поле

{піднести значення елементів табличної величини до квадрата}

{вивести значення елементів табличної величини в рядки другого багаторядкового текстового поля}

procedure TForm1.Button1Click(Sender: TObject);

var a: array [1..10] of real; i: integer; max: real;

begin

 for i := 1 to 10 do a[i] := StrToFloat(Memo1.Lines[i-1]);

  max := a[1];

  for i := 2 to 10 do If a[i] > max Then max := a[i];

  Label1.Caption := FloatToStr (max) + ' — найбільше значення’;

end;

procedure TForm1.Button1Click(Sender: TObject);

var a: array [1..10] of real; i: integer; min: real;

begin

 for i := 1 to 10 do a[i] := StrToFloat(Memo1.Lines[i-1]);

  min:= a[1];

  for i := 2 to 10 do If a[i] > min Then min := a[i];

  Label1.Caption := FloatToStr (min) + ' — найбільше значення’;

end;

procedure TForm1.Button1Click(Sender: TObject);

var a: array [1..5] of real; i: integer; m: real;

begin

 for i := 1 to 5 do a[i] := StrToFloat(Memo1.Lines[i-1]);

  m:= a[2];

  for i := 2 to 5 do If a[i] > mThen m := a[i];

  Label1.Caption := FloatToStr (m) + ' — найбільше значення’;

end;

procedure TForm1.Button1Click(Sender: TObject);

var a: array [1..10] of real;

begin

 for i := 1 to 10 do a[i] := StrToFloat(Memo1.Lines[i-1]);

  for i := 2 to 10 do If a[i] > max Then max := a[i];

  Label1.Caption := FloatToStr (max) + ' — найбільше значення’;

end;

min := а[1];

 for і := 2 to 10 do If a[i] > min Then min := a[i];

 min := а[1];

 for і := 2 to 10 do If a[i] ><min Then min := a[i];

min := а[1];

 for і := 2 to 10 do If a[i] <min Then min := a[i];

min := а[1];

 for і := 2 to 10 do If a[i] = min Then min := a[i];