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

Автор: Artf 27.10.2006 23:54

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

Автор: Reflex 28.10.2006 0:11

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 28.10.2006 0:44

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

Автор: Reflex 28.10.2006 0:46

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

Автор: Malice 28.10.2006 0:48

Чего это ты тут наплел ? Процедура 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-мя вызовами, не получится вроде

Автор: Reflex 28.10.2006 0:52

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

Автор: arhimag 28.10.2006 0:53

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

Автор: Reflex 28.10.2006 0:55

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

Автор: volvo 28.10.2006 0:56

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

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

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

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

Автор: arhimag 28.10.2006 0:57

Это ты к чему?

!

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