Programa em Pascal que soma dois numeros inteiros!

2˚ Programa Algoritmo e pascal

Neste segundo programa, mostro um exemplo de como criar um programa que calcula a soma de dois números inteiros em algoritmo e na linguagem de programação Pascal e por ultimo eu explico como foi feito o mesmo passo a passo.

PROBLEMA:

Faça um algoritmo que receba dois números inteiros e exiba o resultado da sua soma.

RESOLVENDO:

·       Algoritmo

algoritmo

n1, n2, soma: inteiro

inicio

Escreva("Digite o primeiro número: ");

leia(n1);

Escreva("Digite o segundo número: ");

leia(n2);

soma <- n1+n2;

Escreva("A soma dos números é: ",soma);

Fimalgoritmo

·       Pascal

{Programa soma dois numeros inteiros}

{Programa escrito por Carlos Eduardo Martins Santos}

{acesse: www.tecnosolution.blogspot.com}

program somar; 

var n1, n2, soma :integer;

begin

writeln('Digite o primeiro numero.');

readln(n1);

writeln('Digite o segundo numero');

readln(n2);

soma := n1+n2;

writeln(‘A soma dos numeros e:’,soma);

readln;

end.

·       Explicação

program somar;  {Declaração do nome do programa}

var n1, n2, soma :integer; {Declaração de variáveis todas são do tipo inteiro}

Begin {Inicio do programa}

writeln('Digite o primeiro numero.'); {E pedido que o usuário entre com o primeiro numero}

readln(n1); {Ler a primeira instrução que foi dada ao programa}

writeln('Digite o segundo numero'); {E pedido que o usuário entre com o segundo numero}

readln(n2); {Ler a segunda instrução que foi dada ao programa}

soma := n1+n2; {E feita a soma dos dois resultados}

writeln(‘A soma dos numeros e:’,soma); {Mostra o resultado entre a soma dos dois numeros}

readln; {Ler a instrução do resultado que foi dada ao programa}

end.{Fim do programa}