Ayuda sobre algoritmos..

Estado
No está abierto para más respuestas.

YannTiersen

Lanero Reconocido
Se unió
25 Sep 2003
Mensajes
94
Hola soy jorge y soy de santiago..quisiera saber si me pueden ayudar a construir un algoritmo en Pascal que permita mostrar los N-esimos terminos de la serie de fibonacci...es decir que si el profe me pide que muestre los 100 primeros numers de la serie de fibonacci, estos deberan ser mostrardos por pantalla...bueno gracias..
:chino: :cool: ;-P :bandido: :barba:
 

gK-Saj@

Lanero Reconocido
Se unió
9 Jun 2003
Mensajes
2,726
Solo le sirve en pascal????, yo se lo hago en Pseudo codigo o en Java...
 
G

gK-||sico||

Guest
Erda, el problema de fibonacci es que se desborda muy rapido... esa cosa crece descomunaltmente!!
 

bner

Lanero Reconocido
Se unió
12 Oct 2001
Mensajes
1,600
aqui no habian opiniones de mig posada y de dxter ???
 

Armando

Lanero Reconocido
Se unió
12 Nov 2001
Mensajes
1,448
en cualquier libro de programacion encuentra el algoritmo para la serie de fibbonacci.

busque en google a ver si encuentra el codigo ya implementado en pascal, la vaina es q' pascal casi no se usa.
 

Armando

Lanero Reconocido
Se unió
12 Nov 2001
Mensajes
1,448
estoy viendo el link q' puso juliand y ahi esta el algoritmo y ejemplos en varios lenguajes de programacion.
 

AFQR-BARBAX

Lanero Reconocido
Se unió
26 Dic 2001
Mensajes
448
Pero buena idea, que reciclemos o mas bien que reciclen los foros eso sirve, tambien, a eso foro me recordo mi segundo semestre...
 

jasz

Lanero Reconocido
Se unió
10 Ene 2002
Mensajes
1,295
otro que viene aqui para que le hagan la tarea.. no no no.. hay que leer!!!!!!
 

YannTiersen

Lanero Reconocido
Se unió
25 Sep 2003
Mensajes
94
compadre la tarea no me la hicieron..la logré hacer solio, pero agradesco tus palabras, ya que me impulsaron a perseverar aun mas....ahhh
y pongo para ustedes el algoritmo que hice, coomo soy novato, puede que tenga problemas..pero igual..Program serie_fibonacci;
uses crt;
var
a,b,max,i:integer;
c:word;
begin
clrscr;
gotoxy(30,10);
writeln('serie de fibonacci');
gotoxy(20,12);
writeln('¨Cuantos terminos desea mostar en pantalla?:');
readln(max);
a:=1;
b:=1;
writeln(0);
writeln(a);
writeln(b);
for i:=4 to max do
begin
c:=(a+b);
writeln(c);
a:=b;
b:=c;
end;

readkey;
end.
 

YannTiersen

Lanero Reconocido
Se unió
25 Sep 2003
Mensajes
94
Hola a todos esta vez quiero darles a conocer una algoritmo que permite invertir una frase..para los que esten recien iniciandose en el asunto de la programacion...


PROGRAM EJER006;
Uses Crt;
var frase: String; {Se puede hacer con arrays}
var f_inv: String; {Cada uno debe elegir la manera que
mejor entida,y controle, eso si, siempre hay que dominar las
dos formas.}
var i: Integer;
Begin
ClrScr;
i := 0;
gotoxy(25,10); WRITELN('Escriba una frase:');
gotoxy(25,12); READLN(frase);
WRITELN;
WRITELN;
For i := 0 to length(frase) do {desde la primera posicion de la frase hasta
la ultima almacenamos la frase en una variable}
f_inv := frase;
gotoxy(28,14); FOR i := length(frase) downto 0 do
WRITE(f_inv);
readkey;
end.
 

YannTiersen

Lanero Reconocido
Se unió
25 Sep 2003
Mensajes
94
Otro programita para ustedes

PROGRAM palindromo;
USES crt;
VAR
cad1,cad2: STRING;
es_pal:boolean; {es pal¡ndromo - lo usamos para guardar en una variable la respuesta
a si es un pal¡ndromo o no}
PROCEDURE invertir(cad1:STRING; VAR cad2:STRING);
VAR
i:integer;
BEGIN
cad2:='';
FOR i:=length(cad1) DOWNTO 1 DO
cad2:=cad2+copy(cad1,i,1);
END;
PROCEDURE comparar(cad1:string;cad2:string;VAR sw:boolean);
VAR
i,j:integer;
car1,car2:string;
BEGIN
es_pal:=true;
IF length(cad1) <> length(cad2) THEN {Si la longitud de las cadenas es distinta}
es_pal:=false {no puede ser un pal¡ndromo}
ELSE
BEGIN
i:=1;j:=1;
WHILE (es_pal) AND (i <= length(cad1)) DO
BEGIN
car1:=copy(cad1,i,1);
car2:=copy(cad2,j,1);
IF car1 = ' ' THEN
BEGIN
i:=i+1;
car1:=copy(cad1,i,1);
END;
IF car2 = ' ' THEN
BEGIN
j:=j+1;
car2:=copy(cad2,j,1);
END;
IF car1=car2 THEN es_pal:=true
ELSE
es_pal:=false;
i:=i+1;j:=j+1;
END;
END;
END;
BEGIN
ClrScr;
gotoxy(3,3); WRITE ('ESCRIBA UNA FRASE: ');
READLN (CAD1);
invertir(cad1,cad2);
comparar (cad1,cad2,es_pal);
IF es_pal = true THEN
BEGIN
gotoxy(10,13); WRITELN ('LA FRASE ESCRITA ES UN PALINDROMO');
END
ELSE
BEGIN
gotoxy(10,13); WRITELN ('LA FRASE ESCRITA NO ES UN PALINDROMO');
END;
REPEAT Until Keypressed;
END.
 

ZeN<CyBeRKiLLeR>

LANero oficial
Se unió
15 Abr 2001
Mensajes
2,491
jejeje aprendiendo a programar, recuerdo aquellos dias, en que cualquier programaba me parece que merecia un Pullitzer
 

tigrito

Lanero Reconocido
Se unió
10 Nov 2003
Mensajes
2
:confused: hola, soy nuevo en esto y espero poder unirme y aprender mucho de todos ustede
 

tigrito

Lanero Reconocido
Se unió
10 Nov 2003
Mensajes
2
estoy estudiando ing. de sistemas y realmente programacion me tiene asficciado
 

VictorV

LANero Fundador
Miembro del equipo
Se unió
14 Abr 2001
Mensajes
1,033
si no te gusta programar mejor que te salgas de esta carrera, programar es una chi@#$
 
Estado
No está abierto para más respuestas.
Arriba