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,FREEMAIL_FROM autolearn=unavailable autolearn_force=no version=3.4.4 X-Received: by 10.50.6.36 with SMTP id x4mr34567660igx.8.1417273509450; Sat, 29 Nov 2014 07:05:09 -0800 (PST) X-Received: by 10.140.48.69 with SMTP id n63mr2753qga.21.1417273509414; Sat, 29 Nov 2014 07:05:09 -0800 (PST) Path: eternal-september.org!reader01.eternal-september.org!reader02.eternal-september.org!news.eternal-september.org!mx02.eternal-september.org!feeder.eternal-september.org!news.glorb.com!h15no2315838igd.0!news-out.google.com!m4ni576qag.1!nntp.google.com!w8no3388330qac.0!postnews.google.com!glegroupsg2000goo.googlegroups.com!not-for-mail Newsgroups: comp.lang.ada Date: Sat, 29 Nov 2014 07:05:09 -0800 (PST) In-Reply-To: Complaints-To: groups-abuse@google.com Injection-Info: glegroupsg2000goo.googlegroups.com; posting-host=86.176.91.16; posting-account=pmkN8QoAAAAtIhXRUfydb0SCISnwaeyg NNTP-Posting-Host: 86.176.91.16 References: User-Agent: G2/1.0 MIME-Version: 1.0 Message-ID: <0a70a8a3-45fc-440b-999b-f9cfbc6ac7f9@googlegroups.com> Subject: Re: Help with an errant 'IF' statement please. From: Austin Obyrne Injection-Date: Sat, 29 Nov 2014 15:05:09 +0000 Content-Type: text/plain; charset=ISO-8859-1 Content-Transfer-Encoding: quoted-printable Xref: news.eternal-september.org comp.lang.ada:23782 Date: 2014-11-29T07:05:09-08:00 List-Id: On Saturday, November 29, 2014 2:03:26 PM UTC, gautier...@hotmail.com wrote= : > Le samedi 29 novembre 2014 14:28:40 UTC+1, Austin Obyrne a =E9crit=A0: >=20 > > This is an IF statement that just won't work and the same has happened = in the past on other occasions in this very same program alone while workin= g ok in other parts of the same program further on as well as being ok in o= ther loops.=20 >=20 > Since Total doesn't change during the loop, the condition is either alway= s True or always False. The IF works as always, but perhaps not in the way = you expect... I guess you copy-pasted the IF statement from elsewhere, but = then you should have "Line_Number" instead of "Total" to have a stop every = 12 output lines. > _________________________=20 > Gautier's Ada programming=20 > http://gautiersblog.blogspot.com/search/label/Ada=20 > NB: follow the above link for a valid e-mail address I beg your pardon. Total should not be there - it remained from my last experiment. This is what I should have posted :- Start here|: Line_Number : Integer; =20 Sentinel : CONSTANT Character:=3D '~'; Line_Number:=3D 0; =20 LOOP EXIT WHEN NextChar =3D Sentinel; =20 Line_Number:=3D Line_Number+1; Ada.Text_IO.New_Line(1); Ada.Text_IO.Put(Item =3D> " - Character number "= ); Ada.Integer_Text_IO.Put(Item =3D> Line_Number, Width =3D> 1); Ada.Text_IO.New_Line(1); =20 =20 IF Line_Number REM 12 =3D 0 THEN Ada.Text_IO.New_Line(1); Ada.Text_IO.Put(Item =3D> " "); Ada.Text_IO.Put(Item =3D> " # - press any key/return to continue > ")= ; Ada.Text_IO.Get(Item =3D> View); END IF; Ada.Text_IO.New_Line; Ada.Text_IO.Put(Item =3D> " --------------------------------------------= --------------------"); END LOOP; Sorry for confusing matters, please continue if you will - Austin