Grrrrrrrrrrrrrrrrrr! Egy huszonéves 16 bites turbót át kellett fordítanom 32 bites free-re, mert a win7/64 nem támogatja a 16 bites progi futtatását. Fél napot szenvedtem vele, mert az ígéretek ellenére mégsem kompatibilis. Ezzel szívtam ma:
Kód:
var x,y:word; begin x:=1; y:=0; for x:=y downto 1 do; if x=0 then writeln('FreePascal 2.6.2'); if x=1 then writeln('Turbo Pascal 7.01'); readln; end.
Bocsi, hogy nem volt egyértelmű, hogy mit szeretnék...
Azért kitaláltad, hogy mi a gondom és bár a végső megoldás nekem a trunc volt, ott találtam meg, ahol a roundot kerestem. Szóval nagyon köszönöm!
Jelenlévő fórumozók: nincs regisztrált felhasználó valamint 8 vendég
Nem nyithatsz témákat ebben a fórumban. Nem válaszolhatsz egy témára ebben a fórumban. Nem szerkesztheted a hozzászólásaidat ebben a fórumban. Nem törölheted a hozzászólásaidat ebben a fórumban.
