🚀 go-pugleaf

RetroBBS NetNews Server

Inspired by RockSolid Light RIP Retro Guy

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

Re: binary decimals

#181
From: Michael Crone
Date: Sat, 01 Aug 1998 00:00
25 lines
2015 bytes
Ok, thanks for that..

I had a look at it, and since I'm quite new to pascal, it is a bit confusing
to me about how exactly this program works.. Can you make it a bit clearer for
me?

Ing. Franz Glaser wrote:

> Michael Crone wrote:
> >
> > 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..
> >
> > Thanks Michael
>
> Look for "ValRadix" in the numerics chapter of the
> TP-links site:
> http://www.geocities.com/SiliconValley/2926/tp.html
>
> Franz Glaser
>
Technical Details
Message-ID: <35C2FB74.48315230@it.net.au>
Path: arc1-ca.pugleaf.net!unknown!not-for-mail
References: <35C2D4AD.168E0440@it.net.au> <35C2E9B6.3BC47A39@eunet.at>

Show Full Headers
Complete Article Headers
X-Google-Language: ENGLISH,ASCII-7-bit
X-Google-Thread: 10261c,bb874037f97d6486
X-Google-Attributes: gid10261c,public
X-Google-Thread: 10c470,bb874037f97d6486
X-Google-Attributes: gid10c470,public
X-Google-Thread: 1006de,bb874037f97d6486
X-Google-Attributes: gid1006de,public
X-Google-Thread: 10a726,bb874037f97d6486
X-Google-Attributes: gid10a726,public
X-Google-Thread: fd1d1,bb874037f97d6486
X-Google-Attributes: gidfd1d1,public
X-Google-Thread: 110467,bb874037f97d6486
X-Google-Attributes: gid110467,public
X-Google-Thread: 10263e,bb874037f97d6486
X-Google-Attributes: gid10263e,public
X-Google-Thread: ff90a,bb874037f97d6486
X-Google-Attributes: gidff90a,public
From: Michael Crone <crone@it.net.au>
Subject: Re: binary decimals
Date: 1998/08/01
Message-ID: <35C2FB74.48315230@it.net.au>
X-Deja-AN: 376943788
Cache-Post-Path: beldin.it.net.au!unknown@bugsy.it.net.au
Content-Transfer-Encoding: 7bit
References: <35C2D4AD.168E0440@it.net.au> <35C2E9B6.3BC47A39@eunet.at>
X-Accept-Language: en
Content-Type: text/plain; charset=us-ascii
Organization: Informed Technology
Mime-Version: 1.0
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