Re: Ada vs Delphi?

["Steve Doiel" <nospam_steved@pacifier.com>]

[snip]
>
> Getting back to my first example:
>
> <<<
>   for n1:= -128 to 127
>     for n2:= -128 to 127
>       begin
>         sum:= n1 + n2;
>         ...
>       end; {for}
> >>>
>
> how would you declare variables n1, n2, and sum in Ada?

In Ada you need not declare the loop variables.  If wish to you
can as I have done in the example below (a sample program which
does compile):

procedure ngdemo is

  type aByteRange is range -128..127;

  sum : Integer;

begin
  for n1 in aByteRange range -128 .. 127 loop
    for n2 in aByteRange range -128 .. 127 loop
      sum := Integer( n1 ) + Integer( n2 );
      -- If you try to compile using just
      --  sum := n1 + n2;
      -- you get a compile time error:
      --   expected type "Standard.integer"
      --   found type aByteRagne defined at line 3
    end loop;
  end loop;
end ngdemo;

In this example I have forced the indexes n1 and n2 to be
of a type that ranges from -128 to 127.  Clearly the intermediate
result for calculating sum would have to exceed this range, so
I cast both n1 and n2 to integer before performing the addition.

This is likely what is intended by the example.

But... I am making an assumption about casting the type of
n1 and n2 to Integer.  Ada does not make this assumption.  As
a matter of fact Ada makes no assumptions about how you wish
to operate or convert between types.  That is in my opinion one
of its advantages over Delphi.

SteveD