Pascal/Turbo Pascal - programa pascal urgente

   
Vista:

programa pascal urgente

Publicado por joju010 (10 intervenciones) el 05/04/2013 12:43:34
1. Factorial
El factorial de un número n entero positivo se define recursivamente
n = 0: n! = 1
n = 1: n! = 1
n > 1: n x (n — 1)!

Diseña un algoritmo con un solo bucle que resuelva el siguiente problema

n, fact: entero
{Pre = n = N ^ N > 0}
factorial
{Post = fact = N!}

Siendo el invariante del bucle el predicado siguiente

Inv = fact =( (i-1)! n! )/ j! ^ 0 < i < j - 1 ^ n = N

El número de iteraciones del bucle no debe superar n div 2 + 1.
Da una función de cota.
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

programa pascal urgente

Publicado por ramon (2072 intervenciones) el 05/04/2013 17:10:45
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
{Espero sea esto lo que pides pues no entiendo muy bien lo que pones}
 
program factorial;
 {$N+}
 uses
   crt;
 
  CONST
   fact = 500;
 
  type
    tabla = array[0..fact] of extended;
 
  var
    cont : integer;
 
   function factorialnum(t : integer) : extended;
   var
     x : integer;
     e : extended;
   begin
        cont := 0;
        if t = 0 then
        e := 1
    else
       begin
          if (t > 0) and (t <= fact) then
          begin
            e := 1;
            for x := 1 to t do
            e := e * x;
            end
       else
          e := 0;
       end;
        cont := x;
        factorialnum := e;
    end;
 
 
  begin
    clrscr;
    writeln('   factorial = ',Factorialnum(5):0:0,'  De : ',cont);
    readkey;
 end.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
1
Comentar

programa pascal urgente

Publicado por joju010 (10 intervenciones) el 05/04/2013 17:14:11
muchas gracias
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar