معادل این تابع در دلفی چیست؟

[saeed_d]

سلام


function Round(x,a){
var tmp=x%a;
if(tmp<0)
tmp+=a;
return(tmp)
}

[soroush_vs]

تابع Round که دقیقا معادلش در دلفی موجود است.
بنابراین نام تابع رو چیز دیگه ای بزارید تا اگه جای دیگه ای از برنامه از اون تابع دلفی استفاده شده باشه دچار مشکل نشید
% هم که معادلش در دلفی mod است برای return هم که میتونید Result بزاری.
و همین طور temp:=temp+a

[Hamid_PaK]

function Round(x,a){
var tmp=x%a;
if(tmp<0)
tmp+=a;
return(tmp)
}

این چطوره ...



function RoundEx(x,a: Integer): Integer;
begin
Result := x div a;
Inc(Result, x mod a);
end

یا حق ...

[saeed_d]

سلام
راستش من فقط معادل % رو نمی دونستم و با این دو جواب متفاوت هم چیزی نفهمیدم. % معادل mod است یا div؟

[mehdi_mohamadi]

سلام
راستش من فقط معادل % رو نمی دونستم و با این دو جواب متفاوت هم چیزی نفهمیدم. % معادل mod است یا div؟

% معادل mod می باشد