В этой статье мы рассмотрим сравнение чисел.
При сравнении чисел мы выбираем то число, которое банально больше. Ну, например, при сравнении числа 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.
Ну собственно логическое завершение программы=)
Дополнение:
- Кто хочет, чтобы экран самоочищался от результатов каждый раз, может добавить в начале программы
Uses crt;
и
Begin clrscr;
Вот теперь хорошая картинка!
Да уж лучше предыдущей))
Угу взяли и убрали мою картинку. Побойся бога хоть копирайт поставь. А ну да можно просто не удалять вот эту строчку :
Ну вот и все =) Спасибо за внимание. С вами был Vector.
Поэтому я и не убрал твою строчку
Статья твоя, это я не оспариваю
А все эти красивые кнопочки фейсбук куча всего, работают?
да вроде
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;
В итоге мы получим максимальные и минимальные значения в сравнении с первым значением выборки, а не всех элементов.
Эх, а мне надо найти минимальное и максимальное без массивов, но с циклом. Подскажите кто нибудь, как это сделать?
Виктор,
Довольно странный случай. Пришлите, пожалуйста, полное условие задания
Помогите пожалуйста.Вот задача: дано три разных числа, найти среднее из них. Средним называется число, которое больше наименьшого с данных чисел , но меньше наибольшего.