viernes, 3 de diciembre de 2010

Lenguaje perl

Hola de nuevo como siempre
En esl siguente posts les traigo dos ejemplos muy sencillos de codigo en perl
Uno se trata de la famosa serie de fibonassi y la otra de numeros primos donde le agregamos hasta que numero queremos o el limete:

Codigo de fibonsasii:
#!c:/perl/bin/perl.exe
print "FIBONASI\n:";
$a=1;
$b=0;
$c=0;
$x;
$i;

print "DIME CUANTOS NUMEROS DE FIBONASI QUIERES: \n";
$x = <STDIN> ;
chomp ($x);
for ($i=0; $i<$x; $i++) {
$c = $a + $b;
print "$c\n";
$b = $a;
$a = $c;
}

Codigo de los numeros primos:
#!c:/perl/bin/perl.exe


# El valor de n
print "HASTA QUE NUMERO QUIERE VERIFICAR SI ES PRIMO O NO\n";
$n = <STDIN> ;
chomp ($n);
for ( $i=1; $i<=$n; $i++ ) {
$p[$i] = $i;
1
}
$k = int( sqrt($n) );
$i=2;
while ( $i <= $k ) {
while ( $p[ $i ] == 0 ) {
$i ++;
}

for ( $j=2; $j<=$n; $j++ ) {
$a = $i * $j;
$p[ $a ] = 0;
}
$i++;
}

for ( $i=1; $i<=$n; $i++ ) {
if ( $p[$i] != 0 ) {
printf ( "%d\n", $p[$i] );
}
}

// El codigo de los numeros primos utilize cadenas para guardarlo y al final imprimirlos juntos

1 comentario:

  1. ¿Pones varias veces los mismos programas y nunca explicas el código? Estoy siendo ultragenerosa aquí dándote puntos por estas entradas, y aún así no queda claro si pasarás en segundas. +2 otra vez

    ResponderEliminar