Feed Me

Assine a newsletter:


Add to Technorati Favorites
  • Pingar o BlogBlogs Adicionar aos Favoritos BlogBlogs

    Publicidade


    BuscaPé, líder em comparação de preços na América Latina


    BlogUpp

  • 22
    May

    Ano Bissexto

    Postado por krixapolinario às 11:56

    Olá,

    Hoje estava organizando meus arquivos e encontrei um script que havia feito em perl bem simples para saber se o ano que informo é ou não bissexto. Abaixo está o código. :)

    #!/usr/bin/perl -w

    print -n “Informe o ano: “;
    $ano = <STDIN>;
    chomp $ano;

    cal 2 $ano | grep -i 29 >> /dev/null
    teste=`echo $?`

    if (”$teste” == “0″) {
    print “O ano “$ano” é bissexto!”
    }
    else {
    echo “O ano “$ano” não é bissexto!”
    }

    :wq!


    Tags:

    09
    Jul

    Script Simples Para Saber o Tipo de Triângulo!

    Postado por krixapolinario às 19:02

    Na universidade na cadeira de Desenvolvimento, criávamos muitos scripts simples como o que mostrarei abaixo.
    Ele está comentado já para facilitar o entendimento dos IF e ELSIF.
    Basta colocar num arquivo dar permissão e executar…
    Muito simples de fazer e mais ainda executar!

    ———————————————

    #!/usr/bin/perl -w

    # RECEBIMENTO DE DADOS.
    print “Entre com o valor de cada lado do triângulo:\n”;

    print “Lado 1:\n”;
    $v1 = ;
    chomp $v1;

    print “Lado 2:\n”;
    $v2 = ;
    chomp $v2;

    print “Lado 3:\n”;
    $v3 = ;
    chomp $v3;

    # O COMPRIMENTO DE UM LADO DO TRIÃNGULO É SEMPRE MENOR QUE A SOMA DOS OUTROS DOIS.
    if ( ( $v1 > ( $v2 + $v3 ) ) and ( $v2 > ( $v1 + $v3 ) ) and ( $v3 > ( $v1 + $v2 ) ) ) {
    print “Não é um triângulo.\n”;
    }

    # NENHUM LADO DE UM TRIANGULO PODE SER ZERO.
    elsif ( ( $v1 == 0 ) or ( $v2 == 0 ) or ( $v3 == 0 ) ) {
    print “Nenhuma lado de um triângulo pode ser zero.\n”;
    }

    # SENDO TODOS OS LADOS IGUAIS EH UM TRIANGULO EQUILATERO.
    elsif ( $v1 == $v2 and $v1 == $v3 and $v2 == $v3 ) {
    print “Ele é um triângulo equilatero.\n”;
    }

    # TENDO DOIS LADOS IGUAIS SERÁ UM TRIANGULO ISOSCELES.
    elsif ( ( $v1 == $v2 and $v1 != $v3 ) or ( $v1 == $v3 and $v1 != $v2 ) or ( $v2 == $v3 and $v2 != $v1 ) ) {
    print “Ele é um triângulo isósceles.\n”;
    }

    # TENDO TODOS OS LADOS DIFERENTES SERÁ ESCALENO.
    else {
    print “Ele é um triângulo escaleno.\n”;
    }


    Tags: ,