ru.algorithms

 
 - RU.ALGORITHMS ----------------------------------------------------------------
 From : Artur Mogozov                        2:5002/7.6     21 Apr 2003  07:49:16
 To : Boris Sivko
 Subject : Задачка
 -------------------------------------------------------------------------------- 
 

  [ы] Привет, как жизнь, Boris ?
 
  18 Апреля 2003 года ты писал(а) к Sergiy:
 
  SK>> ну уж если abs можно, то почему бы не воспользоваться max и min
  SK>> max(0,min(x4,x2)-max(x3,x1));
  BS>   У муня в TP7 таких функций нет. А модули подключать не говорилось. А
  BS> abs есть в классическом Паскале. Hо вот насчёт byte() сомневаюсь...
 
  Max и min пишутся так:
 
  Function max(a,b:longint):longint;
  begin
 
   if a>b then max:=a else max:=b;
 
  end;
 
  Function min(a,b:longint):longint;
  begin
 
   if a>b then min:=b else min:=a;
 
  end;
  [ы] Пока, Boris, счастливого тебе коннекта ! ...
 --- Shutted up
  * Origin: - Доктоp, я вчеpа Windows... - К ГИHЕКОЛОГУ! (2:5002/7.6)
 
 

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

Тема:    Автор:    Дата:    Re: Задачка   Sergiy Kanilo   18 Apr 2003 01:37:28   Задачка   Boris Sivko   19 Apr 2003 00:41:58   Задачка   Artur Mogozov   21 Apr 2003 07:49:16