From mboxrd@z Thu Jan  1 00:00:00 1970
X-Spam-Checker-Version: SpamAssassin 3.4.4 (2020-01-24) on polar.synack.me
X-Spam-Level: 
X-Spam-Status: No, score=-1.9 required=5.0 tests=BAYES_00 autolearn=ham
	autolearn_force=no version=3.4.4
X-Google-Thread: 103376,587e0e0a16d65b10
X-Google-Attributes: gid103376,domainid0,public,usenet
X-Google-Language: ENGLISH,ASCII-7-bit
Path: 
 g2news2.google.com!postnews.google.com!v38g2000yqb.googlegroups.com!not-for-mail
From: Adam Beneschan <adam@irvine.com>
Newsgroups: comp.lang.ada
Subject: Re: Invade wikipedia!
Date: Tue, 24 Feb 2009 16:52:44 -0800 (PST)
Organization: http://groups.google.com
Message-ID: 
 <bac8d115-5020-47dd-b50c-3b5b7a0a42a3@v38g2000yqb.googlegroups.com>
References: <l6k0og.o0o.ln@hunter.axlog.fr>
 <1tw8gryqdolal$.1osqedj9x821c.dlg@40tude.net>
	<5c44eaae-631d-46d2-8384-86af79d5e048@n20g2000vba.googlegroups.com>
	<944a1924-0fa7-487f-a94d-084a2be1b231@v31g2000vbb.googlegroups.com>
	<WCZol.586329$yE1.342435@attbi_s21>
 <b26ae712-a4e9-49d1-9869-aa29626fb5e5@t13g2000yqc.googlegroups.com>
	<9f2553d3-66f5-4708-a237-bfef1d8404f4@v42g2000yqj.googlegroups.com>
	<C5CA3442.10CF05%yaldnif.w@blueyonder.co.uk>
 <9c729d86-763b-446e-9ba0-3bd682ba23fa@u38g2000yqe.googlegroups.com>
NNTP-Posting-Host: 66.126.103.122
Mime-Version: 1.0
Content-Type: text/plain; charset=ISO-8859-1
Content-Transfer-Encoding: 7bit
X-Trace: posting.google.com 1235523164 15280 127.0.0.1 (25 Feb 2009 00:52:44
 GMT)
X-Complaints-To: groups-abuse@google.com
NNTP-Posting-Date: Wed, 25 Feb 2009 00:52:44 +0000 (UTC)
Complaints-To: groups-abuse@google.com
Injection-Info: v38g2000yqb.googlegroups.com; posting-host=66.126.103.122;
	posting-account=duW0ogkAAABjRdnxgLGXDfna0Gc6XqmQ
User-Agent: G2/1.0
X-HTTP-UserAgent: Mozilla/5.0 (X11; U; Linux x86_64; en-US; rv:1.7.12)
	Gecko/20050922 Fedora/1.7.12-1.3.1,gzip(gfe),gzip(gfe)
Xref: g2news2.google.com comp.lang.ada:4759
Date: 2009-02-24T16:52:44-08:00
List-Id: <comp.lang.ada>

On Feb 24, 4:08 pm, Martin <martin.do...@btopenworld.com> wrote:
> On Feb 24, 11:33 pm, "(see below)" <yaldni...@blueyonder.co.uk> wrote:
>
>
>
> > On 24/02/2009 23:28, in article
> > 9f2553d3-66f5-4708-a237-bfef1d840...@v42g2000yqj.googlegroups.com, "Martin"
>
> > <martin.do...@btopenworld.com> wrote:
> > > Sorry my made up example doesn't cut mustard! Does this make it any
> > > clearer? :-)
>
> > > ------------------------
> > > -- Calculate_Velocity --
> > > ------------------------
>
> > > procedure Calculate_Velocity
> > >              (Speed    :     Meters_Per_Second;
> > >               Time     :     Seconds;
> > >               Velocity : out Meters_Per_Second_Per_Second);
>
> > Nope!
> > The reason why is left as an exercise for the student. 8-)
>
> Hmmm, the tautology? I'm using C too much these days...

Nope, that wasn't it.  Actually, I think Calculate_Velocity would look
a bit better and make things a bit clearer for the reader at the point
of the call---assuming the name wasn't a lie and that the velocity was
what it was actually computing...  :)

                               -- Adam


> ---------------
> -- Calculate --
> ---------------
>
> procedure Calculate (Speed    :     Meters_Per_Second;
>                      Time     :     Seconds;
>                      Velocity : out Meters_Per_Second_Per_Second);