Практична робота 16. Пошук значень у табличній величині

Увага! Під час роботи з комп’ютером дотримуйтеся правил безпеки та санітарно-гігієнічних норм.

Створіть у власній папці – папку Практична робота 16

Завдання 1

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

А) max := а[1]; nmах := 1
min := а[1]; nmіn := 1;
for і := 2 to 10 do
begin

If a[i] > max
Then

begin

max := a[i];

nmах := і;

end;

If a[i] < min
Then

begin

min := a[i];

nmin := i;

end;

end;

 Б)  k:=0;

  for i:=0 to 54 do

    begin

      a[i]:=StrToInt(Memo1.Lines[i]);

     if a[i]<=0  then k:=k+1;

    end;

В) s := 0; к := 0;

for і := 1 to 10 do

 If a[i] > 0 Then

begin

 s := s + a[i];

 к := к + 1;

end;

sa ;= s/k;

Відповідь____________________________________________________________

Завдання 2

У багаторядковому текстовому полі міститься час, який показав кожен з учасників змагань вашого навчального закладу з бігу на дистанцію 100 м. Визначте найбільший і найменший час. Для цього:

1. Відкрийте середовище Lazarus,  створіть новий проект. Змініть значення властивості Captіon форми, розмістіть на формі компоненти і налаштуйте їхні властивості згідно із скріншотом.

Текстове  поле Edit1 та Edit 2 - призначені для виведення найбільшого та найменшого часу;

поле Memo1— для введення значень елементів масиву (часу);

2. Властивості ScrollBars елемента керування Memo1 задайте значення ssAutoVertical.
3. Створіть процедуру обробки події для кнопки Розрахувати.

procedure TForm1.Button1Click(Sender: TObject);

var ___: array [______] of  real;

  i,n: integer;

  max,min:_______;

begin

  n:= Memo1.Lines.Count;

  for i:=0 to n-1 do

  a[i]:=StrToFloat(__________]);

  max:=_____;

  min:=_____;

  for i:=___ to n-1 do

  if a[i]>_____ then ____:=_____ else

    if a[i]<_____then min:=_____;

  Edit1._____:=FloatToStr(___);

  Edit2._____:=___________(min);

4.               Збережіть проект у своїй папці із іменем Результати змагань та скомпілюйте програму. Проведіть тестування.

Завдання 3

 У багаторядковому текстовому полі міститься час, який показав кожен з учасників змагань вашого навчального закладу з бігу на дистанцію 100 м. Визначте найбільший і найменший час. Визначте, скільки спортсменів показали найбільший час. Чи оновлено на цих змаганнях рекорд вашого навчального закладу?

Для цього: скопіюйте попередній проєкт та додайте до нього відповідні елементи на форму та код.

Скористайтесь наступними фрагментами алгоритму:

k:=0;

  for i:=0 to n-1 do

  if a[i]= max

 then

  k:=k+1;

  Edit3.Text:= IntToStr(k);

Record:=StrtoFloat(Edit4.Text);

If record> min then

Label6. Caption:=’Рекорд оновлено’;

Збережіть проект у своїй папці із іменем Результати змагань 2 та скомпілюйте програму. Проведіть тестування.