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

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

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

При сравнении чисел мы выбираем то число, которое банально больше. Ну, например, при сравнении числа 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 Replies to “Нахождение максимального и минимального значения.”

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

  2. 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;

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

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

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

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

Добавить комментарий

Ваш адрес email не будет опубликован. Обязательные поля помечены *