Урок 9   Дата 08.11.2023   Учитель Рогаль Т.В. Максимальный и минимальный элементы массива Решение задач с использованием алгоритма поиска максимального (минимального) элемента. Построение гистограммы (столбчатой диаграммы)

1. Актуализация знаний 

Массив от Tanya Rogal

Обработка элементов массива от Tanya Rogal

2. Изучите материал учебного пособия §6.2 - 6.3 учебник

3. Просмотрите видеоурок

 

4. Практическая работа: 

Пример 6.5

var a: array [1..20] of real;

      n, n_min: integer;

begin

    writeln(ꞌКоличество спортсменовꞌ);

    readln(n); writeln(ꞌВремяꞌ);

    for var i := 1 to n do read(a[i]); 

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

    n_min := 1;

    for var i := 2 to n do

        if a[i] < a[n_min] then n_min := i;

    writeln(ꞌПобедитель — лыжник номер ꞌ, n_min);

    writeln(ꞌЕго время - ꞌ, a[n_min]);

end.

Пример 6.8

uses graphABC;
var a: array[1..20] of integer;
       n, max, h, x, y1, y2: integer;  m: real;
begin
    write(ꞌКоличество n =ꞌ);  readln(n);
    writeln(n);  writeln(ꞌЭлементы массиваꞌ);
    for var i := 1 to n do
       begin
          read(a[i]); write(a[i],ꞌ ꞌ);
       end;
     max := a[1];
     for var i := 2 to n do
         if a[i] > max then max := a[i];
     h := trunc(WindowWidth/(2*n+1));
     m := WindowHeight/max;
     x := h;
     for var i := 1 to n do
        begin
           SetBrushColor(clrandom);
           y1 := WindowHeight;
           y2 := y1 - trunc(a[i]*m);
           Rectangle(x, y1, x+h, y2);
           x := x + 2*h;
        end;
end.

Пришли результат выполненных упражнений на проверку учителю на e-mail rohal74@mail.ru с обязательным указанием фамилии и класса.

Домашнее задание: §6.2-6.3 учебник

Оцените урок, заполнив титульный лист и Вариант 4. На остальных страницах нажимаем Далее до кнопки Отправить.