Linguagem Ada

Linguagem de programação em ada

O nome Ada é uma homenagem a condessa de Lovelace que se chamava Augusta Ada Byron, filha de Lord Byron que trabalhava com Charles Babbage e ela é a primeira programadora de computadores.

Ada é uma linguagem de programação de alto nível e imperativa baseada em Pascal e criada através do departartamento de defesa (DoD).

Ela foi desenvolvida para ser mais do que apenas mais uma linguagem de programação, já que ela inclui muitos dos princípios modernos de engenharia de software. Por exemplo, o conceito de ocultação de informação foi inserido na linguagem ao invés de ser implementado como uma técnica de programação. 

Comando if-Exemplo

With text_IO; Use text_IO;

With Ada.Integer_Text_IO; Use Ada.Integer_Text_IO;

Procedure usando_if is

x, y : integer;

begin

New_Line(3);

Put("Digite o primeiro valor: ");

Get(x);

Put("Digite o segundo valor: ");

Get(y);

New_Line;

if x>y then

Put_Line("O Primeiro valor digitado e' maior!");

elsif x<y then

Put_Line("O Segundo valor digitado e' maior!");

else

Put_line("Os dois valores são iguais.");

end if;

New_Line(3);

end usando_if;

 Programa em Ada 

-- Ada version of 99 Bottles of Beer

with Ada.Text_IO;         use Ada.Text_IO;

with Ada.Integer_Text_IO; use Ada.Integer_Text_IO;

procedure Bottles is

     count : Integer := 99;

begin

     while count > 0 loop

          Put (count, Width=>0);  Put_Line (" bottles of beer on the wall,");

          Put (count, Width=>0);  Put_Line (" bottles of beer.");

          Put_Line ("Take one down and pass it around.");

          count := count - 1;

          if count = 0 then

               Put_Line("No bottles of beer on the wall!");

          else

               Put (count, Width=>0);  Put_Line (" bottles of beer on the wall.");

          end if;

          New_Line;

     end loop;

end Bottles;

                                          Tradução

- Ada versão de 99 garrafas de cerveja
com Ada.Text_IO; uso Ada.Text_IO;
com Ada.Integer_Text_IO; uso Ada.Integer_Text_IO;
Garrafas procedimento é
      Contagem: Integer: = 99;
começar
      enquanto a contagem> 0 loop
           Coloque (contagem, Largura => 0); Put_Line ("garrafas de cerveja no muro ",);
           Coloque (contagem, Largura => 0); Put_Line ("garrafas de cerveja.");
           Put_Line ("Tome uma e passá-lo por perto.");
           contagem: contagem = - 1;
           se a contagem = 0 então
                Put_Line ("Nada de garrafas de cerveja na parede!");
           mais
                Coloque (contagem, Largura => 0); Put_Line ("garrafas de cerveja na parede.");
           fim se;
           New_Line;
      loop fim;
Garrafas fim;