Soru = Verilen bir sayının mutlak değerini hesaplayan programı fonksiyonda yapınız.
Şekli :
Kodlar :
Function mutlak(x:real):real;
begin
if x<0 then
mutlak:=x*(-1)
else
mutlak:=x;
end;
Procedure TForm1.Button1Click(Sender: TObject);
var
sayi:real;
begin
sayi:=0;
sayi:=strtofloat(Edit1.text);
showmessage(floattostr(Mutlak(sayi)));
end;
Çalışma Şekli :
 
Bir sayı girildikten sonra butona tıklanır ve ekrana sayının mutlak değerine çevrilmiş şekilde bildirir.
|
