Урок на тему «Поиск максимального элемента массива»

1. Откройте программу Lazarus и создайте новый проект (Проект / создать / приложение)

2. Сохраните проект в личной папке в папку «Поиск элементов массива». Установить свойства для формы:

   Объект

   Имя объекта (Name)

   Свойства

   Значение свойства

   Форма

   Tform1

   Caption

   Поиск элементов в массиве

   Height

   400

   Width

   600

   Color

   Любой

3. Разместите на форме следующие элементы и установите для них свойства:

Объект

Имя объекта (Name)

Свойства

Значение свойства

Текстовое поле с прокруткой

TListBox1,

TListBox2,

Font

Arial, 12, жирный

Height

300

Width

60

Метки

Label1

Label2

Label3

Label4

Caption

Labe11- отсутсутсвует

Label2 – отсутсутсвует

Label3 – Индекс максимального элемента

Label4 – Максимальный элемент

Font

Arial, 12, жирный

Color

Белый

Управляющая кнопка

Button1

Caption

Заполнить и найти

Font

Arial, 12, жирный

4. Выполните двойной щелчок мышью на кнопке и впишите в заготовку код:

procedure TForm1.Button1Click(Sender: TObject);

begin

ListBox1.Items.Clear;

ListBox2.Items.Clear;

//Заполнение массива

Randomize;

For I := 1 To 15 Do

begin

A[I] := Random(100);

ListBox1.Items.Add(IntToStr(I));

ListBox2.Items.Add(IntToStr(A[I]));

end;

//Поиск максимального элемента

Max := 1;

A[Max] := A[1];

For I := 2 To 15 Do

begin

If A[I] > A[Max] Then

begin

A[Max] := A[I];

Max := I;

end;

end;

Label1.Caption := IntToStr(Max);

Label2.Caption := IntToStr(A[Max]);

end;

end.

5. В разделе описания переменных укажите тип переменных проекта

var

Form1: TForm1;

A:array[1..15] of integer;

I:integer;

Max:integer;

N:integer;

implementation

6. Запустите проект на выполнение

7. Продемонстрируйте работу учителю