Как найти два наибольших числа паскаль

Паскаль. В линейном массиве найти два максимальных элемента.

Профи

(638),
закрыт

11 лет назад

Проще всего задача поиска максимального из трех, четырех и более чисел, решается перегрузкой функции нахождения максимума из двух.

Аналогичные функции можно написать для поиска минимального из чисел. Для этого достаточно сменить знак сравнения в функции с двумя аргументами(в первой из рассмотренных).

Для реализации сначала нужно написать функцию, которая находит максимальное из двух чисел.

Функция определения максимального из двух чисел

function Max(x1, x2 : integer) : integer;
begin
  if x1 > x2 then
    Max := x1
  else
    Max := x2;
end; 

Теперь у нас есть код, который возвращает наибольшее из двух чисел. Для того, чтобы расширить количество аргументов до трех, достаточно написать ещё одну функцию, которая будет дважды вызывать предыдущую.

Функция поиска наибольшего из трех чисел

function Max(x1, x2, x3 : integer) : integer;
begin
  Max := Max(Max(x1, x2), x3);
end;

А что если нужно сравнить четыре, пять и больше чисел, и найти максимальное из них?

Без проблем, мы можем писать столько перегруженных функций, сколько нам нужно.

Максимум из четырех чисел

function Max(x1, x2, x3, x4 : integer) : integer;
begin
  Max := Max(Max(x1, x2, x3), x4);
end; 

Эта функция использует вызов двух предыдущих.

Программа для поиска и вывода максимальных чисел

все приведенные выше функции должны быть размещены в том же порядке над телом основной программы

В зависимости от количества аргументов, компилятор выбирает какую из функций вызывать.

begin
  writeln(Max(1, 4));
  writeln(Max(9, 2, 7));
  writeln(Max(8, 3, 6, 5));
  readln;
end. 

Если предполагается сравнивать много чисел, то лучше всего представить их в виде массива, и искать минимальный или максимальный элемент в массиве.

Всем привет! Сегодня мы начнем долгожданный разбор задач по программированию if1-15, а также вспомним и научимся применять различные процедуры. В решениях к некоторым задачам Вам встретится возможно неизвестная прежде процедура Inc. Пояснения к ней и к другим процедурам можно найти в этой статье.

If1. Дано целое число. Если оно является положительным, то прибавить к нему 1; в противном случае не изменять его. Вывести полученное число.

Program If_1;

var
  a: integer;

begin
  readln(a);
  if a > 0 then Inc(a);
  write(a);
end.

If2. Дано целое число. Если оно является положительным, то прибавить к нему 1; в противном случае вычесть из него 2. Вывести полученное число.

Program If_2;

var
  a: integer;

begin
  readln(a);
  if a > 0 then Inc(a) else a -= 2;
  write(a);
end.

If3. Дано целое число. Если оно является положительным, то прибавить к нему 1; если отрицательным, то вычесть из него 2; если нулевым, то заменить его на 10. Вывести полученное число.

Program If_3;

var
  a: integer;

begin
  readln(a);
  if a >= 0 then 
    if a = 0 then a := 10 else Inc(a)
   else a -= 2;
  write(a);
end.

If4°. Даны три целых числа. Найти количество положительных чисел в исходном наборе.

Program If_4;

var
  a, b, c, plus: integer;

begin
  write('Введите три целых числа: ');
  readln(a, b, c);
  if a > 0 then Inc(plus); 
  if b > 0 then Inc(plus); 
  if c > 0 then Inc(plus); 
  writeln('Количество положительных чисел: ', plus);
end.

If5. Даны три целых числа. Найти количество положительных и количество отрицательных чисел в исходном наборе.

Program If_5;

var
  a, b, c, plus, minus: integer;

begin
  write('Введите три целых числа: ');
  readln(a, b, c);
  if a > 0 then Inc(plus) else Inc(minus);
  if b > 0 then Inc(plus) else Inc(minus);
  if c > 0 then Inc(plus) else Inc(minus);
  writeln('Количество положительных чисел - ', plus);
  writeln('Количество отрицательных чисел - ', minus);
end.

If6°. Даны два числа. Вывести большее из них.

Program If_6;

var
  a, b: integer;

begin
  write('Введите числа: ');
  readln(a, b);
  if a > b then writeln(a) else writeln(b);
end.

If7. Даны два числа. Вывести порядковый номер меньшего из них.

Program If_7;

var
  a, b: integer;

begin
  write('Введите числа: ');
  readln(a, b);
  if a < b then writeln(1) else writeln(2);
end.

If8°. Даны два числа. Вывести вначале большее, а затем меньшее из них.

Program If_8;

var
  a, b: integer;

begin
  write('Введите числа: ');
  readln(a, b);
  if a > b then writeln(a,' ', b) else writeln(b,' ', a);
end.

If9. Даны две переменные вещественного типа: A, B. Перераспределить значения данных переменных так, чтобы в A оказалось меньшее из значений, а в B — большее. Вывести новые значения переменных A и B.

Program If_9;

var
  a, b: integer;

begin
  write('Введите A: ');
  readln(a);
  write('Введите B: ');
  readln(b);
  if a > b then writeln('A = ', a,';  B = ', b) else writeln('A = ', b,';  B = ', a);
end.

If10. Даны две переменные целого типа: A и B. Если их значения не равны, то присвоить каждой переменной сумму этих значений, а если равны, то присвоить переменным нулевые значения. Вывести новые значения переменных A и B.

Program If_10;

var
  a, b: integer;

begin
  write('Введите A: ');
  readln(a);
  write('Введите B: ');
  readln(b);
  if a <> b then writeln('A = ', a+b,';  B = ', a+b) else writeln('A = ',0,';  B = ',0);
end.

If11. Даны две переменные целого типа: A и B. Если их значения не равны, то присвоить каждой переменной большее из этих значений, а если равны, то присвоить переменным нулевые значения. Вывести новые значения переменных A и B.

Program If_11;

var
  a, b: integer;

begin
  write('Введите A: ');
  readln(a);
  write('Введите B: ');
  readln(b);
  if a = b then writeln('A = ',0,';  B = ',0) else
    if a > b then writeln('A = ', a,';  B = ', a) else writeln('A = ', b,';  B = ', b);
end.

If12°. Даны три числа. Найти наименьшее из них.

Program If_12;

var
  a, b, c: integer;

begin
  write('Введите три числа: ');
  readln(a, b, c);
  if (a <  b) and (a < c) then writeln(a) else 
    if b < c then writeln(b) else writeln(c);
end.

If13. Даны три числа. Найти среднее из них (то есть число, расположенное между наименьшим и наибольшим).

Program If_13;

var
 a, b, c, srednee:integer;

begin
 write('Введите три числа: ');
 readln(a, b, c);
 if (a > c) and (a > b) then
  if c > b then srednee := c
  else srednee := b;
 if (b > a) and (b > c) then
  if a > c then srednee := a
  else srednee := c;
 if (c > a) and (c > b) then
  if a > b then srednee := a
  else srednee := b;
 writeln('Среднее: ', srednee);
end.

If14. Даны три числа. Вывести вначале наименьшее, а затем наибольшее из данных чисел.

Program If_14;

var
 a, b, c, min, max :integer;

begin
 write('Введите три числа: ');
 readln(a, b, c);
 if (a > c) and (a > b) then max := a
   else if b > c then max := b
     else max := c;
 if (a < c) and (a < b) then min := a
   else if b < c then min := b
     else min := c;
 writeln('Наименьшее число: ', min);
 writeln('Наибольшее число: ', max);
end.

If15. Даны три числа. Найти сумму двух наибольших из них.

Program If_15;

var
 a, b, c :integer;

begin
 write('Введите три числа: ');
 readln(a, b, c);
 if (a < b) and (a < c) then writeln(b+c)
   else if b < c then writeln(a+c)
     else writeln(a+b);
end.

Фух! На сегодня все! Если у вас возникли какие-либо вопросы не стесняйтесь, оставляйте все свои вопросы в комментариях под статьей! И не забывайте кликать по кнопочкам и рассказывать о нас своим друзьям.