liguagem ADA
Autor: toinho  noticia | Publicado: 2011-04-27T12:15:00-07:00



 <!--
  @page { margin: 2cm }
  P { margin-bottom: 0.21cm }
  PRE.cjk { font-family: "DejaVu Sans", monospace }
  H3 { margin-bottom: 0.21cm }
  H3.ctl { font-family: "Lohit Hindi" }
 -->
 
  
Linguagem ADA
ADA é uma Linguagem de programação estruturada, de tipo estática, é uma linguagem orientada a objetos e é uma linguagem de nivel alto, originada de PASCAL e outras linguagens. Foi originalmente produzida por uma equipe liderada por Jean Ichbiah da CII Honeywell Bull, contratados pelo departamento de defesa dos EUA durante a década de 70, com o intuito de substituir as centenas de linguagem de programação usadas pelo DOD. Ada é uma aplicação com compiladores validados para uso confiável em missões criticas, tais como softwares de aviação. Normatizada internacionalmente pela ISO, sua versão mais atual é de 2005.O nome Ada vem de Ada lovelace, considerada a primeira mulher programadora da história da computaçao.

E tentando realizar um sonho de uma linguagem universal, reunindo vários personagens desde a sua gestação até a sua publicação, após diversas propostas de desenvolvimento, várias revisões de especificações, em 1982, em homenagem a Condessa ada lovelace, que pode ser considerada a dama dos computadores pela sua contribuição a computação, surgiu Ada®, uma linguagem de programação patrocinada pelo Departamento de Defesa dos EUA, que teve uma base de COBOL e BASIC e que anos mais tarde serviria de base para o RUBY.Como veremos programar em  Ada® é muito legal,no início pode parecer difícil mas com o tempo você verá que é bem mais fácil do que pensa.Vejamos agora como é a programação em ADA:A estrutura básica  --Declaracoes de bibliotecas
Procedure nome_do_programa is
--Declaracoes de variaveis
begin
--Corpo do programa com as instrucoes e calculos
end nome_do_programa;como vemos essa é a estrututr básica de um progama ADA.veremos agora um programa simples,ele  serve para escrever “Olá mundo”.VEJA A SEGUIR:
--Programa Alo Mundo
 
With Ada.Text_IO; Use Ada.Text_IO;
 
Procedure AloMundo is
 
begin
        Put("Programando em Ada!");
        New_Line;
        Put_Line("Exemplo do Alo Mundo!!");
end AloMundo;PERCEBEMOS QUE NO PROGRAMA FAZ-SE A USO DE PUT_LINE,ELE SERVE PARA IMPRIMIR(ESCREVER)O QUE ESTÁ DENTRO DE ASPAS E parênteses E VAI PARA A PRÓXIMA LINHA.Obs:se você não quiser usar “Use Ada.Text_IO;”você pode usar Ada.Text_IO.Put_Line("Programando em Ada!").VARIÁVEISVARIÁVEIS SÃO ESPAÇOS RESERVADOS PARA SE ATRIBUIR(GUARDAR)VALORES.EM ADA PODE SE USAR VARIÁVEIS,VEJA COMO SE FAZ A DECLARAÇÃO:  variável : tipo de variável;OBS:AS VARIAVEIS DEVEM SER DECLARADAS ENTRE O PROCEDIMENTO e O BEGIN.NA PROGRAMAÇÃO DE Ada tem-se dois comandos básicos de entrada e saída que são o  get e o put.Esses comandos estão dentro da biblioteca Text_IO. Vamos ver um exemplo prático:With text_IO; Use text_IO;
With Ada.Integer_Text_IO; Use Ada.Integer_Text_IO;
Procedure uso_variaveis is
        n: natural;
        idade : integer;
        nome: string(1..100);
begin
        New_Line(3);
        Put("Digite o seu nome. (Ate 100 caracteres): ");
        Get_Line(nome,n);
        New_Line;
        Put("Digite sua idade: ");
        Get(idade);
        New_Line;
        Put_Line("Voce disse que: ");
        Put("  * Seu nome e': ");
        Put_Line(nome(1..n));
        Put("  * Sua idade e': ");
        Put(idade);
        Put(" anos.");
        New_Line(4);
end uso_variaveis;
percebemos neste programa o uso de variáveis,nelas são atribuídos valores,que depois passam a ser chamados no programa usando-se as variáveis,ou seja são chamados pelo nome da variável em que estão.

If(se) e else(senão)Para o uso de condições, a estrutura básica é esta:if condicao then  
        sequencia de comandos (executada se a condição é verdadeira)  
else  
        outra sequencia de comandos (executada se a condição é falsa)  
end if;veja a seguir  como se usa o if e o else na prática: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&gt;y then
                Put_Line("O Primeiro valor digitado e' maior!");
        elsif x&lt;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;percebemos aquí que já avançamos muito sobre alinguagem Ada e precisamos observar bem seus comandos pois futuramente poderemos ultilizá-los em futuros programas. For, While e Loop Abaixo, temos um código que faz o uso dos três comandos veja:With text_IO; Use text_IO;
With Ada.Integer_Text_IO; Use Ada.Integer_Text_IO;
Procedure usando_for_while_loop is
        a: natural;
begin
        New_Line(3);
 
        for a in 1..3 loop 
                Put_Line("Usando o Comando For em Ada.");
        end loop;  
        New_Line(3);
        a := 1;
        while a /=5 loop 
                Put_Line("Usando o Comando While em Ada.");
                a := a + 1;
        end loop;  
        New_Line(3);
        a := 1;
        loop 
                Put_Line("Usando o Comando Loop em Ada.");
                exit when a=5;
                a := a + 1;
        end loop;  
        New_Line(3);
end usando_for_while_loop;
a linguagem ADA é muito interessante pois nela podemos fazwer diverssos programas,agora que você já sabe usar os comandos básicos,comece a programar
e aprenda cada vez mais pois a informática é um mundo de grandes surpresas.