Alexandre,
ENTIER returns a LONGINT so you must do
y := SHORT(ENTIER(x));
-Doug
Alexandre Grouchine wrote:
> When I try to use ENTIER - it works normally only if I put in a real number by
> my own hands, for example: ENTIER(10.23). But when I write something like:
> ........
> VAR x:REAL; y:INTEGER;
> ........
> y:=ENTIER(x);
> ........
> it gives me a message about error: incompatible assignment.
> What is wrong?
>
> StdCoder.Decode ..,, ..HK....3Qw7uP5PRPPNR9Rbf9b8R79FTvMf1GomCrlAy2xhX,Cb2x
> hXhC6FU1xhiZiVBhihgmRiioedhgrZcZRiXFfaqmSrtuGfa4700zdGrr8rmCLLCJuyKtYcZRiX
> 7.2.s,649.0k,5TWyql.bnayKmKKqGomC5XzET1.PuP.MHT9N9ntumaU2,CJuyKtQC98P9PP7O
> NbXmb.2.og2k2EjG.,6.cUGpmWLuOpoKqvCbHZiYpedhA704TeKKw.bHfEWUmL.6.F6,6.C
> cIhgsNHT9N9ntQ8qorG4704D.CbB,708T1U.E78.T.Jc.2.,.h386.QC18RdfQHfMf9R9vQ7ON
> b17.,.j,,6.o16.M.6.1eQHPMNH2PP,U.Yr0.vN.E.6r1w.GODCU0Cy2hgqRcjhhhBgiZgZJin
> pZHZCh0E.4TWKKv.Uio8.,cw5.0..o.6.K,m.yzayIWKJaKIEqowGpmCLu8nRqk2aoa0pb8Je0
> mtGLmenSCJuGKayqnin4aEf4Id0GweHdKoUmoR0mwenYuIeKoXKIdin4ak4aEc8pbCoWGoe8pW
> 0GWyKJWmIin4aEVKoXaIb0m4ak2CLuGKLCIqKqk8rRqk2aktkdGLtaKrSKISmw0mS0mHamRqk2
> akwenSKIbGpYKIdWmM8HLCHO0nM4nIin4aUnV7pho3ZtBZvg,UAphvgV76SpNDXdARtAkRqk2A
> D.2jdQbBktkd.2jUgbUw2.IeZBgg3ZsBZv.6H.sI.a5.U7,.6HkWuIW0GWyqRqkWuIWgdtZ8c9
> Pc.POSdONEWyqRqE,5TeK45uPR9RZvPN9P9fQbf9bW1ZimZh2hgnRg.AyI,.ELCoruKu.GomCr
> l0U1VV,.Z1...bf9.EWE.8T0E.E8E.k2E.0..4E,5TeEdKLqKKtCLLC3ZORNX2V.AyI,ktuGdK
> LqKa2V.Iy1.,UfW5UXW.2.52.CLLC3b8Rn9P99F9vQ0ks,Uikwm46.Zz,,.,.60,UO,,U0mm.c
> 918R.Y62.7.,..Y22U,2.2.2YXK96.hvW3ELC71.1.,6.Ikmj,6..EBU.U,.JF2PP,U.2m,.,.
> E4WDN.Ntarm3Wj.JklbcjlqK4Qcj,.E7U...F.,.aU.EUiptMa3J.nT32kwHUvJo2kQyG.vT1.
> ..
> --- end of encoding ---
>
> ----
> Бесплатная почтовая служба http://mail.Rambler.ru/
> Тетя Ася? Rambler Ego! http://www.rambler.ru/odigo/download.html
> --------------------------------------------
>
> To unsubscribe from this mailing list, send a message containing the word "unsubscribe" to:
> blackbox-request{([at]})nowhere.xy>
> To get a list of valid e-mail commands and instructions on their usage, send a message containing the word "help" to the above address.
>
> Send any problem reports or questions related to this email list to the list owner at
> owner-blackbox{([at]})nowhere.xy--------------------------------------------
To unsubscribe from this mailing list, send a message containing the word "unsubscribe" to:
blackbox-request{([at]})nowhere.xy
To get a list of valid e-mail commands and instructions on their usage, send a message containing the word "help" to the above address.
Send any problem reports or questions related to this email list to the list owner at
owner-blackbox{([at]})nowhere.xy
Received on Wed May 23 2001 - 22:39:03 UTC