|
|
|
DERS ANLATIMI FRAME |
|
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. |
| |
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; |
|
|
|
|
|