fonksiyon tanımlama

[ali]

matematiksel bir işlemi cözdürmek istiyorumbir fonsiyonu nasıl tanımlarım örneğin: x tek sayı ise f=(x+1/2) , x cift sayı ise f=(x+3/2) gibi bir fonksiyonu delphide nasıl tanımlayacağım

[vkamadan]

Merhaba ,

Kod: Tümünü seç

function f (x:integer):Real;
begin
  if x mod 2 = 0 then
  f:=(x+3)/2 else
  f:=(x+1)/2;      
end;

kolay gelsin.