Algoritmo — GUJ

Galera to desenvolvendo no delphi esse algoritmo…(ainda não ta boa a logica), eu
gostaria q vcs vessem por que não ta compilando???
tipo não sei se ta certo a logica mais eu gostaria de sabeer da estrutura…

program Project2;

{$APPTYPE CONSOLE}

uses   SysUtils;
var
    somatorioA, total, n, soma, cont,x: real;

function fatorial(n: real): real;


 begin
  total:=0;
     if n=0 then
        fatorial:=1
     else
      for cont:=1 to n do
        begin
         fatorial:= n / (fatorial (n-1))
         total:= total+fatorial;
         end;
 end;



begin
writeln ('Informe um numero qualquer: ');
readln (fatorial(n));

end.

o exercicio é:

fazer uma funcao que recebe parametro n, no qual fça o fatorial do mesmo e divida n
pelo fatorial e depos somar tudo…

1/1, 2/2, 3/6,;…n/n!, e apresentar o somatorio dissoo

valeu galera…

1 Resposta

davidbuzatto 4 de set. de 2009

Seu código tem vários erros de sintaxe.
E sinceramente parece que seu algoritmo não está certo... Pelo que eu entendi, sua função não deve fazer o fatorial e dividir por n.
Vc deve ter uma função para o fatorial e outra para chamar fatorial, dividir por n e somar.
Dê uma olhada e compare como seu.

program Project2;

{$APPTYPE CONSOLE}

uses SysUtils;

var
    entrada: integer;

function fatorial( n: integer ): longint;

var
    cont: integer;

begin

  if ( n = 0 ) then
  begin
     fatorial := 1;
  end
  else
  begin
     for cont:=1 to n do;
     begin
         fatorial := n * fatorial ( n - 1 );
     end;
  end;

end;

function calcula( n: integer ): real;

var
    soma: real;
    cont: integer;

begin
    soma := 0;
    for cont := 1 to n do;
    begin
        soma := soma + (n / fatorial(n));
    end;
    calcula := soma;
end;

begin
    writeln('Informe um numero qualquer: ');
    readln(entrada);
    writeln(calcula(entrada));
    readln;
end.

[]´s

1 Resposta

Topicos relacionados