fonksiyon hesabını edite yazdırma?

[truva3386]

bir button tıklanıldığında sınav adlı fonksiyonu çagıran, ona x=3 degerini gönderen ve fonksiyonun sonucu bir edit nesnesinde görüntüleyen programı yazınız ?
sınav adlı fonk. yapılacak işlem;
x^4 +e^(x/10)



arkadaşlar ben inş müh ögrencisiyim anlamıyorum delphiden ve bütünleme sınavından geçmem gerekiyor buda sınav sorumuz yardımcı olurmusunuz

[Senat0r]

Kod: Tümünü seç

Function Sinav(x:Double):Double;
var
e:Double;
Begin
e:=2.718;
  Result:=x +e*(x/10);
End;

procedure TForm1.Button1Click(Sender: TObject);
begin
Edit1.Text:=FloatToStr(Sinav(3));
end;

Pointerler beni sevmez bende onları

[esistem]

Selam;

Kod: Tümünü seç

Function Sinav(x:Double):Double;
var
e:Double;
Begin
e:=2.718;
  Result:=x +e*(x/10);
End;

procedure TForm1.Button1Click(Sender: TObject);
begin
Edit1.Text:=FloatToStr(Sinav(3));
end;

Pointerler beni sevmez bende onları

yalnız formülde "x^4 +e^(x/10)" yani x'in 4. kuvveti ile e nin (x/10). kuvveti toplanacak demiş.
buna göre formul şöyle olmalıdır,

Kod: Tümünü seç

Function Sinav(x:Double):Double;
var
e:Double;
Begin
e:=2.718;
  Result:=power(x,4) + power(e,(x/10));
End;

ayrıca uses kısmına "math" ekleyiniz.

[Senat0r]

Haklısınız ^ İşaretini görünce ilk aklıma gelen nokta pointer oldu düşünemedim