From: "Beard, Frank" <beardf@spawar.navy.mil>
To: "'comp.lang.ada@ada.eu.org'" <comp.lang.ada@ada.eu.org>
Subject: RE: Ada95 tutorials with sample code.
Date: Tue, 6 Mar 2001 18:51:01 -0500
Date: 2001-03-06T18:51:01-05:00 [thread overview]
Message-ID: <mailman.983922785.11957.comp.lang.ada@ada.eu.org> (raw)
Without caring or trying to figure out why,
to answer what I think your question is:
with Ada.Characters.Handling; use Ada.Characters.Handling;
procedure Xyz is
opt_is : character := ' ';
begin
opt_is := To_Upper(opt_is);
while opt_is /= 'V' and then opt_is /= 'A' loop
Put( opt_prompt );
NEW_LINE;
Ada.Text_IO.Put_Line( "Please enter either a 'V' or an 'A' );
Get( opt_is );
end loop;
end Xyz;
-----Original Message-----
From: mcdoobie [mailto:chainsaw.two.thousand@nospam.dot.home.dot.com]
Sent: Tuesday, March 06, 2001 5:39 PM
To: comp.lang.ada@ada.eu.org
Subject: Re: Ada95 tutorials with sample code.
I'm definitely gonna check it out, in addition to the www.mcondic.com
website mentioned in another post.
Now I have a quick question. I'm using a loop to test for the existence
of a certain variable, but I'm not quite sure how to go about it. Heres
what it looks like right now...
while opt_is not 'V' or 'A' loop
Put( opt_prompt );
NEW_LINE;
Ada.Text_IO.Put_Line( "Please enter either a 'V' or an 'A' );
Get( opt_is );
end loop;
Now, I'm not sure what I'm supposed to be doing at the start of the loop.
Any help woiuld be appreciated.
Thanks.
McDoobie
mcdoobie@hotmail.com
_______________________________________________
comp.lang.ada mailing list
comp.lang.ada@ada.eu.org
http://ada.eu.org/mailman/listinfo/comp.lang.ada
next reply other threads:[~2001-03-06 23:51 UTC|newest]
Thread overview: 32+ messages / expand[flat|nested] mbox.gz Atom feed top
2001-03-06 23:51 Beard, Frank [this message]
[not found] <Pine.LNX.4.10.10103071153320.971-100000@lexis.di.fct.unl.pt>
2001-03-07 13:12 ` Ada95 tutorials with sample code Erik Sigra
2001-03-07 18:07 ` Jean-Pierre Rosen
[not found] <01030621102401.00302@a77>
2001-03-07 12:09 ` Mario Amado Alves
-- strict thread matches above, loose matches on Subject: below --
2001-03-06 23:58 Beard, Frank
2001-03-05 20:40 mcdoobie
2001-03-05 20:58 ` Erik Sigra
2001-03-06 2:45 ` Jeffrey Carter
2001-03-06 7:12 ` Sven Nilsson
2001-03-06 8:09 ` tmoran
2001-03-06 10:38 ` David C. Hoos, Sr.
2001-03-06 10:38 ` David C. Hoos, Sr.
2001-03-06 15:06 ` Ted Dennison
2001-03-06 15:29 ` Robert A Duff
2001-03-06 16:54 ` Ted Dennison
2001-03-06 15:48 ` Ted Dennison
2001-03-06 18:19 ` Robert A Duff
2001-03-06 21:19 ` Ted Dennison
2001-03-08 6:13 ` Simon Wright
2001-03-10 16:30 ` Brian Rogoff
2001-03-06 18:20 ` Jean-Pierre Rosen
2001-03-06 20:10 ` Erik Sigra
2001-03-07 14:31 ` Simon Pilgrim
2001-03-06 21:47 ` Ted Dennison
2001-03-07 0:11 ` Robert C. Leif, Ph.D.
2001-03-07 6:44 ` Jeffrey Carter
2001-03-07 7:54 ` Sven Nilsson
2001-03-07 15:10 ` Marin David Condic
2001-03-08 0:05 ` Mark Lundquist
2001-03-06 15:03 ` Marin David Condic
2001-03-06 14:31 ` BSCrawford
2001-03-06 22:38 ` mcdoobie
replies disabled
This is a public inbox, see mirroring instructions
for how to clone and mirror all data and code used for this inbox