Версия для печати темы

Нажмите сюда для просмотра этой темы в обычном формате

Форум «Всё о Паскале» _ Задачи _ процедура!

Автор: Artf 28.10.2006 2:32

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

Автор: lapp 28.10.2006 6:07

Цитата(Artf @ 27.10.2006 23:32) *

Описать процедуру 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 28.10.2006 7:39

Цитата(lapp @ 28.10.2006 3:07)
Думаю, примерно так.

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