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:
 
Solo le sirve en pascal????, yo se lo hago en Pseudo codigo o en Java...
 
Erda, el problema de fibonacci es que se desborda muy rapido... esa cosa crece descomunaltmente!!
 
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.
 
estoy viendo el link q' puso juliand y ahi esta el algoritmo y ejemplos en varios lenguajes de programacion.
 
Pero buena idea, que reciclemos o mas bien que reciclen los foros eso sirve, tambien, a eso foro me recordo mi segundo semestre...
 
otro que viene aqui para que le hagan la tarea.. no no no.. hay que leer!!!!!!
 
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.
 
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.
 
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.
 
jejeje aprendiendo a programar, recuerdo aquellos dias, en que cualquier programaba me parece que merecia un Pullitzer
 
si no te gusta programar mejor que te salgas de esta carrera, programar es una chi@#$
 
Estado
Cerrado para nuevas respuestas.

Los últimos mensajes

Los últimos temas