Bazı Delphi Komutları 'SQR' - Delphi- Zamansız Tartışma Platform

ares · 07-12-07, 18:40 Çevrimiçi

Tanimlama : function sqr(X:Extended):Extended;
Parametreyle girilen sayinin karesini hesaplayan bir Delphi fonksiyonudur. Tam sayilar için kullanilabilecegi gibi ondalikli sayilar içinde sonucu hesaplayabilmektedir.
Asagida bununla ilgili örnek verilmistir.

Code:

procedure TForm1.Button1Click(Sender: TObject);
var
sayi,sonuc:double;
begin
sayi:=100.2;
sonuc:=sqr(sayi);//karesini hesapla
form1.Caption:=FloatToStr(sonuc);//10040.04 yazar
end;

07-12-07, 18:40 Çevrimiçi	#1
ares Genel Mesajlar: 6.380 Teşekkür etti: 764 Teşekkür edildi: 2.105 RepForum Gücü: 500 Forum Puanı:43217	Bazı Delphi Komutları 'SQR' Tanimlama : function sqr(X:Extended):Extended; Parametreyle girilen sayinin karesini hesaplayan bir Delphi fonksiyonudur. Tam sayilar için kullanilabilecegi gibi ondalikli sayilar içinde sonucu hesaplayabilmektedir. Asagida bununla ilgili örnek verilmistir. Code: procedure TForm1.Button1Click(Sender: TObject); var sayi,sonuc:double; begin sayi:=100.2; sonuc:=sqr(sayi);//karesini hesapla form1.Caption:=FloatToStr(sonuc);//10040.04 yazar end;

Konu Seçenekleri
Yazdırılabilir Sümü Göster Sayfayı E-Mail'le gönder