процедура!, процедура Опции

[Artf]

Описать процедуру Minmax (A,B), записывающую в переменную A минимальное из значений A и B, а в переменную B-максимальное из этих значений(A и B - вещественные параметры, являющиеся одновременно входными и выходными). Используя 4 вызова этой процедуры, найти минимальное и максимальное из чисел A,B,C,D.

[Lapp]

Описать процедуру Minmax (A,B), записывающую в переменную A минимальное из значений A и B, а в переменную B-максимальное из этих значений(A и B - вещественные параметры, являющиеся одновременно входными и выходными). Используя 4 вызова этой процедуры, найти минимальное и максимальное из чисел A,B,C,D.

Думаю, примерно так.

procedure MinMax(var a,b:real);
var
  c:real;
begin
  if a>b then begin
    c:=a; a:=b; b:=c
  end
end;

..............
  MinMax(a,b);
  MinMax(c,d);
  MinMax(a,c);
  MinMax(b,d);

[Artf]

Думаю, примерно так.

аааааааа вот каааак....сложно! Огромное спасибо!!! должно получиться еси я прально вставлю

Сообщение отредактировано: volvo - 2.11.2006 9:17