quinta-feira, 31 de março de 2011

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}

1 Comentário:

Paulo Miguel Machado disse...

gostei...vai me ajudar muito...

Postar um comentário

Ouvir a Rádio Boa Vista FM 96,5 de Paracatu Ao Vivo e Online

Ouvir a Rádio Boa Vista FM 96,5 de Paracatu Ao Vivo e Online
Cidade: Paracatu/MG - Gênero: Popular

Chuck Norris Aprova Tecnosolution!


NOTÍCIAS TI

Ajude a divulgar nosso blog!


Total de visualizações de página

Usuários Online

Usuários online

  ©TECNOSOLUTION - Todos os direitos reservados.

Template by Dicas Blogger | Topo