Once a month Newsletter

* We will keep your email in safe place and will never misuse it. Unsubscribe in one click.

Array 32 - 36

На этой странице рассматриваются задачи Array32 - Array36 из задачника Абрамяна, где речь идет о так званых локальных элементах числовой последовательности: локальных максимумах и локальных минимумах.

Сразу сделаем одно важное замечание: во всех следующих программах ввод данных по умолчанию определен как ручной (через оператор ввода read). Но если вы хотите ввод сделать автоматическим (через генератор случайных чисел random), то ввод данных в программе замените на следующий кусок кода:

///АВТОМАТИЧЕСКИЙ ВВОД ДАННЫХ
randomize; //генератор псевдослучайных чисел
N := 10 + random(191); //количество чисел в массиве
writeln('Массив ', N, ' случайных целых чисел:');
writeln;
for i := 1 to N do
begin
  mass[i] := -100 + random(201);
  write(' ', mass[i]); //выводим элементы массива
end;
writeln;

**procedure** Randomize;: Инициализирует датчик псевдослучайных чисел.2) **procedure** Randomize(seed: integer);: Инициализирует датчик псевдослучайных чисел, используя значение seed. При одном и том же seed генерируются одинаковые псевдослучайные последовательности.

В последнем случае вы получите массив случайно сгенерированных целых чисел с диапазона [-100, 100].

Array32. Дан массив размера N. Найти номер его первого локального минимума (локальный минимум — это элемент, который меньше любого из своих соседей).

var
  Mass: array[1..100] of integer;
  i, N, num: integer;
  
begin
    ///ВВОД ДАННЫХ
  write(' N = ');
  readln(N);
  writeln('Введите ', N, ' целых чисел:');
  writeln;
  for i := 1 to N do
    read(mass[i]); //вводим элементы массива
    ///ОСНОВНАЯ ПРОГРАММА
  writeln;
  num := 0; //начальный номер локального минимума
  write('Результат: ');
 { Проверяем все значения масива от 1 до N. Причем учитываем, 
 что 1-й и N-й элементы имеют только 1 соседний элемент: }
  for i := 1 to N do
  begin { Проверяем 1-й элемент: }
    if i = 1 then 
    begin //если 1-й элемент меньше 2-го
      if mass[1] < mass[2] then
        num := 1 //то номеру локального минимума присваиваем 1
    end
    else { Проверяем N-й элемент: }
    if i = N then 
    begin //если N-й элемент меньше (N - 1)-го
      if mass[N] < mass[N - 1] then
        num := N //то номеру локального минимума присваиваем N
    end { Проверяем все остальные элементы: }
    else //если i-й элемент находится между (i - 1)-м и (i + 1)-м
    if (mass[i] < mass[i - 1])and(mass[i] < mass[i + 1]) then
      num := i; //то номеру локального минимума присваиваем i
    if num > 0 then //если номер изменился, то выводим результат
    begin 
      writeln('Номер первого локального минимума: ', num); 
      exit //и сразу выходим (дальше не имеет смысла проверять)
    end
  end;
 { Если мы раньше не вышли из программы, то выводим сообщение: } 
  writeln('Локального минимума нет.')
end.

**type** integer;: Представляет 32-битовое целое число со знаком.Диапазон значений: -2 147 483 648 .. 2 147 483 647

Array33. Дан массив размера N. Найти номер его последнего локального максимума (локальный максимум — это элемент, который больше любого из своих соседей).

var
  Mass: array[1..100] of integer;
  i, N, num: integer;
  
begin
    ///ВВОД ДАННЫХ
  write(' N = ');
  readln(N);
  writeln('Введите ', N, ' целых чисел:');
  writeln;
  for i := 1 to N do
    read(mass[i]); //вводим элементы массива
    ///ОСНОВНАЯ ПРОГРАММА
  writeln;
  num := 0; //начальный номер локального максимума
  write('Результат: ');
 { Проверяем все значения масива от 1 до N. Причем учитываем, 
 что 1-й и N-й элементы имеют только 1 соседний элемент: }
  for i := 1 to N do
  begin { Проверяем 1-й элемент: }
    if i = 1 then 
    begin //если 1-й элемент больше 2-го
      if mass[1] > mass[2] then
        num := 1 //то номеру локального максимума присваиваем 1
    end
    else { Проверяем N-й элемент: }
    if i = N then 
    begin //если N-й элемент больше (N - 1)-го
      if mass[N] > mass[N - 1] then
        num := N //то номеру локального максимума присваиваем N
    end { Проверяем все остальные элементы: }
    else //если i-й элемент больше (i - 1)-го и (i + 1)-го
    if (mass[i] > mass[i - 1])and(mass[i] > mass[i + 1]) then
      num := i; //то номеру локального максимума присваиваем i
  end;
 { Если номер изменился (отличен от 0), то выводим его: } 
  if num > 0 then writeln(num)
  else writeln('локального максимума нет.') //иначе - сообщение
end.

**type** integer;: Представляет 32-битовое целое число со знаком.Диапазон значений: -2 147 483 648 .. 2 147 483 647

Array34. Дан массив размера N. Найти максимальный из его локальных минимумов (определение локального минимума дано в задании Array32).

var
  Mass: array[1..100] of integer;
  i, N, num: integer;
  Max_LocalMin: integer;
  b: boolean; {false - не локальный минимум, true - локальный }
  
begin
    ///ВВОД ДАННЫХ
  write(' N = ');
  readln(N);
  writeln('Введите ', N, ' целых чисел:');
  writeln;
  for i := 1 to N do
    read(mass[i]); //вводим элементы массива
    ///ОСНОВНАЯ ПРОГРАММА
  writeln;
  num := 0; //начальный номер локального минимума
  Max_LocalMin := -MaxInt; //минимальное целое число типа integer 
  write('Результат: ');
 { Проверяем все значения масива от 1 до N. Причем учитываем, 
 что 1-й и N-й элементы имеют только 1 соседний элемент: }
  for i := 1 to N do
  begin 
    b := false; //не локальный минимум
   { Проверяем 1-й элемент: }
    if i = 1 then 
    begin //если 1-й элемент меньше 2-го
      if mass[1] < mass[2] then begin
        num := 1; //то номеру присваиваем 1
        b := true //мы нашли локальный минимум
      end  
    end
    else { Проверяем N-й элемент: }
    if i = N then 
    begin //если N-й элемент меньше (N - 1)-го
      if mass[N] < mass[N - 1] then begin
        num := N; //то номеру присваиваем N
        b := true //мы нашли локальный минимум
      end  
    end { Проверяем все остальные элементы: }
    else //если i-й элемент находится между (i - 1)-м и (i + 1)-м
    if (mass[i] < mass[i - 1])and(mass[i] < mass[i + 1]) then 
    begin
      num := i; //то номеру присваиваем i
      b := true //мы нашли локальный минимум
    end;  
   { Если i-й элемент - локальный минимум - больше максимума: }
    if b then { то он становится максимальным: }
      if mass[i] > Max_LocalMin then Max_LocalMin := mass[i]
  end;
 { Если номер изменился (отличен от 0), то выводим MaxLocal: } 
  if num > 0 then writeln(Max_LocalMin)
  else writeln('локального минимума нет.') //иначе - сообщение
end.

**type** integer;: Представляет 32-битовое целое число со знаком.Диапазон значений: -2 147 483 648 .. 2 147 483 647

Array35. Дан массив размера N. Найти минимальный из его локальных максимумов (определение локального максимума дано в задании Array33).

var
  Mass: array[1..100] of integer;
  i, N, num: integer;
  Min_LocalMax: integer;
  b: boolean; {b = true - локальный максимум, 
               b = false - не локальный максимум }
  
begin
    ///ВВОД ДАННЫХ
  write(' N = ');
  readln(N);
  writeln('Введите ', N, ' целых чисел:');
  writeln;
  for i := 1 to N do
    read(mass[i]); //вводим элементы массива
    ///ОСНОВНАЯ ПРОГРАММА
  writeln;
  num := 0; //начальный номер локального максимума
  Min_LocalMax := MaxInt; //максимальное целое число типа integer 
  write('Результат: ');
 { Проверяем все значения масива от 1 до N. Причем учитываем, 
 что 1-й и N-й элементы имеют только 1 соседний элемент: }
  for i := 1 to N do
  begin 
    b := false; //не локальный максимум
    { Проверяем 1-й элемент: }
    if i = 1 then 
    begin //если 1-й элемент больше 2-го
      if mass[1] > mass[2] then begin
        num := 1; //то номеру присваиваем 1
        b := true //мы нашли локальный максимум
      end  
    end
    else { Проверяем N-й элемент: }
    if i = N then 
    begin //если N-й элемент больше (N - 1)-го
      if mass[N] > mass[N - 1] then begin
        num := N; //то номеру присваиваем N
        b := true //мы нашли локальный максимум
      end  
    end { Проверяем все остальные элементы: }
    else //если i-й элемент больше (i - 1)-го и (i + 1)-го
    if (mass[i] > mass[i - 1])and(mass[i] > mass[i + 1]) then 
    begin
      num := i; //то номеру присваиваем i
      b := true //мы нашли локальный максимум
    end;  
   { Если i-й элемент - локальный максимум - меньше минимума: }
    if b then { то он становится минимальным лок. макс.: }
      if mass[i] < Min_LocalMax then Min_LocalMax := mass[i]
  end;
  { Если номер локального максимума num изменился (отличен от 0), 
  то есть мы нашли локальный максимум, то выводим минимальный
  из таких максимумов (Min_LocalMax): }
  if num > 0 then writeln(Min_LocalMax)
  else writeln('локального минимума нет.') //иначе - сообщение
end.

**type** integer;: Представляет 32-битовое целое число со знаком.Диапазон значений: -2 147 483 648 .. 2 147 483 647

Array36. Дан массив размера N. Найти максимальный из его элементов, не являющихся ни локальным минимумом, ни локальным максимумом (определения локального минимума и локального максимума даны в заданиях Array32 и Array33). Если таких элементов в массиве нет, то вывести 0 (как вещественное число).

Комментарий к задаче: элемент не будет локальным максимумом или минимумом, если он принадлежит к невозрастающей или неубывающей последовательности. Иными словами, если последовательность невозрастает или неубывает, то её элементы не могут быть локальными элементами.

var
  Mass: array[1..20] of integer;
  i, N: integer;
  Max_NotLocal: integer; //максимальный не локальный элемент
  num: real; //номер не локального элемента
  b: boolean; { b = true - локальный элемент,
                b = false - не локальный элемент }
 
begin
    ///ВВОД ДАННЫХ
  write(' N = ');
  readln(N);
  writeln('Введите ', N, ' целых чисел:');
  writeln;
  for i := 1 to N do
    read(mass[i]); //вводим элементы массива
    ///ОСНОВНАЯ ПРОГРАММА
  num := 0; //начальный номер локального минимума
  Max_NotLocal := -MaxInt; //минимальное целое число типа integer
  write('Результат: ');
 { Проверяем все значения масива от 1 до N. Причем учитываем,
 что 1-й и N-й элементы имеют только 1 соседний элемент: }
  for i := 1 to N do
  begin
    b := false; //не локальный минимум
   { Проверяем 1-й элемент: }
    if i = 1 then
    begin //если 1-й элемент равен 2-му
      if mass[1] = mass[2] then begin
        num := 1; //то номеру присваиваем 1
        b := true //мы нашли не локальное число
      end
    end
    else { Проверяем N-й элемент: }
    if i = N then
    begin //если N-й элемент равен (N - 1)-му
      if mass[N] = mass[N - 1] then begin
        num := N; //то номеру присваиваем N
        b := true //мы нашли не локальное число
      end  
    end { Проверяем все остальные элементы: }
    else { Если последовательность элементов
         mass[i - 1], mass[i] и mass[i + 1] монотонна: }
    if (mass[i] <= mass[i - 1])and(mass[i] >= mass[i + 1])or
       (mass[i] >= mass[i - 1])and(mass[i] <= mass[i + 1]) then
    begin
      num := i; //то номеру присваиваем i
      b := true //мы нашли не локальное число
    end;  
   { Если i-й элемент (не локальный элемент) больше максимума: }
    if b then { то он становится максимальным: }
      if mass[i] > Max_NotLocal then Max_NotLocal := mass[i]
  end;
 { Если номер не локального элемента изменился (отличен от 0),
 то выводим максимальный из таких элементов - Max_NotLocal: }
  if num > 0 then writeln(Max_NotLocal)
  else writeln(num) //иначе выводим num = 0
end.

**type** integer;: Представляет 32-битовое целое число со знаком.Диапазон значений: -2 147 483 648 .. 2 147 483 647