From: lutz@iks-jena.de (Lutz Donnerhacke)
Subject: Re: if X in 1..35000 versus Boolean
Date: Tue, 16 Jul 2002 11:13:26 +0000 (UTC)
Date: 2002-07-16T11:13:26+00:00 [thread overview]
Message-ID: <slrnaj7vuj.oq.lutz@taranis.iks-jena.de> (raw)
In-Reply-To: pan.2002.07.16.12.08.32.802779.1467@gmx.net
* Jan Prazak wrote:
>On Tue, 16 Jul 2002 07:18:54 -0100, Keith Thompson wrote:
>> I think you're thinking of Pascal sets, not enumeration types. Ada
>> doesn't have built-in set types, though they're easy enough to
>> implement.
>>
>> If I recall correctly (it's been a while), in Pascal you can write
>> something like:
>>
>> if X in [1 .. 4] then (* This is Pascal, not Ada *) begin
>> ...;
>> end;
>>
><snip>
>
>Yes! That's exactly what I meant, but I gave it only another name.
>Then I haven't misunderstood something, it just doesn't exist in Ada.
with Ada.Text_IO;
use Ada.Text_IO;
procedure t is
type Offset is range 0 .. 20;
package NIO is new Ada.Text_IO.Integer_IO (Offset);
use NIO;
x : Offset;
testfeld : array (Offset) of Boolean :=
(1..4 => True, others => False);
begin
Put ("Enter a number: ");
Get (x);
if testfeld (x) then
Put_Line ("True");
else
Put_Line ("False");
end if;
end t;
next prev parent reply other threads:[~2002-07-16 11:13 UTC|newest]
Thread overview: 37+ messages / expand[flat|nested] mbox.gz Atom feed top
2002-07-13 19:10 if X in 1..35000 versus Boolean Jan Prazak
2002-07-13 16:27 ` Frank J. Lhota
2002-07-13 20:36 ` Jan Prazak
2002-07-13 18:05 ` Jeffrey Carter
2002-07-14 15:02 ` Jan Prazak
2002-07-13 22:10 ` Robert Dewar
2002-07-14 21:16 ` Jan Prazak
2002-07-14 20:47 ` Frank J. Lhota
2002-07-15 1:21 ` Jeffrey Carter
2002-07-16 8:18 ` Keith Thompson
2002-07-16 13:54 ` Jan Prazak
2002-07-16 11:13 ` Lutz Donnerhacke [this message]
2002-07-17 19:04 ` Jan Prazak
2002-07-17 20:00 ` Georg Bauhaus
2002-07-18 8:11 ` Lutz Donnerhacke
2002-07-18 14:39 ` Georg Bauhaus
2002-07-20 0:37 ` Robert Dewar
2002-07-16 20:25 ` Georg Bauhaus
2002-07-17 19:29 ` Jan Prazak
2002-07-16 19:24 ` Gautier
2002-07-17 19:04 ` Jan Prazak
2002-07-13 16:32 ` David C. Hoos, Sr.
2002-07-13 20:36 ` Jan Prazak
2002-07-13 18:02 ` David C. Hoos, Sr.
2002-07-13 18:17 ` sk
2002-07-13 20:02 ` Jeffrey Creem
[not found] ` <3D306ED5.33E80E09@myob.com>
2002-07-13 18:52 ` David C. Hoos, Sr.
[not found] ` <020a01c22a9f$2b50d6c0$6400000a@dhoos>
2002-07-13 19:02 ` sk
2002-07-14 15:02 ` Jan Prazak
2002-07-14 19:25 ` Darren New
2002-07-15 15:22 ` Steffen Huber
2002-07-13 16:44 ` Christopher Browne
2002-07-13 22:09 ` Robert Dewar
2002-07-13 17:17 ` tmoran
2002-07-13 19:44 ` Florian Weimer
-- strict thread matches above, loose matches on Subject: below --
2002-07-14 20:22 Gautier direct_replies_not_read
2002-07-15 11:36 ` Jan Prazak
replies disabled
This is a public inbox, see mirroring instructions
for how to clone and mirror all data and code used for this inbox