Найбільший і найменший елемент табличної величини

Пошук елемента табличної величини з найбільшим значенням

Для знаходження найбільшого значення спочатку припускають, що значення першого елемента табличної величини є найбільшим. Після цього послідовно переглядають значення всіх інших елементів табличної величини, і якщо трапиться значення, що більше того, яке на даний момент ввжається найбільшим, то приймають тепер уже це значення за найбільше.

Фрагмент коду для знаходження найбільшого значення.

Завдання 6. Визначити найбільше значення елементів табличної величини.

Рішення

Побудова форми. Розмістимо на формі багаторядкове текстове поле з іменем Memo1 та встановимо для нього значення властивостей Height = 180, ScrollBars = ssVertical. Розмістимо на формі також напис TLabel з ім'ям Label1 та кнопку. Для кнопки установимо Caption = ‘Знайти’, а для напису — AutoSize = false та Caption = "" (мал. 7).

Написання коду. Створимо обробник події Click для кнопки.

procedure TForml.ButtonlClick(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;

Пошук елемента табличної величини з найменшим значенням

Для знаходження найменшого значення спочатку припускають, що значення першого елемента табличної величини є найменшим. Після цього послідовно переглядають значення всіх інших елементів табличної величини, і якщо трапиться значення, що менше того, яке на даний момент ввжається найменшим, то приймають тепер уже це значення за найменше.

Фрагмент коду для знаходження найменшого значення.

Завдання 7. Визначити найменше значення елементів табличної величини.

Рішення

Побудова форми. Розмістимо на формі багаторядкове текстове поле з іменем Memo1 та встановимо для нього значення властивостей Height = 180, ScrollBars = ssVertical. Розмістимо на формі також напис TLabel з ім'ям Label1 та кнопку. Для кнопки установимо Caption = ‘Знайти’, а для напису — AutoSize = false та Caption = "" (мал. 8).

Написання коду. Створимо обробник події Click для кнопки.

procedure TForml.ButtonlClick(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;