процедура! Реализуйте плиз, процедура Опции

[Artf]

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

[Reflex]

procedure minmax(var A, B : real);
function min(a,b:real):real;
begin
  if a>=b then begin
    min:=b;
    exit;
  end;
  if b>=a then begin
    min:=a;
    exit;
  end;
end;
function max(a,b:real):real;
begin
  if a>=b then begin
    max:=a;
    exit;
  end;
  if b>=a then begin
    max:=b;
    exit;
  end;
end;
var I,j:real;
begin
  i:=min(a,b);
  j:=max(a,b);
  a:=i;
  b:=j;
end; 

откомментируй как этот код работает.

а вопрос 2 - типичный пузырек

[Artf]

откомментируй как этот код работает.

Спасибо!!! Вы хотите что бы я откоментировала ? а зачем? еси скажете зачем то я откоментирую-найду время напишу!

[Reflex]

иначе от этого тебе пользы никакой не будет. преподаватель же не просто так тебе дал эту задачу.

[Malice]

откомментируй как этот код работает.
а вопрос 2 - типичный пузырек

Чего это ты тут наплел ? Процедура MinMax должна выглядеть вот так, и ни как иначе:

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

А вот с 4-мя вызовами, не получится вроде

Сообщение отредактировано: volvo - 3.11.2006 21:54

[Reflex]

пункт 1 не наплел а наплела!
А во вторых мой код тоже работает, но она просит решить элементарные задачи, а раз она их не может решить, то решим их как-то сложно ;)

[arhimag]

Malice Reflex изучает паскаль второй месяц, сразу она до короткого решения не догадаеться ...

[Reflex]

А админов локалки некто не спрашивает

[volvo]

Reflex изучает паскаль второй месяц, сразу она до короткого решения не догадаеться ...

Сорри, если человек изучает Паскаль второй месяц, то он должен больше СПРАШИВАТЬ, а не ОТВЕЧАТЬ...

А уж если отвечаешь, то...

"Назвался груздем - ..." (С)

P.S. Будет продолжаться личная переписка - начнется отстрел...

[arhimag]

"Назвался груздем - ..." (С)

Это ты к чему?

!

Ты опять за старое? Как знаешь... 10 дней премод... Тема закрыта, все дружно говорим спасибо arhimag-у

Сообщение отредактировано: volvo - 28.10.2006 1:02