Clomosy | Forum : pi işlenmi için ne yapabiliriz https://www.clomosy.com.tr/ Copyright (c) 2006-2013 Web Wiz Forums - All Rights Reserved. Tue, 14 Apr 2026 23:50:05 +0000 Mon, 31 Jul 2023 14:07:16 +0000 http://blogs.law.harvard.edu/tech/rss Web Wiz Forums 12.07 360 https://www.clomosy.com.tr/RSS_post_feed.asp?TID=530 <![CDATA[Clomosy | Forum]]> https://www.clomosy.com.tr/forum_images/logo.png https://www.clomosy.com.tr/ <![CDATA[pi işlenmi için ne yapabiliriz : Lütfen isteğinizi düzgün bir şekilde...]]> https://www.clomosy.com.tr/forum_posts.asp?TID=530&PID=596#596 Yazar: Alforce
Konu: 530
Gönderim Zamanı: 31 Temmuz 2023 Saat 14:07

Lütfen isteğinizi düzgün bir şekilde belirtin.

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.
]]> Mon, 31 Jul 2023 14:07:16 +0000 https://www.clomosy.com.tr/forum_posts.asp?TID=530&PID=596#596 <![CDATA[pi işlenmi için ne yapabiliriz : constLn=2.14Var MyForm:TclForm;testButton,testButton2...]]> https://www.clomosy.com.tr/forum_posts.asp?TID=530&PID=593#593 Yazar: kader
Konu: 530
Gönderim Zamanı: 31 Temmuz 2023 Saat 13:43

const
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;

]]> Mon, 31 Jul 2023 13:43:08 +0000 https://www.clomosy.com.tr/forum_posts.asp?TID=530&PID=593#593