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

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

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

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

   Объект

   Имя объекта (Name)	Свойства	Значение свойства
   Форма	Tform1	Caption	Поиск элементов в массиве
   		Height	400
   		Width	600
   		Color	Любой

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

Объект

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. Продемонстрируйте работу учителю