ВВЕРХ
ВНИЗ
  • Home
  • Minmax
  • Minmax 1 - 5

Минимумы и максимумы

На этой странице начинается группа задач, посвященная максимумам и минимумам, относящихся к последовательностям.

Minmax1 - находим минимальный и максимальный элементы из набора.

Minmax2 - находим минимальную площадь прямоугольника из данного набора.

Minmax3 - находим минимальный периметр прямоугольника из данного набора.

Minmax4 - находим номер минимального элемента из данного набора.

Minmax5 - номер детали максимальной плотности и её величину.

Minmax1. Дано целое число N и набор из N чисел. Найти минимальный и максимальный из элементов данного набора и вывести их в указанном порядке.

Код Pascal
1  
2  
3  
4  
5  
6  
7  
8  
9  
10  
11  
12  
13  
14  
15  
16  
17  
18  
19  
20  
var
  N, i: byte;
  a, min, max: integer;

begin
  write('N = ');
  readln(N); { вводим количество чисел (N > 0) }
  min := MaxInt; { начальное значение минимального элемента }
  max := -min;  { начальное значение максимального элемента }
  randomize;
  for i := 1 to N do begin
    a := random(100);
    write(' ', a); { выводим элемент }
    if min > a then min := a; { запоминаем минимум }
    if max < a then max := a  { запоминаем максимум }
  end;
  writeln;
  writeln('Ответ: ', min, ' ', max);
  readln
end.

Minmax2. Дано целое число N и набор из N прямоугольников, заданных своими сторонами — парами чисел (a, b). Найти минимальную площадь прямоугольника из данного набора.

Код Pascal
1  
2  
3  
4  
5  
6  
7  
8  
9  
10  
11  
12  
13  
14  
15  
16  
17  
18  
19  
20  
21  
22  
23  
var
  i, N: byte;
  a, b, S, min: real;
 
begin
  write('N = ');
  readln(N); //количество прямоугольников (N > 0)
  randomize;
  for i := 1 to N do begin
    { Вычисляем стороны: }
    a := 10 * random;
    b := 10 * random;
    { Выводим стороны: }
    write(' (', a:0:2, ', ', b:0:2, ')');
    S := a * b; { Вычисляем площадь }
    if i = 1 then min := S { начальное значение площади }
    else
      if min > S then min := S { Сравниваем площадь с минимальной }
  end;
  writeln;
  writeln('Минимальная площадь: ', min:0:2);
  readln
end.

Minmax3. Дано целое число N и набор из N прямоугольников, заданных своими сторонами — парами чисел (a, b). Найти максимальный периметр прямоугольника из данного набора.

Код Pascal
1  
2  
3  
4  
5  
6  
7  
8  
9  
10  
11  
12  
13  
14  
15  
16  
17  
18  
19  
20  
21  
22  
23  
var
  i, N: byte;
  a, b, P, max: real;

begin
  write('N = ');
  readln(N); { количество прямоугольников (N > 0) }
  for i := 1 to N do begin
    { Вычисляем стороны: }
    writeln(i, '-й прямоугольник:');
    write(' a = ');
    readln(a);
    write(' b = ');
    readln(b);
    P := 2 * (a + b); { Вычисляем периметр }
    if i = 1 then max := P { начальное значение периметра }
    else
      if max < P then max := P { Сравниваем периметр с минимальным }
  end;
  writeln;
  writeln('Максимальный периметр: ', max:0:2);
  readln
end.

Minmax4. Дано целое число N и набор из N чисел. Найти номер минимального элемента из данного набора.

Код Pascal
1  
2  
3  
4  
5  
6  
7  
8  
9  
10  
11  
12  
13  
14  
15  
16  
17  
18  
19  
20  
21  
22  
23  
24  
25  
var
  N, i, MinNumber: byte;
  a, min: integer;

begin
  write('N = ');
  readln(N); { Вводим количество чисел (N > 0) }
  writeln('Введите набор ', N, ' целых чисел: ');
  for i := 1 to N do begin
    write(i, ') ');
    readln(a); { Вводим число }
    if i = 1 then begin
      MinNumber := 1; { Начальный номер минимального элемента }
      min := a { Начальное значение минимального элемента }
    end
    else { Если предыдущий минимум больше а: }
      if min > a then begin
        min := a; { Минимальный элемент }
        MinNumber := i { Его номер }
      end
  end;
  writeln;
  writeln('Номер минимального элемента: ', MinNumber);
  readln
end.

Minmax5. Дано целое число N и набор из N пар чисел (m, v) — данные о массе m и объеме v деталей, изготовленных из различных материалов. Вывести номер детали, изготовленной из материала максимальной плотности, а также величину этой максимальной плотности. Плотность P вычисляется по формуле P = m/v.

Код Pascal
1  
2  
3  
4  
5  
6  
7  
8  
9  
10  
11  
12  
13  
14  
15  
16  
17  
18  
19  
20  
21  
22  
23  
24  
25  
26  
var
  N, i, NumMaxP: byte;
  m, v, P, MaxP: real;

begin
  write('N = ');
  readln(N); { Количество N > 0 }
  MaxP := 0; { Начальная плотность }
  NumMaxP := 0; { Номер детали максимальной плотности (в начале) }
  writeln('Введите набор ', N, ' пар (m, v): ');
  for i := 1 to N do 
  begin
    write(i, ') ');
    readln(m, v); { Вводим массу и объем }
    P := m / v; { Вычисляем плотность }
    if MaxP < P then { Сравниваем плотность с максимальной }
    begin
      MaxP := P; { Новое значение максимальной плотности }
      NumMaxP := i { Номер детали }
    end
  end;
  writeln;
  writeln('Номер детали: ', NumMaxP);
  writeln('Плотность: ', MaxP:0:3);
  readln
end.


Яндекс.Метрика