Soru =  işlemini çözen programı yapınız.
Şekli :
Kodlar :
Procedure TForm1.Button1Click(Sender: TObject);
var
a:real;
Procedure kok(x:real);
var
y:real;
begin
y:=exp((x+5)*ln(1/3))/(x+8);
showmessage(floattostr(y));
end;
begin
a:=strtofloat(inputbox('x','x değeri giriniz', ''));
kok(a)
end;
Çalışma Şekli :
 
Matematiksel işlem sonucu “X” e bağımlı değişen ve örnek olarak “X” değerini 4 girdiğimizde sonuç kısmını ekrana çıkartırır.
|
