Hoje me deu vontade de voltar a lembrar alguns conceitos da linguagem de programação Pascal, que eu não mexia a quase 3 anos! Para tal, vou fazer aqui um pequeno programa, para resolver um problema que encontrei numa ficha da cadeira de Introdução a Informática do curso de Informática da Universidade Eduardo Mondlane em Maputo. Eis o enunciado do problema:
Escreva um programa que calcula a soma dos n primeiros números inteiros positivos.
A solução para este problema não podia ser mais simples, pelo menos não me veio outra solução na mente. Vou deixar ficar aqui o programa completo e depois explicarei cada detalhe do código:
program soma;
var
n,i,soma:integer;
begin
writeln(‘Introduza o número limite’);
readln(n);
soma:= 0;
for i:=1 to n do
soma:=soma+1;
writeln(‘a soma dos primeiros ’,n,’ números é ‘,soma);
readln;
end.
Vou apenas explicar a lógica específica do programa, já que vários conceitos aqui usados são básicos do Pascal e você poderá encontrar explicação em artigos anteriores aqui do Techmoz.O que fiz aqui foi solicitar ao utilizador o limite do número, para a seguir usar um ciclo for, que vai adicionando cada número inteiro a soma, até chegar ao limite. A soma é inicializada por 0. simples não???
Download do programa e do código-fonte
Você poderá fazer download deste programa no formato executável, assim como o arquivo de código fonte do programa, clicando no ícone abaixo:
[download id=”91″ format=”4″]
Comentários Recentes