Найти минимальное и максимальное из данных чисел - Pascal

  1. Описать процедуру, записывающую в переменную X минимальное из значений X и Y, а в переменную Y — максимальное из этих значений. Используя четыре вызова этой процедуры, найти минимальное и максимальное из данных чисел A, B,C, D. Заранее спасибо.

textual

Код:

procedure minmax(var x,y:real);
var t:real;
begin
  if y<x then begin t:=x;x:=y;y:=t;end;
end;
var
  a,b,c,d:real;
begin
  write('a,b,c,d=');readln(a,b,c,d);
  minmax(a,b);
  minmax(c,d);
  minmax(b,d);
  minmax(a,c);
  writeln('Min=',a:0:2);
  writeln('Max=',d:0:2);
end.

Похожие ответы
  1. Задание: в целочисленном векторе vector найти минимальное положительное и максимальное отрицательное числа, не входящие в этот вектор. Предусмотреть случай, когда таких элементов нет. Нужно добавить выделенное условие в программу:

  1. Большую часть задания я выполнил, осталось только это, ничего в голову не приходит, прошу помочь. Полностью задание звучит так: Разработать программу, в которой предусмотреть: - ввод размерности N одномерного массива М, - задание элементов массива двумя способами: ввод с клавиатуры и формирование значений с помощью функции RANDOM(K) генерирования случайных чисел в диапазоне [0..К-1];. Найти среднее значение элементов массива и найти элементы, имеющие минимальное и максимальное отклонение от среднего. А вот моя программа:

  1. Создать типизированный файл целых чисел. Записать в него с консоли последовательность целых чисел, конец последовательности (терминатор) – ноль, который не записывается в файл. Определить вторые по значению минимальное и максимальное числа и их позиции в файле (нумерация данных в файле начинается с нуля). Предусмотреть случай, когда таких чисел в файле нет. Удалить из файла все числа, находящиеся между ними.

  1. Описать процедуру Minmax(x,y) записывающую в переменную Х минимальное из значений Х и Y, а в переменную Y – максимальное из этих значений (X и Y- вещественные параметры, являющиеся одновременно входными и выходными) использовать четыре вызова этой процедуры, написать минимальное и максимальное из данных чисел A,B,C,D. кто нибудь понимает как это решать? если знаете, подскажите скажу спасибо огромное

  1. Написать программу перезаписи текстовых строк из заданного файла на консоль. Определить номера строк, содержащих максимальное и минимальное количество символов.

  1. Дан целочисленный массив с неповторяющимися элементами, сформированный пользователем. Вывести на экран минимальное значение среди положительных элементов массива и максимальное значение среди отрицательных элементов. Поменять эти элементы местами и вывести новый массив. ни чего не получается =((((

  1. Помогите написать программу к задаче и составить блок схему! Натуральные числа вводятся с клавиатуры до тех пор, пока не будет введено число «0». Найти среднее арифметическое введенных чисел, а также максимальное минимальное значения. Буду премного благодарен!

  1. Определить максимальное и минимальное из трех вещественных чисел,вводимых с клавиатуры.

  1. Помогите пожалуйста. Задачка по паскалю. Найти максимальное нечетное и минимальное четное числа.Добавлено через 43 минуты Помогите пожалуйста..очень нужно...

  1. Найти среднее арифметическое элементов массива х(n), исключив из них максимальное и минимальное значение. Как исключить макс. и мин. значение?


Нашли ошибку?
Развитие проекта
Яндекс.Метрика