Ln=2.14

Var   

MyForm:TclForm;

testButton,testButton2 ,testButton3,testButton4,testButton5,testButton6,testButton7,testButton8,testButton9,testButton10,testButton11,testButton12,testButton13,testButton14,testButton15,testButton16,testButton17,testButton18,testButton19,testButton20,testButton21,testButton22,testButton23,testButton24,testButton25,testButton26:TclButton;

a,b:Integer;

editNumber:TclProEdit;

Mem: Integer;

Op: String;

floatt: float;

Function getSum(a,b: Integer):Integer;

  begin

     Result := a + b;

  end;

{

Function Ln( number: Extended) : Extended;

   begin

  

  floatt := Ln(number);

  end;

  }

procedure cagir

begin

  Case Op of

    '+': editNumber.Text:= IntToStr(Mem+StrToInt(editNumber.Text));

    '-': editNumber.Text:= IntToStr(Mem-StrToInt(editNumber.Text));

    '*': editNumber.Text:= IntToStr(Mem*StrToInt(editNumber.Text));

    '/': editNumber.Text:= IntToStr(Mem/StrToInt(editNumber.Text));

    'Ln' : 

    begin

    floatt := Mem;

    editNumber.Text:= FloatToStr(Ln(floatt));

    end;

    

  end;

  

  //editNumber.Text:=IntToStr(getSum(a,b));

end; 

Procedure Topla;

begin

  Mem:= StrToInt(editNumber.Text);

  editNumber.Text:= '';

  Op:= '+';

end;

Procedure cikar;

begin

  Mem:= StrToInt(editNumber.Text);

  editNumber.Text:= '';

  Op:= '-';

end;

Procedure bolme;

begin

  Mem:= StrToInt(editNumber.Text);

  editNumber.Text:= '';

  Op:= '/';

end;

Procedure carpma;

begin

  Mem:= StrToInt(editNumber.Text);

  editNumber.Text:= '';

  Op:= '*';

end;

Procedure Lnalma;

begin

  Mem:= StrToInt(editNumber.Text);

  editNumber.Text:= '';

  Op:= 'Ln';

end;

pi ile işlem yapma konusunda, pi bir sayıdır.

Diğer sayı tuşları gibi düşünebilirsiniz.

pi tuşuna bastığınızda 3.14... olarak yazabilir.