Описать процедуру Minmax(A,B), записывающую в переменную A минимальное из значений A и B

@RoacH_JIL · Регистрация: 03.10.2012

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

@CodeR · 05.11.2012, 15:45

Pascal

Procedure Minmax(Var a,b:integer);
Var t:integer;
Begin
      if a>b then 
      Begin
        t:=a;
        a:=b;
        b:=t;
      End;
End;

@RoacH_JIL · 05.11.2012, 16:39 **[ТС]**

а есть какойнибудь другой формат запсиси этой процедуры??? мне несколько надо, если вам несложно, помогите....

@Derogosu · 05.11.2012, 18:21

ну так можно

Pascal

Procedure Minmax(Var a,b:integer);
Var t:integer;
Begin
  if a>b then t:= a;
  else Exit;
  a := b;
  b := t;
end.

@RoacH_JIL 1 / 1 / 0 Регистрация: 03.10.2012 Сообщений: 39
		1
	Описать процедуру Minmax(A,B), записывающую в переменную A минимальное из значений A и B 05.11.2012, 15:30. Показов 1653. Ответов 3 Метки нет (Все метки) Описать процедуру Minmax(A,B), записывающую в переменную A минимальное из значений A и B, а в переменную B - максимальное из этих значений. 0

@RoacH_JIL 1 / 1 / 0 Регистрация: 03.10.2012 Сообщений: 39
	05.11.2012, 16:39 [ТС]	3
	а есть какойнибудь другой формат запсиси этой процедуры??? мне несколько надо, если вам несложно, помогите.... 0

	05.11.2012, 18:21