FONKSİYON İLE DİKDÖRTGEN KAREKÖKÜNÜ BULMAK

[edafdn]

edit1 ve edit2'den kullanıcının gireceği sayılar ile dikdörtgenin karekökünü bulduran programı yapmak istiyorum. Sqrt kodunu denedim ancak bir türlü sonucu bulamıyorum yardım eder misiniz?
(Alan ve çevresini bulduran programı fonksiyon ile yazdım ancak hocanın sorduğu soru karekökü bulmamızı istiyor.)


Yazdığım kodlar bunlar alan ve çevre çalışıyor.
LÜTFEN KAREKÖK İÇİNDE YARDIMCI OLUR MUSUNUZ? BU SORUYU ÇÖZMEM GEREKİYOR.

var
Form1: TForm1;



implementation


{$R *.dfm}
function alan(k,u:integer): Double;
begin
result := k*u ;
end ;

function cevre(h,x:integer): Double;
begin
result := (h+x)*2 ;
end ;

function karekök(y,z:extended) :Double;


begin

result:= sqrt(v);
end;


procedure TForm1.Button1Click(Sender: TObject);
begin
if radiobutton1.Checked=true then
begin
label1.Caption:= FloatToStr(alan(StrToInt(Edit1.Text),(StrToInt(Edit2.Text))));
end;
if radiobutton2.Checked=true then
begin
label1.Caption:= FloatToStr(cevre(StrToInt(Edit1.Text),(StrToInt(Edit2.Text))));
end;


if radiobutton3.Checked=true then
begin
label1.Caption:= FloatToStr(karekök(StrToInt(Edit1.Text),(StrToInt(Edit2.Text))));
end;
end;

[ertank]

Merhaba,

"Dikdörgen'in karekökü" ile ne demek istiyorsunuz?
- İki kenar toplamının karekökü?
- Alanının karekökü?
- Çevresinin karekökü?

Kullanmaya çalıştığınız SQRT fonksiyonu doğru. Bu fonksiyon tek değer parametre alır. Sizin Karekök fonksiyonunuzun iki adet parametresi var. Bunları tek değer haline getirmeniz gerekir. Ayrıca karekök fonksiyonu içinde V değişkeniniz tanımlı değil. Dolayısıyla paylaştığınız kod derleme hatası verir.

[edafdn]

Hocamızın sorduğu soru direkt bu şekildeydi iki kenar toplamının karekökü sanırım tam olarakta bi açıklama yoktu soruda başka türlü nasıl olur bilmiyorum.
Tek değer haline getirmelisiniz demişsiniz nasıl olacak yardımcı olur musunuz?

[ertank]

Eğer iki kenar toplamının karekökü ise sqrt fonksiyonu içinde gelen iki parametre toplamını kullanmalısınız.

[edafdn]

Rica etsem kod halinde yazabilir misiniz?

[ertank]

İlgili satırı aşağıdaki gibi değiştirmeyi deneyin

Kod: Tümünü seç

result:= sqrt(y+z);

[edafdn]

Çalışıyor teşekkürler