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

Формулировка задачи:

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

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

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.
Эта работа вам не подошла?

Вы всегда можете заказать любую учебную работу у наших авторов от 20 руб.

8   голосов, оценка 4.375 из 5


СДЕЛАЙТЕ РЕПОСТ