• Inicio
  • Buscar
  • Ingresar
  • Registrarse

    Starfield: el juego que revolucionará el espacio y la tecnología

    • Hack x Crack - Comunidad de Seguridad informática »
    • Programación »
    • Scripting »
    • Perl »
    • secuencia fibonacci
    • Imprimir
    Páginas: [1]   Ir Abajo

    Autor Tema: secuencia fibonacci  (Leído 4448 veces)

    Desconectado INQUISIDOR

    • { L0 } Ñuub
    • Mensajes: 15
      • Ver Perfil
    secuencia fibonacci
    « en: Octubre 03, 2013, 11:36:16 pm »
    Hola a tod@s.

    Estoy comensando a programar en perl, y he desidido hacer un programa que al poner un numero este se convertiria en la posicion donde estaria este. por ejemplo

    2 = 1
    3 = 1

    Lo que pasa es que yo ya he echo en visual basic 6.0 y me ha funcionado pero en perl no me funciona y no se porque?

    aqui el codigo:


    while (True){


       print "dijite numero: ";
       $pre = <STDIN>;
       $num1 = 0;
       $num2 = 0;
       $suma = 0;

       for ($i = 1; $i <= $pre; $i++) {
          if ($i = 2) {
             $num1 = 1;
             $num2 = 0;
          }
          $suma = $num1 + $num2;
          $num1 = $num2;
          $num2 = $suma;
       }

       print "el fibonacci es $suma\n";
    }


    En línea

    Desconectado madara

    • { L2 } Nativo Digital
    • **
    • Mensajes: 148
      • Ver Perfil
    Re:secuencia fibonacci
    « Respuesta #1 en: Octubre 25, 2013, 11:43:50 pm »
    Me sale error en { me sale sintaxis invalida
    « Última modificación: Octubre 26, 2013, 12:18:45 am por madara »
    En línea

    Desconectado deni_celine

    • { L1 } Newbie
    • *
    • Mensajes: 66
      • Ver Perfil
    Re:secuencia fibonacci
    « Respuesta #2 en: Diciembre 24, 2013, 05:07:19 pm »
    Pruebalo así, cambie el While y el If.

    Código: [Seleccionar]
    #!C:\perl\bin\perl.exe -w

    use strict;
    use warnings;

    while (1){

       print "dijite numero: ";
       my $pre = <STDIN>;
       my $num1 = 0;
       my $num2 = 0;
       my $suma = 0;

       for (my $i = 1; $i <= $pre; $i++) {
          if ($i eq 2) {
             $num1 = 1;
             $num2 = 0;
          }
          $suma = $num1 + $num2;
          $num1 = $num2;
          $num2 = $suma;
       }

       print "el fibonacci es $suma\n";
       
    }
    En línea

    • Imprimir
    Páginas: [1]   Ir Arriba
    • Hack x Crack - Comunidad de Seguridad informática »
    • Programación »
    • Scripting »
    • Perl »
    • secuencia fibonacci
     

    • SMF | SMF © 2013, Simple Machines
    • XHTML
    • RSS
    • WAP2
    Va un mudo y le dice a un sordo: Hack x Crack usa cookies. Pues eso... Learn more