Re: [BLACKBOX] Type transfer

From: Rene A. Krywult <"Rene>
Date: Fri, 14 Oct 2011 15:09:44 +0200

----boundary-LibPST-iamunique-797241922_-_-
Content-type: text/plain

r:=n;
r:=r*r;
And if you fear overflow, you should ASSERT against it, I believe.

Rene
-------- Original-Nachricht --------
> Datum: Fri, 14 Oct 2011 13:26:18 +0100
> Von: Robert <robert.campbell_{([at]})nowhere.xy
> An: BLACKBOX{([at]})nowhere.xy
> Betreff: Re: [BLACKBOX] Type transfer

> Yes, but ....
>
> What I want to do is
>
> r := n * n
>
> and if I don't convert before the assignment I risk overflow.
>
> Cheers
>
> Robert
>
>
> On 14/10/2011 12:30 PM, Rene A. Krywult wrote:
> > MODULE PrivConv;
> > VAR r:REAL; n:INTEGER;
> > BEGIN
> > n:=5;
> > r:=n;
> > END PrivConv.
> >
> > -------- Original-Nachricht --------
> >> Datum: Fri, 14 Oct 2011 12:23:29 +0100
> >> Von: "Campbell, Robert (SELEX GALILEO,
> UK)"<robert.d.campbell{([at]})nowhere.xy
> >> An: BLACKBOX{([at]})nowhere.xy
> >> Betreff: [BLACKBOX] Type transfer
> >> My mind has suddenly gone blank!
> >>
> >>
> >> What is the easiest way of converting an INTEGER (say n) to a REAL?
> >>
> >> The expression "(n + 0.)" just seems a bit unnatural.
> >>
> >>
> >> Cheers
> >>
> >> Robert
> >> SELEX Galileo Ltd
> >> Registered Office: Sigma House, Christopher Martin Road, Basildon,
> Essex
> >> SS14 3EL
> >> A company registered in England& Wales. Company no. 02426132
> >> ********************************************************************
> >> This email and any attachments are confidential to the intended
> >> recipient and may also be privileged. If you are not the intended
> >> recipient please delete it from your system and notify the sender.
> >> You should not copy it or use it for any purpose nor disclose or
> >> distribute its contents to any other person.
> >> ********************************************************************
> >>
> >>
> >> ----
> >> To unsubscribe, send a message with body "SIGNOFF BLACKBOX" to
> >> LISTSERV{([at]})nowhere.xy
>
>
> ----
> To unsubscribe, send a message with body "SIGNOFF BLACKBOX" to
> LISTSERV{([at]})nowhere.xy

-- 
NEU: FreePhone - 0ct/min Handyspartarif mit Geld-zurück-Garantie!		
Jetzt informieren: http://www.gmx.net/de/go/freephone
----
To unsubscribe, send a message with body "SIGNOFF BLACKBOX" to LISTSERV{([at]})nowhere.xy----boundary-LibPST-iamunique-797241922_-_-
Content-type: application/rtf
Content-transfer-encoding: base64
Content-Disposition: attachment; filename="rtf-body.rtf"
e1xydGYxXGFuc2lcYW5zaWNwZzEyNTJcZnJvbXRleHQgXGRlZmYwe1xmb250dGJsDQp7XGYwXGZz
d2lzc1xmY2hhcnNldDAgQXJpYWw7fQ0Ke1xmMVxmbW9kZXJuIENvdXJpZXIgTmV3O30NCntcZjJc
Zm5pbFxmY2hhcnNldDIgU3ltYm9sO30NCntcZjNcZm1vZGVyblxmY2hhcnNldDAgQ291cmllciBO
ZXc7fX0NCntcY29sb3J0YmxccmVkMFxncmVlbjBcYmx1ZTA7XHJlZDBcZ3JlZW4wXGJsdWUyNTU7
fQ0KXHVjMVxwYXJkXHBsYWluXGRlZnRhYjM2MCBcZjBcZnMyMCByOj1uO1xwYXINCnI6PXIqcjtc
cGFyDQpBbmQgaWYgeW91IGZlYXIgb3ZlcmZsb3csIHlvdSBzaG91bGQgQVNTRVJUIGFnYWluc3Qg
aXQsIEkgYmVsaWV2ZS5ccGFyDQpccGFyDQpSZW5lXHBhcg0KLS0tLS0tLS0gT3JpZ2luYWwtTmFj
aHJpY2h0IC0tLS0tLS0tXHBhcg0KPiBEYXR1bTogRnJpLCAxNCBPY3QgMjAxMSAxMzoyNjoxOCAr
MDEwMFxwYXINCj4gVm9uOiBSb2JlcnQgPHJvYmVydC5jYW1wYmVsbF9AVElTQ0FMSS5DTy5VSz5c
cGFyDQo+IEFuOiBCTEFDS0JPWEBMSVNUUy5PQkVST04uQ0hccGFyDQo+IEJldHJlZmY6IFJlOiBb
QkxBQ0tCT1hdIFR5cGUgdHJhbnNmZXJccGFyDQpccGFyDQo+IFllcywgYnV0IC4uLi5ccGFyDQo+
IFxwYXINCj4gV2hhdCBJIHdhbnQgdG8gZG8gaXNccGFyDQo+IFxwYXINCj4gICAgciAgOj0gIG4g
KiBuXHBhcg0KPiBccGFyDQo+IGFuZCBpZiBJIGRvbid0IGNvbnZlcnQgYmVmb3JlIHRoZSBhc3Np
Z25tZW50IEkgcmlzayBvdmVyZmxvdy5ccGFyDQo+IFxwYXINCj4gQ2hlZXJzXHBhcg0KPiBccGFy
DQo+IFJvYmVydFxwYXINCj4gXHBhcg0KPiBccGFyDQo+IE9uIDE0LzEwLzIwMTEgMTI6MzAgUE0s
IFJlbmUgQS4gS3J5d3VsdCB3cm90ZTpccGFyDQo+ID4gTU9EVUxFIFByaXZDb252O1xwYXINCj4g
PiBWQVIgcjpSRUFMOyBuOklOVEVHRVI7XHBhcg0KPiA+IEJFR0lOXHBhcg0KPiA+IFx0YWIgbjo9
NTtccGFyDQo+ID4gXHRhYiByOj1uO1xwYXINCj4gPiBFTkQgUHJpdkNvbnYuXHBhcg0KPiA+XHBh
cg0KPiA+IC0tLS0tLS0tIE9yaWdpbmFsLU5hY2hyaWNodCAtLS0tLS0tLVxwYXINCj4gPj4gRGF0
dW06IEZyaSwgMTQgT2N0IDIwMTEgMTI6MjM6MjkgKzAxMDBccGFyDQo+ID4+IFZvbjogIkNhbXBi
ZWxsLCBSb2JlcnQgKFNFTEVYIEdBTElMRU8sXHBhcg0KPiBVSykiPHJvYmVydC5kLmNhbXBiZWxs
QFNFTEVYR0FMSUxFTy5DT00+XHBhcg0KPiA+PiBBbjogQkxBQ0tCT1hATElTVFMuT0JFUk9OLkNI
XHBhcg0KPiA+PiBCZXRyZWZmOiBbQkxBQ0tCT1hdIFR5cGUgdHJhbnNmZXJccGFyDQo+ID4+IE15
IG1pbmQgaGFzIHN1ZGRlbmx5IGdvbmUgYmxhbmshXHBhcg0KPiA+PlxwYXINCj4gPj5ccGFyDQo+
ID4+IFdoYXQgaXMgdGhlIGVhc2llc3Qgd2F5IG9mIGNvbnZlcnRpbmcgYW4gSU5URUdFUiAoc2F5
IG4pIHRvIGEgUkVBTD9ccGFyDQo+ID4+XHBhcg0KPiA+PiBUaGUgZXhwcmVzc2lvbiAiKG4gKyAw
LikiIGp1c3Qgc2VlbXMgYSBiaXQgdW5uYXR1cmFsLlxwYXINCj4gPj5ccGFyDQo+ID4+XHBhcg0K
PiA+PiBDaGVlcnNccGFyDQo+ID4+XHBhcg0KPiA+PiBSb2JlcnRccGFyDQo+ID4+IFNFTEVYIEdh
bGlsZW8gTHRkXHBhcg0KPiA+PiBSZWdpc3RlcmVkIE9mZmljZTogU2lnbWEgSG91c2UsIENocmlz
dG9waGVyIE1hcnRpbiBSb2FkLCBCYXNpbGRvbixccGFyDQo+IEVzc2V4XHBhcg0KPiA+PiBTUzE0
IDNFTFxwYXINCj4gPj4gQSBjb21wYW55IHJlZ2lzdGVyZWQgaW4gRW5nbGFuZCYgIFdhbGVzLiAg
Q29tcGFueSBuby4gMDI0MjYxMzJccGFyDQo+ID4+ICoqKioqKioqKioqKioqKioqKioqKioqKioq
KioqKioqKioqKioqKioqKioqKioqKioqKioqKioqKioqKioqKioqKioqXHBhcg0KPiA+PiBUaGlz
IGVtYWlsIGFuZCBhbnkgYXR0YWNobWVudHMgYXJlIGNvbmZpZGVudGlhbCB0byB0aGUgaW50ZW5k
ZWRccGFyDQo+ID4+IHJlY2lwaWVudCBhbmQgbWF5IGFsc28gYmUgcHJpdmlsZWdlZC4gSWYgeW91
IGFyZSBub3QgdGhlIGludGVuZGVkXHBhcg0KPiA+PiByZWNpcGllbnQgcGxlYXNlIGRlbGV0ZSBp
dCBmcm9tIHlvdXIgc3lzdGVtIGFuZCBub3RpZnkgdGhlIHNlbmRlci5ccGFyDQo+ID4+IFlvdSBz
aG91bGQgbm90IGNvcHkgaXQgb3IgdXNlIGl0IGZvciBhbnkgcHVycG9zZSBub3IgZGlzY2xvc2Ug
b3JccGFyDQo+ID4+IGRpc3RyaWJ1dGUgaXRzIGNvbnRlbnRzIHRvIGFueSBvdGhlciBwZXJzb24u
XHBhcg0KPiA+PiAqKioqKioqKioqKioqKioqKioqKioqKioqKioqKioqKioqKioqKioqKioqKioq
KioqKioqKioqKioqKioqKioqKioqKlxwYXINCj4gPj5ccGFyDQo+ID4+XHBhcg0KPiA+PiAtLS0t
XHBhcg0KPiA+PiBUbyB1bnN1YnNjcmliZSwgc2VuZCBhIG1lc3NhZ2Ugd2l0aCBib2R5ICJTSUdO
T0ZGIEJMQUNLQk9YIiB0b1xwYXINCj4gPj4gTElTVFNFUlZATElTVFMuT0JFUk9OLkNIXHBhcg0K
PiBccGFyDQo+IFxwYXINCj4gLS0tLVxwYXINCj4gVG8gdW5zdWJzY3JpYmUsIHNlbmQgYSBtZXNz
YWdlIHdpdGggYm9keSAiU0lHTk9GRiBCTEFDS0JPWCIgdG9ccGFyDQo+IExJU1RTRVJWQExJU1RT
Lk9CRVJPTi5DSFxwYXINClxwYXINCi0tIFxwYXINCk5FVTogRnJlZVBob25lIC0gMGN0L21pbiBI
YW5keXNwYXJ0YXJpZiBtaXQgR2VsZC16dXJcJ2ZjY2stR2FyYW50aWUhXHRhYiBcdGFiIFxwYXIN
CkpldHp0IGluZm9ybWllcmVuOiBodHRwOi8vd3d3LmdteC5uZXQvZGUvZ28vZnJlZXBob25lXHBh
cg0KXHBhcg0KXHBhcg0KLS0tLVxwYXINClRvIHVuc3Vic2NyaWJlLCBzZW5kIGEgbWVzc2FnZSB3
aXRoIGJvZHkgIlNJR05PRkYgQkxBQ0tCT1giIHRvIExJU1RTRVJWQExJU1RTLk99fQAFQHcDYA6w
OibWgSc=
----boundary-LibPST-iamunique-797241922_-_---

Received on Fri Oct 14 2011 - 15:09:44 UTC