Engª Mecânica, Engª Manutenção Industrial e Engª Mecânica de Transportes

Introdução à Computação e Métodos Numéricos

Pretende-se calcular o valor da seguinte série para um determinado valor de n, sendo n um número inteiro maior que zero.

a) Escrever a função f_serie que receba n como parâmetro e retorne como resultado o valor da série.

b) Escrever o procedimento p_serie que receba como parâmetros o valor de n e uma variável onde é devolvido o resultado.

Program Serie;

Var n:Integer;

result:Real;

Function f_serie(n:Integer):Real;

Var i:Integer;

s:Real;

Begin

s:=0;

For i:=1 To n Do s:=s+1/i;

f_serie:=s;

End;

Procedure p_serie(n:Integer; Var resultado:Real);

Var i:Integer;

s:Real;

Begin

s:=0;

For i:=1 To n Do s:=s+1/i;

resultado:=s;

End;

Begin

WriteLn('Qual o valor de n?');

ReadLn(n);

{Invocar a função}

result:=f_serie(n);

WriteLn('Função: ',result);

{Invocar o procedimento}

p_serie(n, result);

WriteLn('Procedimento: ',result);

End.

Voltar à página inicial

Comentários para: Nuno Castro