Buenas GUJeiros.
Então to com um execicio aqui faz alguns dias e não
consigo fazer, vou postar o enunciado do exercicio e
o codigo que eu fiz, o codigo ta compilando perfeitamente
mais o resultado não esta de acordo com o sugerido…no
exercicio… se puderem me ajudar agradeço…
EXERCICIO::
[b]Elabore uma função recursiva que retorne o valor do somatorio da seguinte série, dado
como parametro de entrada um valor qualque inteiro n, onde (n>=1): OBS: esse somátorio
tende a 0,367…
1/1 - 2/2 + 3/6 - 4/24+ 5/120 …n/n![/b]
CÓDIGO::
program Chegando1;
{$APPTYPE CONSOLE}
uses SysUtils;
{***********Variaveis Escopo Global*************}
var
numero: integer;
{*********Incio Função Fatorial*******}
function fatorial (y: integer): real;
begin
if y=0 then
fatorial := 1
else
begin
fatorial:= y * fatorial (y-1);
end;
end;
function calculo (x:integer): real;
var finalA, finalB, finalTotal, calcA, calcB, trans: real;
cont: integer;
begin
finalA:=0;
finalB:=0;
trans:=0;
for cont:=1 to x do
if (cont mod 2)= 0 then
begin
calcA := cont/(cont* fatorial(cont));
finalA:= finalA + calcA;
trans:= finalA * (-1);
end
else
begin
calcB := cont/(cont* fatorial(cont));
finalB:= finalB + calcB;
end;
begin
finalTotal:= trans+ finalB;
calculo:= finalTotal;
end;
end;
begin
writeln ('Informe um numero..: ');
readln (numero);
writeln (calculo(numero):0:2);
readln;
end.
Desde ja Agradeço…