Ayuda sobre algoritmos..

Estado
Cerrado para nuevas respuestas.

YannTiersen

Lanero Regular
25 Sep 2003
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
9 Jun 2003
2,680
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!!
 

Armando

Lanero Reconocido
12 Nov 2001
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
12 Nov 2001
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
26 Dic 2001
447
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
10 Ene 2002
1,130
otro que viene aqui para que le hagan la tarea.. no no no.. hay que leer!!!!!!
 

YannTiersen

Lanero Regular
25 Sep 2003
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 Regular
25 Sep 2003
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 Regular
25 Sep 2003
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
15 Abr 2001
2,486
jejeje aprendiendo a programar, recuerdo aquellos dias, en que cualquier programaba me parece que merecia un Pullitzer
 

VictorV

LANero Fundador
Miembro del equipo
14 Abr 2001
1,068
si no te gusta programar mejor que te salgas de esta carrera, programar es una chi@#$
 
Estado
Cerrado para nuevas respuestas.