🚀 go-pugleaf

RetroBBS NetNews Server

Inspired by RockSolid Light RIP Retro Guy

Article View: comp.lang.pascal.misc
Article #184

Re: binary decimals

#184
From: Nik Synytskyy
Date: Wed, 05 Aug 1998 00:00
12 lines
1800 bytes
Michael Crone wrote in message <35C2D4AD.168E0440@it.net.au>...
>Hi,
>    I need to write a program which takes from the keyboard a binary
>floating point number.. eg: 111.0111 would be valid, but 111.23 wouldn't
>
>be.. Anyone know a good way to take this number (checking it is valid)
>and convert it to decimal..
>
To check if the input's valid, us READKEY (from CRT unit) to read the input
character by character, and then discard everything but "1", "0", ".", "-".
The "convert to decimal" part is already described very well by Mr. Glaser
Technical Details
Message-ID: <Xw3y1.1930$lg2.16677724@news.magma.ca>
Path: arc1-ca.pugleaf.net!unknown!not-for-mail
References: <35C2D4AD.168E0440@it.net.au>

Show Full Headers
Complete Article Headers
X-Google-Language: ENGLISH,ASCII-7-bit
X-Google-Thread: 110467,bb874037f97d6486
X-Google-Attributes: gid110467,public
X-Google-Thread: fd1d1,bb874037f97d6486
X-Google-Attributes: gidfd1d1,public
X-Google-Thread: ff90a,bb874037f97d6486
X-Google-Attributes: gidff90a,public
X-Google-Thread: 10a726,bb874037f97d6486
X-Google-Attributes: gid10a726,public
X-Google-Thread: 10261c,bb874037f97d6486
X-Google-Attributes: gid10261c,public
X-Google-Thread: 10263e,bb874037f97d6486
X-Google-Attributes: gid10263e,public
X-Google-Thread: 10c470,bb874037f97d6486
X-Google-Attributes: gid10c470,public
X-Google-Thread: 1006de,bb874037f97d6486
X-Google-Attributes: gid1006de,public
From: "Nik Synytskyy" <nikita@NOSPAMmondenet.com>
Subject: Re: binary decimals
Date: 1998/08/05
Message-ID: <Xw3y1.1930$lg2.16677724@news.magma.ca>
X-Deja-AN: 378291926
References: <35C2D4AD.168E0440@it.net.au>
X-MimeOLE: Produced By Microsoft MimeOLE V4.71.1712.3
Organization: Magma Communications Ltd.
NNTP-Posting-Date: Wed, 05 Aug 1998 16:46:47 EDT
Newsgroups: comp.lang.pascal.misc,de.comp.lang.pascal,de.comp.lang.pascal.misc,fido.ger.pascal,fj.lang.pascal,fr.comp.lang.pascal,it.comp.lang.pascal,maus.lang.tpascal,relcom.comp.lang.pascal