unit Unit1;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
StdCtrls;
type
TForm1 = class(TForm)
Edit1: TEdit;
Button1: TButton;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
const
// 기준이 되는 수치
Nums: array [1..10] of Integer = (50,100,150,200,250,
300,350,400,450,500);
var
Form1: TForm1;
implementation
{$R *.DFM}
function Closest(Value: Integer; Potentials: array of Integer): Integer;
var
i: Integer;
Delta: Integer;
begin
Result := Potentials[Low(Potentials)]; // 배열에서 첫번째 배열요소의 값
Delta := Abs(Value - Result); // Value와 첫번째 배열요소와의 차이
for i := Low(Potentials) + 1 to High(Potentials) do
if Abs(Value - Potentials[i]) < Delta then // 차이가 적은것을 구한다
begin
Result := Potentials[i];
Delta := Abs(Value - Result)
end;
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
if StrToIntDef(Edit1.Text,-1) = -1 then
System.Exit;
ShowMessage('근사치: '+IntToStr(Closest(StrToInt(Edit1.Text), Nums)));
end;
end. |
|
