Сокращение программ Опции

[Барс]

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

[sheka]

идеал:

if a < b then 
  if a < c then a-мин
  else c-мин
else 
  if b < c then b-мин
  else c-мин

Если лень проверки писать так как надо (иногда очень громоздко и визуально неудобно):
Больше либо равно - принципиально. Подумай почему.

if (a<=b)and(a<=c) then a
else if (b<=a)and(b<=c) then b
else if (c<=a)and(c<=b) then c;

Если надо выводить несколько минимальных

if (a<=b)and(a<=c) then a;
if (b<=a)and(b<=c) then b;
if (c<=a)and(c<=b) then c;

Ну а еще можно использовать ф-ию

function min(const a, b: real);
begin
if a < b then min := a else min := b;
end;
begin
  min(min(a,b),c);
end;

Не проверял.

Сообщение отредактировано: sheka - 5.03.2012 0:12