From mboxrd@z Thu Jan  1 00:00:00 1970
Return-Path: <iscander@mercuri.mk.ua>
Date: Thu, 27 Feb 2003 12:13:22 +0200
From: isa <iscander@mercuri.mk.ua>
X-Mailer: The Bat! (v1.47 Halloween Edition) Personal
X-Priority: 3 (Normal)
Message-ID: <745482062.20030227121322@mercuri.mk.ua>
To: Ilya Palagin <community@altlinux.ru>
In-reply-To: <3E5C8900.30606@fioc.kz>
References: <3E5C8900.30606@fioc.kz>
Mime-Version: 1.0
Content-Type: text/plain; charset=koi8-r
Content-Transfer-Encoding: 8bit
Subject: [Comm] =?koi8-r?B?UmU6IFtDb21tXSDrwcsg08TFzMHU2CDVxM/CztnFINvLwczZIM7BIM/T0cgg?=
 =?koi8-r?B?y8/P0sTJzsHUPw==?=
Sender: community-admin@altlinux.ru
Errors-To: community-admin@altlinux.ru
X-BeenThere: community@altlinux.ru
X-Mailman-Version: 2.0.9
Precedence: bulk
Reply-To: community@altlinux.ru
X-Reply-To: isa <iscander@mercuri.mk.ua>
List-Unsubscribe: <http://www.altlinux.ru/mailman/listinfo/community>,
	<mailto:community-request@altlinux.ru?subject=unsubscribe>
List-Id: <community.altlinux.ru>
List-Post: <mailto:community@altlinux.ru>
List-Help: <mailto:community-request@altlinux.ru?subject=help>
List-Subscribe: <http://www.altlinux.ru/mailman/listinfo/community>,
	<mailto:community-request@altlinux.ru?subject=subscribe>
List-Archive: <http://www.altlinux.ru/pipermail/community/>
Archived-At: <http://lore.altlinux.org/community/745482062.20030227121322@mercuri.mk.ua/>
List-Archive: <http://lore.altlinux.org/community/>
List-Post: <mailto:mandrake-russian@linuxteam.iplabs.ru>

Здравствуйте, Илья!
Я в свое время писал своей девушке программку на (Делфях правда) и там
выбор диапазона делался так:

procedure  SelectRange( a , b: real);
      var dummy,down,up :real;
            n: integer;
begin
      if a=b then
      begin
        n:= Round(log10(a));
        dummy:=round(a/power(10,n-1));
        while dummy>=a do dummy:=dummy-power(10,n-1)*5;
          down:=dummy;
        while dummy<=a do dummy:=dummy+power(10,n-1)*5;
          up:=dummy;
      end
     else
     begin
         dummy:=abs(a-b);
         n:= Round(log10(dummy));
         down:=min(a,b);
         up:=max(a,b);

         dummy:=round(up/power(10,n-1));
         dummy:=dummy*power(10,n-1);
         while dummy <= up do dummy:=dummy+power(10,n-1)*5;
         up:=dummy;

         dummy:=round(down/power(10,n-1));
         dummy:=dummy*power(10,n-1);
         while dummy >= down do dummy:=dummy-power(10,n-1)*5;
         down:=dummy;
     end;
          Tmin:=min(down,up);   // Tmin, Tmax в Сишных терминах
          Tmax:=max(down,up);  // глобальные переменные -
                               // соответсвующие  мин-максимуму оси
                               // абсцис


end;    // Selecting rang

 Она сдала с первого раза, если у вас будут вопросы не стесняйтесь
 спрашивайте, впринципе это чистый Паскаль, но если надо могу
 прекинуть в Си
-- 
С уважением,
 isa                          mailto:iscander@mercuri.mk.ua