Programa em Pascal que dividi dois numeros inteiros!

3˚ Programa em Algoritmo e pascal

PROBLEMA:

Faça um algoritmo que receba dois números inteiros e imprima o resultado da sua divisão!

RESOLVENDO:

·       Algoritmo!

Algoritmo

Real N1, N2, Total;

Inicio

Escreva (“Entre com dois números”);

Leia (N1, N2);

Total <- N1/N2;

Escreva(“O resultado será”,Total);

Leia;

Fim

·       Código em Pascal!

{Programa que recebe dois números inteiros, e imprime o resultado da divisão dos mesmos!}

{Programa escrito por Carlos Eduardo Martins Santos.}

{acesse: http://www.tecnosolution.blogspot.com/}

Program divisao;

  Uses crt;     

   Var           

               x, y, z: real;

    Begin       

            Writeln ('Digite o primeiro numero'); 

                Readln (x);    

                Writeln ('Digite o segundo numero');

                Readln (y);  

             If(y<>0)    

                       Then begin 

              z:=x/y; 

                              Writeln ('o resultado da divisao‚',z);

                        End

                     Else writeln ('Nao e possivel dividir por zero');

                 Readln;

End.

·       Código em Pascal explicado!

{Programa que recebe dois números inteiros, e imprime o resultado da divisão dos mesmos!}

{Programa escrito por Carlos Eduardo Martins Santos.}

{acesse: http://www.tecnosolution.blogspot.com/}

Program divisao; { Nome do programa!}

  Uses crt;      {Biblioteca do pascal, nestas units temos procedures e functions     previamente compiladas!}

   Var           {Sessão de declaração de variáveis!}

               x, y, z: real;  {Todas variáveis são do tipo real!}

    Begin       {Inicio do programa!}

            Writeln ('Digite o primeiro numero');  { O usuário deve entra com o primeiro numero!}

                Readln (x);     {Ler a primeira instrução que foi dada ao programa!}

                Writeln ('Digite o segundo numero');  {O usuário deve entra com o segundo numero}

                Readln (y); {Ler a segunda instrução que foi dada ao programa!}

             If(y<>0)     {Verifica se a variável y e diferente de 0!}

{Obs: A divisão só pode ser feita caso o divisor seja diferente de zero!}

                       Then begin  { Concluída a verificação ele retorna ao inicio do programa!}

               z:=x/y;  {E atribuida a variável z, a divisão de x e y!}

                              Writeln ('o resultado da divisão‚',z); { Caso o divisor seja diferente de 0, ele Imprimi na tela o resultado!}

                          End

                     Else writeln ('Nao e possível dividir por zero'); { Se o divisor for igual a 0, ele imprimirá na tela a mensagem não e possível dividir por zero!}

                      Readln;

End.