unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TForm1 = class(TForm)
    Button1: TButton;
    Edit1: TEdit;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

uses Math;

{$R *.dfm}
var
tahmin,yeni,enyeni:real; tur:integer;
procedure TForm1.Button1Click(Sender: TObject);

begin
     if Edit1.Text=" then begin
      yeni:=50;    tur:=0;
      tahmin:=0;            end;

   if Edit1.Text=" then  begin

   Label1.Caption:=floattostr(yeni);
   tur:=1;
   Label4.Caption:=inttostr(tur);
   end;


   if Edit1.Text='2' then  begin
   yeni:=StrToFloat(Label1.Caption);
             
   enyeni:= yeni+ abs(yeni-(tahmin))/2;

   Label1.Caption:=FloatToStr(floor(enyeni));
   tahmin:=yeni;
   tur:=tur+1;
   Label4.Caption:=inttostr(tur);
   end;

   if Edit1.Text='1' then  begin
   yeni:=StrToFloat(Label1.Caption);

   enyeni:= yeni-abs(yeni-tahmin)/2;

   tahmin:=yeni;
   Label1.Caption:=FloatToStr(floor(enyeni));
    tur:=tur+1;
    Label4.Caption:=inttostr(tur);
   end;
   if edit1.text='0' then
   showmessage('Sayınız:'+label1.caption);


end;

end.