Pascal/Turbo Pascal - calculo de sucesiones

 
Vista:
sin imagen de perfil

calculo de sucesiones

Publicado por Gloria (4 intervenciones) el 17/03/2016 22:33:19
el programa funciona siempre que T sea igual a un entero
ayuda urgente necesito hacer lo mismo que esta en este programa pero para t =0.25 0 1/4. me sale un error y no lo puedo corregir
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
46
47
48
program funcion (input,output);
uses wincrt;
var n, j:integer;
 
option:char;
const t=2;
 
function fibonacci (n:integer):longint;
begin
   if (n=1)then fibonacci:=1;
   if (n=2)then fibonacci:=3;
   if (n >= 3)then fibonacci:= t* (fibonacci(n-1)+fibonacci(n-2));
end;
BEGIN
repeat
    write ('Escriba un entero positivo,n=');readln(n);
    if n<1 then
       begin
         gotoxy (27,8);
         writeln('**************************************************');
         gotoxy (27,9);
         write ('* La funcion fibonacci no esta definida para n<1 * ');
         gotoxy (27,10);
         write ('* Digite un entero positivo n: n > = 1 * ');
         gotoxy (27,11);
         write ('************************************************** ');
         writeln;
       end
    else
    writeln ('         n fibonacci (n) ');
    gotoxy (10,3);
    for j:=1to 16 do
     write ('_');
     writeln;
    for n:=1 to n do
        writeln (n:10, fibonacci (n):15);
        writeln;
    write ('Desea continuar s/n: '); read (option);
    readln;
    clrscr;
until option = 'n';
gotoxy (22,12);
write ('***************************************************');
gotoxy (22,13);
writeln ('        * USTED HA FINALIZADO LA SECION *');
gotoxy(22,14);
writeln ('**************************************************');
end.
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

calculo de sucesiones

Publicado por ramon (2158 intervenciones) el 26/03/2016 14:02:11
Fíjate que es para números enteros no decimales por eso te da error
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
sin imagen de perfil

calculo de sucesiones

Publicado por Gloria (4 intervenciones) el 30/03/2016 01:38:57
gracias. aparte de integer y longint por real que mas tendria que cambiar porque no me funciona
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

calculo de sucesiones

Publicado por ramon (2158 intervenciones) el 30/03/2016 18:02:18
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
{La sucesión de Fibonacci es la sucesión de números que, empezando por la
 unidad, cada uno de sus términos es la suma de los dos anteriores
 (1,1,2,3,5,8,13,...). espero entiendas solo enteros no decimales como La sucesión de Fibonacci }
 
 program ejemplo;
 uses
    crt;
  var
    nume : integer;
 
   Function fibonacci(n : LongInt) : LongInt;
   begin
     if n < 2 then
      fibonacci := n
  else
      fibonacci := fibonacci(n - 1) + fibonacci(n - 2);
    end;
 
   begin
      clrscr;
      for nume := 1 to 10 do
      write('  ',fibonacci(nume));
      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
0
Comentar
sin imagen de perfil

calculo de sucesiones

Publicado por Gloria (4 intervenciones) el 21/04/2016 21:32:02
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
46
47
48
program funcion (input,output);
uses wincrt;
var n,fibonacci, j:integer;
 s:real;
option:char;
const t=0.25;
 
 
begin
   if (n=1)then fibonacci:=1;
   if (n=2)then fibonacci:=3;
   if (n >= 3)then s:= t* ((n-1)+(n-2));
   end.
BEGIN
repeat
    write ('Escriba un entero positivo,n=');readln(n);
    if n<1 then
       begin
         gotoxy (27,8);
         writeln('**************************************************');
         gotoxy (27,9);
         write ('* La funcion fibonacci no esta definida para n<1 * ');
         gotoxy (27,10);
         write ('* Digite un entero positivo n: n > = 1 * ');
         gotoxy (27,11);
         write ('************************************************** ');
         writeln;
       end
    else
    writeln ('         n s (n) ');
    gotoxy (10,3);
    for j:=1to 16 do
     write ('_');
     writeln;
    for n:=1 to n do
        writeln (n:10, s (n):15);
        writeln;
    write ('Desea continuar s/n: '); read (option);
    readln;
    clrscr;
until option = 'n';
gotoxy (22,12);
write ('***************************************************');
gotoxy (22,13);
writeln ('        * USTED HA FINALIZADO LA SECION *');
gotoxy(22,14);
writeln ('**************************************************');
end.
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