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.1 required=5.0 tests=BAYES_00,FREEMAIL_FROM,
	PP_MIME_FAKE_ASCII_TEXT autolearn=no autolearn_force=no version=3.4.4
X-Google-Thread: 103376,bccad95d5436eaf8
X-Google-Attributes: gid103376,public
X-Google-Language: ENGLISH,ASCII
Path: 
 g2news1.google.com!news1.google.com!news.glorb.com!border1.nntp.dca.giganews.com!border2.nntp.dca.giganews.com!nntp.giganews.com!wns13feed!worldnet.att.net!attbi_s51.POSTED!53ab2750!not-for-mail
From: "Steve" <nospam_steved94@comcast.net>
Newsgroups: comp.lang.ada
References: <clqa5t$pif$1@netnews.hinet.net>
Subject: Re: Ada begginer's new problem.
X-Priority: 3
X-MSMail-Priority: Normal
X-Newsreader: Microsoft Outlook Express 6.00.2800.1437
X-MimeOLE: Produced By Microsoft MimeOLE V6.00.2800.1441
Message-ID: <ebigd.333206$D%.86619@attbi_s51>
NNTP-Posting-Host: 24.21.42.251
X-Complaints-To: abuse@comcast.net
X-Trace: attbi_s51 1099018058 24.21.42.251 (Fri, 29 Oct 2004 02:47:38 GMT)
NNTP-Posting-Date: Fri, 29 Oct 2004 02:47:38 GMT
Organization: Comcast Online
Date: Fri, 29 Oct 2004 02:47:38 GMT
Xref: g2news1.google.com comp.lang.ada:5813
Date: 2004-10-29T02:47:38+00:00
List-Id: <comp.lang.ada>

For this specific example, I would use:

    outer:
        loop
            execute_some_Statement_here0;
            exit when some_condition;
            execute_some_Statement_here1;
            inner:
                loop
                    execute_some_Statement_here3;
                    if some_condition_is_true then
                        execute_some_Statement_here5;
                        exit inner;
                    end if;
                    execute_some_Statement_here4;
              end loop inner;
        end loop outer;

BTW:  I also use that other language you're probably refering to, and I
almost never use continue or goto in that language either.

Steve
(The Duck)


"bubble" <bubble@bubble.d2g.com> wrote in message
news:clqa5t$pif$1@netnews.hinet.net...
>
> 1. ��continue�� reserve word support?
> Ada has no ��continue�� word.
>
>
>    outer:loop
>          execute_some_Statement_here0;
>       EXIT when some_condition;
>          execute_some_Statement_here1;
>       inner: loop
>          execute_some_Statement_here3;
>          IF some_condition_is_true THEN
>             goto outerContinueLabel;
>          END IF;
>          execute_some_Statement_here4;
>       end loop inner;
>          execute_some_Statement_here5;
>       <<outerContinueLabel>>
>          null;
>    end loop outer;
>
> It's hard to read,
> How should I do to remove "goto"  ....?
>
>
>
> 2. type declare problem
>
> I know there are some choices can apply to my program.
> ( a ). Type stock_price is new float;
> ( b ). Type stock_price is digits 5;
> ( c ). Subtype stock_price is float;
>
> I know if I use ( c ) style.  I can mix stock_price and float type to
> compute together.
>
> if we don't consider ( c ) style, only  consider (a) and (b).
> which style is best?
>
>
> 3. possible assign a IEEE754 NaN value to float type variable?
>
> I use gwindows.database package to access atabase. It is great and very
easy
> to use.
> Unfortunately, my database exits some null value in a table.
> Many other languages will assign a NaN value to variable if it is null
value
> and float type.
> Can I assign a NaN to float variable, like other languages?
>
>
>
>
>
>