Нахождение максимального и минимального значения.

Нахождение максимального и минимального значения.

В этой статье мы рассмотрим сравнение чисел.

При сравнении чисел мы выбираем то число, которое банально больше. Ну, например, при сравнении числа 2 и 3 мы выберем максимальным числом 3, а минимальным 2. Графически 3 на числовой оси X находится правее, чем 2.

Я покажу один из самых рациональных алгоритмов выбора максимального и минимального числа, подходящего для общего случая. Это присвоение для переменных, выражающих минимальное и максимальное значение, значение одного из элементов заданных чисел/массива.

Ну теперь перейдем к практике.

Простая программка для сравнения 3 чисел(min_max_1):

Program Min_Max;
var a,b,c,min,max:integer;
begin
write(‘Введите 3 числа для сравнения (через пробел) : ‘);read(a,b,c);
min:=a;max:=a;
if b>max then max:=b;if b<min then min:=b;
if c>max then max:=c;if c<min then min:=c;
writeln(‘Максимальное число : ‘,max);
writeln(‘Минимальное число : ‘,min);
readln;
end.

Теперь подробнее.

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

Ну смысл этой строки понятен, если хотите, можете выразить переменные через тип real, но особой разницы нету.

write(‘Введите 3 числа для сравнения (через пробел): ‘);read(a,b,c);

Мы вводим три числа через пробел, т.к. здесь оператор write.

min:=a;max:=a;

Здесь мы присваиваем переменным min и max значение одного из введенных чисел, если вы хотите разнообразия, то можете вместо переменной a написать b или c.

if b>max then max:=b; if b<min then min:=b;
if c>max then max:=c; if c<min then min:=c;

Здесь происходит сравнение оставшихся введенных переменные со значениями переменных min и max.

writeln(‘Максимальное число : ‘,max);
writeln(‘Минимальное число : ‘,min);

Ну здесь у нас происходит вывод ответа, думаю, объяснять где, какое значение выводится не надо=)

readln;

Это используется для того, чтобы мы увидели результат программы.

end.

Ну собственно логическое завершение программы=)

Дополнение:

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

Uses crt;

и

Begin clrscr;

10 комментариев

  • Topcoder

    Ответить 13.04.2011 19:23

    Вот теперь хорошая картинка!

  • Mr.Cheater

    Ответить 13.04.2011 19:24

    Да уж лучше предыдущей))

  • Бывший блогер . . .

    Ответить 14.04.2011 19:24

    Угу взяли и убрали мою картинку. Побойся бога хоть копирайт поставь. А ну да можно просто не удалять вот эту строчку :
    Ну вот и все =) Спасибо за внимание. С вами был Vector.

  • Mr.Cheater

    Ответить 14.04.2011 19:24

    Поэтому я и не убрал твою строчку
    Статья твоя, это я не оспариваю

  • Хаха

    Ответить 23.04.2011 19:25

    А все эти красивые кнопочки фейсбук куча всего, работают?

  • Mr.Cheater

    Ответить 24.04.2011 19:25

    да вроде

  • Александр

    Ответить 20.03.2012 19:26

    Veсtor!
    Третий пример некорректен.» Однако бывают случаи, когда минимальное и максимальные значения необходимо найти из большого количества элементов…»

    … a[i]:=random(89)+10;min:=a[1];max:=a[1];…
    8) if a[i]>max then max:=a[i];
    9) if a[i]then min:=a[i];end;

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

  • Виктор

    Ответить 28.02.2013 19:27

    Эх, а мне надо найти минимальное и максимальное без массивов, но с циклом. Подскажите кто нибудь, как это сделать?

  • Mr.Cheater

    Ответить 02.03.2013 19:27

    Виктор,
    Довольно странный случай. Пришлите, пожалуйста, полное условие задания

  • Роман

    Ответить 24.05.2017 19:27

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

Оставить комментарий