Kako utvrditi da li je broj tipa Double paran ili ne?

[ inostranac @ 10.04.2007. 21:26 ] @

Pitanje je vezano za pascal.
Program koristi samo cele brojeve ali mi treba jako veliki raspon vrednosti, sto izbacuje mod ili round iz upotrebe.
Hvala unapred.

[ savkic @ 11.04.2007. 01:26 ] @

> Kako utvrditi da li je broj tipa Double paran ili ne?
> Pitanje je vezano za pascal.

Pretvori broj u string i utvrdi da li je poslednja cifra parna ili neparna.

[ vlaiv @ 11.04.2007. 16:30 ] @

Citat:

savkic:
Pretvori broj u string i utvrdi da li je poslednja cifra parna ili neparna.

Ha, svaka cast, vrlo interesantan odgovor, ja se priznajem ne bi setio ...

Alternativa ...

Koristi neku implementaciju BigInteger ili nesto slicno za proizvoljno velike brojeve ...
ili je sam napisi - u tom slucaju prvi bit 1 - neparan, 0 - paran ...

[ Srki_82 @ 11.04.2007. 19:35 ] @

Bez pretvaranja u string bi verovatno islo brze

Code:
function OddDouble(V: Double): Boolean;
begin
Result := Odd(Trunc((Frac(V / 10) * 10)));
end;

Pisem iz glave pa mozda ima negde neku gresku, ali ti je jasan princip.

[ morlic @ 11.04.2007. 22:08 ] @

Imas i neke FPU instrukcije sa kojima mozes da uradis posao brzo, amo moras da ih potrazis jer nazalost ne mogu da se setim sta to bese, nesto mi se mota po glavi FPREM1, ali nisam siguran.