Incompatible Types: 'Integer' and 'Extended' hatası..çözüldü

[comlekciler]

Selam arkadaşlar,

Bir fonksiyon yazdım ama sürekli "Incompatible Types: 'Integer' and 'Extended' hatası..." hatası veriyor. Ne yaptıysam olmuyor.

Fonksiyon doğru denklemini hesaplayıp sonucu gönderecek;

Kod: Tümünü seç

function ara_sinav_orta_uyelik_fonksiyonu_bolge2(araSinav, ortalamaSinavlar, enIyiNot:Integer):Integer;
var x,x1,x2,y,y1,y2,ortalamaSinav:Integer;
begin

 ortalamaSinav:=(enIyiNot + ortalamaSinavlar) / 2 ; //Hatayı Verdiği Satır

 x:=araSinav;
 x1:=ortalamaSinavlar;
 x2:=ortalamaSinav;
 y1:=1;
 y2:=0;

 y:=(((y2-y1) / (x2-x1)) * (x-x2))+ y2; //Hatayı Verdiği Satır

 Result:=y;
end;

Kullanım şekli ise;

Kod: Tümünü seç

Edit7.Text:=IntToStr(ara_sinav_orta_uyelik_fonksiyonu_bolge2(StrToInt(Edit1.Text),StrToInt(Edit3.Text),StrToInt(Edit4.Text)));

Her yerde INTEGER yapmama ragmen neden böyle bir hata veriyor.

Yardımlarınızı bekliyorum. Teşekkürler.

[undefined]

"/" operatörü reel sayı döndürür. Değişkenlerinizi buna göre ayarlayın.

[fduman]

/ yerine div kullanın.

[comlekciler]

@undefined teşekkürler, şimdi sorunu düzelttim.

Doğru fonksiyon;

Kod: Tümünü seç

function ara_sinav_orta_uyelik_fonksiyonu_bolge2(araSinav, ortalamaSinavlar, enIyiNot:Integer):Real;
var x,x1,y1,y2:Integer;
    y,x2,ortalamaSinav:Real;
begin

 ortalamaSinav:=(enIyiNot + ortalamaSinavlar) / 2 ;

 x:=araSinav;
 x1:=0;
 x2:=ortalamaSinavlar;
 y1:=1;
 y2:=0;

 y:=(((y2-y1) / (x2-x1)) * (x-x2))+ y2;

 Result:=y;
end;

@fduman sana teşekkür ederim ama bana virgülden sonraki asıl kısımlar gerekiyor.

Tekrar herkese teşekkürler.

Kolay gelsin.