• Revista PROGRAMAR: Já está disponível a edição #53 da revista programar. Faz já o download aqui!

sergiopinto

[Pascal] Somar primeiros N números

1 mensagem neste tópico

Este programa embora não tenha grande inovação, demonstra uma aplicação de recursividade.

Soma todos os numeros até ao numero que o utilizador forneça.

Por exemplo:

n=5

soma=5+4+3+2+1

program exercicio4;
uses Wincrt;
Var n:longint;

function soma(n:longint):longint;
begin
   if (n=1) then
       soma:=1
    else
        soma:=n+soma(n-1);
end;

begin
    clrscr;
    writeln('Qual o numero maximo que pretende calcular?');
    readln (n);
    writeln ('A soma é igual a: ', soma(n));
    readkey;
end.

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

Crie uma conta ou ligue-se para comentar

Só membros podem comentar

Criar nova conta

Registe para ter uma conta na nossa comunidade. É fácil!


Registar nova conta

Entra

Já tem conta? Inicie sessão aqui.


Entrar Agora