Нахождение индекса в массиве случайных чисел

Цель работы — создать программу, которая находит индекс числа в массиве случайных чисел.

Описание плана разработки программы

• 1. Откройте новый проект.
• 2. Разместите на форме экземпляры компонентов: Button, Edit, Label.
• 3. Выполните действия, перечисленные в табл. 33.
• 4. Введите переменные ik, к, i: integer; s: string; a: array [1.15] of integer.
• 5. Сохраните проект, запустите и протестируйте его.

Листинг программы

procedure TForml. FormCreate (Sender: TObject); begin

Editl.Text Edit2. Text :=.

Edit3.Text := ''; end;

procedure TForml. ButtonlClick (Sender: TObject); begin

Editl.Text := ¹¹;

Edit2.Text := '';

Edit3.Text := ''; end;

procedure TForml. Button2Click (Sender: TObject); begin close; end;

procedure TForml. Button3Click (Sender: TObject); begin

к := StrToInt (Edit2.Text);

For i := 1 to 15 do if к = a[i] then ik := i; if ik = 0 then

Edit3.Text := 'number absent' else

Edit3.Text := IntToStr (ik);

end;

procedure TForml. Button4Click (Sender: TObject); begin

randomize; s := «;

For i := 1 to 15 do begin

a[i] := random (26); s := concat (Sj IntToStr (a[i])j #32); end;

Editl.Text := s; end;

Вид проекта по действиям показан на рис. 66.

Рис. 66. Окно разработанной программы

Нахождение минимального и максимального числа в массиве

Цель работы — создать программу, которая находит минимальное и максимальное числа во введенном массиве.

Описание плана разработки программы

• 1. Откройте новый проект.
• 2. Разместите на форме экземпляры компонентов: Button, Edit, Label.
• 3. Выполните действия, перечисленные в табл. 34.
• 4. Введите переменные s, ss: string; a: array [1.15] of integer; I, j, k, max, min, p, code: integer.
• 5. Сохраните проект, запустите и протестируйте его.

Таблица 34

Листинг подпрограмм

procedure TForml. FormCreate (Sender: TObject); begin

Editl.Text.

Edit2.Text := ¹';

Edit3.Text := ¹'; end;

procedure TForml. ButtonlClick (Sender: TObject); begin

Editl.Text := ¹';

Edit2.Text := ¹';

Edit3.Text := ¹'; end;

procedure TForml. Button2Click (Sender: TObject); begin close; end;

procedure TForml. Button3Click (Sender: TObject); begin

s := Editl. Text; s := concat (Sj #32); i := 0;

while Length (s) > 0 do begin

i := i + 1;

p := pos (#32, s);

ss := copy (s, 1_} p — 1);

Val (ss, kj code); a[i] := k; delete (s, 1_} p); end;

max := a[1];

For j := 1 to i do if max < a[j] then max := a[j]; min := a[1];

For j := 1 to i do if min > a[j] then min := a[j];

Edit3.Text := IntToStr (max);

Edit2.Text := IntToStr (min); end;

Puc. 67. Окно разработанной программы.