Új hozzászólás Aktív témák

  • barnam_

    nagyúr

    Tudna valaki Perl-ben segíteni? Kaptam egy házit, de nem azt csinálja amit én akarok :B

    A standard inputrol beker ket szamot!
    A ket bekert szam kozti szamokbol egy listat kepez (pl: ha a ket
    szam 42 es 48, akkor a lista elemei: 42,43,44,45,46,47,48), es
    kiiratja a lista elemeinek erteket a kovetkezo formaban: i.index=x
    (a bekert szamok sorrendjetol fuggetlenul a szamsor csokkeno legyen)

    Pelda a mukodesre:
    inputok: 10, 15
    > ./feladat1.sh
    0. index=15
    1. index=14
    2. index=13
    3. index=12
    4. index=11
    5. index=10

    For ciklussal kitudom iratni a két szám közötti számokat, de a tömböt nem úgy tölti fel, ahogy kellene. Próbáltam úgy, hogy a cikluson kívül van az értékadás, ekkor csak az utolsó értéket írja ki.

    #!/usr/bin/perl -w

    $szam1=<STDIN>;
    chomp $szam1;
    $szam2=<STDIN>;
    chomp $szam2;

    print "$szam1\n";
    print "$szam2\n";

    for ( $i=$szam1; $i <= $szam2; $i=$i+1 )
    {
    @list=$i;
    print "@list\n";
    }

Új hozzászólás Aktív témák

Hirdetés