ru.algorithms

 
 - RU.ALGORITHMS ----------------------------------------------------------------
 From : Paul Lyakhnitskiy                    2:460/120.90   18 Apr 2003  16:35:28
 To : Paul Lyakhnitskiy
 Subject : RE:Задачка
 -------------------------------------------------------------------------------- 
 

 Грешен, грешен. Эк меня ночью перекосило ... глупости пишу.
 Вот что я имел в виду:
 
  function intersection(x1,x2,x3,x4:integer):integer;
  var a,b,m:integer;
  begin
         intersection:=0;
         if (x3 > x2) or (x1 > x4) then exit;
         if x4 > x2 then a:=x2 else a:=x4;
         if x3 > x1 then b:=x3 else b:=x1;
         intersection:=a-b;
  end;
 
 Что по коду минимально и, собственно, эквивалентно
 тому, о чем писал Sergiy Kanilo:
 
        max(0,min(x4,x2)-max(x3,x1));
 
 Всего доброго!
 Павел.
 / mailto:pil@ecc.crimea.ua /
 --- F.I.P.S./32 v1.0r W95/NT [M]
  * Origin: PIL (2:460/120.90)
 
 

Вернуться к списку тем, сортированных по: возрастание даты  уменьшение даты  тема  автор 

Тема:    Автор:    Дата:    Задачка   Mike Keskinov   16 Apr 2003 22:28:20   Задачка   Boris Sivko   17 Apr 2003 22:59:37   RE:Задачка   Paul Lyakhnitskiy   18 Apr 2003 04:58:12   Задачка   Boris Sivko   19 Apr 2003 00:33:59   RE:Задачка   Paul Lyakhnitskiy   20 Apr 2003 02:47:26   Задачка   Boris Sivko   20 Apr 2003 13:08:23   RE:Задачка   Paul Lyakhnitskiy   18 Apr 2003 03:50:47   RE:Задачка   Paul Lyakhnitskiy   18 Apr 2003 16:35:28