for loop (gelöst) (Allgemeines zu Perl)

[thread]19603[/thread]

for loop

Tags: perl5 Ähnliche Threads

Leser: 13

Articles: hide open all | hide show old branches

+11 replies

Gast nano

2015-04-03 23:46

n'abend zusammen,
ich soll für eine aufgabe aus einer while schleife eine for schleife machen.
die while schleife musste ich vorher auch selber schreiben und nun while durch for ersetzen. leider klappt das irgendwie nicht. kann mir da jemand vlt helfen, wo ich da den fehler habe?
also aufgabe konkret lautet:
user soll 2 ungerade zahlen eingeben. Array soll alle ungeraden zahlen die dazwischen liegen, einschliesslich den eingetippten enthalten. wenn die erste eingetippte zahl größer als die 2. ist soll das Programm die zahlen in der "richtigen" Reihenfolge ausgeben.

Code (perl): (dl )

use strict; use warnings;

print "please enter two odd numbers \n";
    print "enter first odd number:";
    my $odd1 = <STDIN>;
    chomp ($odd1);    
print "enter second odd number:";
    my $odd2 = <STDIN>;
    chomp ($odd2);

exit if (!($odd1 %2) or !($odd2 %2));
my @odds;
my $step;

if ($odd1 < $odd2) {
        $step= 2 ;
} else {
        $step =-2;
}
my $n=0;
for (my $i=$odd1; $i != $odd2;$i=$i+$step)  {
        $odds[$n] = $i;
        $n=$n+1;        
}
$odds[$n]=my $i;
print "numbers:@odds\n";

ich kann zwar 2 zahlen eingeben. aber er gibt mir immer nur die erste aus.
kann mir jemand vlt helfen?
Last edited: 2015-04-04 04:40:40 +0200 (CEST)

+10 replies

hlubenow

2015-04-04 01:12

User since
2009-02-22
875 Artikel
BenutzerIn
[default_avatar]

Guest nano
Code (perl): (dl )
for (my $i=$odd1; $i != $odd2;$i=$i+$step)  {}

Probier' mal "<=" statt "!=".

Dann noch'n paar andere Sachen:

Code (perl): (dl )

#!/usr/bin/perl

use warnings;
use strict;

print "please enter two odd numbers \n";
print "enter first odd number: ";
my $odd1 = <STDIN>;
chomp ($odd1);
print "enter second odd number: ";
my $odd2 = <STDIN>;
chomp ($odd2);

if ($odd1 % 2 == 0 || $odd2 % 2 == 0) {
    exit;
}
my @odds;
my $step = 2;

if ($odd1 >= $odd2) {
   $step *= -1;
}
my $i;
for ($i = $odd1; $i <= $odd2;$i += $step) {
    push(@odds, $i);
}
print "numbers:";
foreach $i (@odds) {
    print "$i ";
}
print "\n";

Last edited: 2015-04-04 01:14:29 +0200 (CEST)

+9 replies

lichtkind

2015-04-04 04:57

User since
2004-03-22
5697 Artikel
ModeratorIn + EditorIn

mein geschmack:

Code (perl): (dl )

#!/usr/bin/perl

use v5.12;
use warnings;

say "please enter two odd numbers";
print "enter first odd number: ";
chomp (my $odd1 = <STDIN>);
print "enter second odd number: ";
chomp (my $odd2 = <STDIN>);
exit if $odd1 % 2 == 0 or $odd2 % 2 == 0; # exit unless $odd1 % 2 and $odd2 % 2;

my $step = $odd1 < $odd2 ? 2 : -2;
my (@odds);
for (my $i = $odd1; $i <= $odd2; $i += $step) {push(@odds, $i)};
say "numbers: @odds";

Last edited: 2015-04-04 13:26:57 +0200 (CEST)

Tutorien in der Wiki, mein zeug:
kephra, baumhaus, garten, gezwitscher

Es beginnt immer mit einer Entscheidung.

+8 replies

Raubtier

2015-04-04 11:11

User since
2012-05-04
1076 Artikel
BenutzerIn
[default_avatar]

Wenn ich da nichts übersehen habe, fehlt bei beiden Lösungen der Part, dass die Zahlen in der richtigen Reihenfolge sein sollen, auch wenn die größte Zahl zuerst eingegeben wurde.

Also würde ich es so machen:

Code (perl): (dl )

... # Eingabe von odd1 und 2

($odd1, $odd2) = ($odd2, $odd1) if $odd1 > $odd2;
for (my $i = $odd1; $i <= $odd2; $i += 2) {
    ...
}

lichtkind

2015-04-04 13:28

User since
2004-03-22
5697 Artikel
ModeratorIn + EditorIn

stimmt, das hab ich getern nacht verschlafen

und bei der ausgabe braucht man dann nciht mal ein sort davorhängen
Tutorien in der Wiki, mein zeug:
kephra, baumhaus, garten, gezwitscher

Es beginnt immer mit einer Entscheidung.
+6 replies

hlubenow

2015-04-04 15:38

User since
2009-02-22
875 Artikel
BenutzerIn
[default_avatar]

Auch kein Problem.

Code (perl): (dl )

#!/usr/bin/perl

use warnings;
use strict;

print "please enter two odd numbers \n";
print "enter first odd number: ";
my $odd1 = <STDIN>;
chomp ($odd1);
print "enter second odd number: ";
my $odd2 = <STDIN>;
chomp ($odd2);

if ($odd1 % 2 == 0 || $odd2 % 2 == 0) {
    exit;
}
my @odds;
my $i;
my $step = 2;

if ($odd1 <= $odd2) {
    for ($i = $odd1; $i <= $odd2;$i += $step) {
        push(@odds, $i);
    }
} else {
    for ($i = $odd1; $i >= $odd2;$i -= $step) {
        push(@odds, $i);
    }
}

print "numbers: ";
foreach $i (@odds) {
    print "$i ";
}
print "\n";

Kann sogar sein, daß er die gerade die zwei verschiedenen for-Schleifen (im C-Stil) lernen sollte.

+5 replies

lichtkind

2015-04-04 15:59

User since
2004-03-22
5697 Artikel
ModeratorIn + EditorIn

ja ich denke darum gings,
dennoch gefällt es mir nicht unnötige variablen und schleifen zu erzeugen

Code (perl): (dl )

#!/usr/bin/perl

use v5.12;
use warnings;

say "please enter two odd numbers";
print "enter first odd number: ";
chomp (my $odd1 = <STDIN>);
print "enter second odd number: ";
chomp (my $odd2 = <STDIN>);

exit unless $odd1 % 2 and $odd2 % 2;
($odd1, $odd2) = ($odd2, $odd1) if $odd1 > $odd2;

my (@odds);
for (my $i = $odd1; $i <= $odd2; $i += 2) {push(@odds, $i)};
say "numbers: @odds";

Last edited: 2015-04-04 16:32:57 +0200 (CEST)

Tutorien in der Wiki, mein zeug:
kephra, baumhaus, garten, gezwitscher

Es beginnt immer mit einer Entscheidung.

+2 replies

lichtkind

2015-04-04 16:12

User since
2004-03-22
5697 Artikel
ModeratorIn + EditorIn

und nun perl 6 :)

Code (perl): (dl )

use v6;

say "please enter two odd numbers";
my $odd1 = prompt "enter first odd number: ";
my $odd2 = prompt "enter second odd number: ";

exit unless $odd1 % 2 and $odd2 % 2;
my $min = min $odd1, $odd2;

say "numbers: ", ($min, $min+2 ... (max $odd1, $odd2));

Last edited: 2015-04-04 17:51:42 +0200 (CEST)

Tutorien in der Wiki, mein zeug:
kephra, baumhaus, garten, gezwitscher

Es beginnt immer mit einer Entscheidung.

hlubenow

2015-04-04 17:25

User since
2009-02-22
875 Artikel
BenutzerIn
[default_avatar]

Und nun nochmal C ;) (Ich bin nicht sehr gut in C, und es hat schon wieder viel zu lange gedauert):

Code (c): (dl )

#include <stdio.h>

int main() {
    int odd1;
    int odd2;
    int odds[10000];
    int i;
    int arrp;
    int step;

    puts("please enter two odd numbers");
    printf("enter first odd number: ");
    scanf("%d", &odd1);
    printf("enter second odd number: ");
    scanf("%d", &odd2);
    if (odd1 % 2 == 0 || odd2 % 2 == 0) {
        puts("One of the numbers is even.");
        return 1;
    }
    if (odd1 - odd2 > 9990 || odd2 - odd1 > 9990) {
        puts("One of the numbers is too big.");
        return 2;
    }
    arrp = 0;
    step = 2;
    if (odd1 <= odd2) {
        for (i = odd1; i <= odd2; i += step) {
            odds[arrp] = i;
            arrp++;
        }
    } else {
        for (i = odd2; i <= odd1; i += step) {
            odds[arrp] = i;
            arrp++;
        }
    }
    printf("numbers: ");
    for (i = 0; i < arrp; i++) {
        printf("%d ", odds[i]);
    }
    puts("");
    return 0;
}

+2 replies

Gast nano

2015-04-04 22:14

danke, euch!
so einfach kann's wohl gehen :) perl ist für mich noch ziemlich kompliziert.
Last edited: 2015-04-04 23:12:43 +0200 (CEST)

hlubenow

2015-04-05 00:30

User since
2009-02-22
875 Artikel
BenutzerIn
[default_avatar]

Man sollte auch noch die andere Art von for-Schleife kennen. Guck' Dir mal bitte das folgende an:

Code (perl): (dl )

#!/usr/bin/perl

use warnings;
use strict;

my @fruits = ("Apple", "Banana", "Tangerine");

# Das kann man auch so schreiben:
@fruits = qw(Apple Banana Tangerine);

my $i;
# for-Schleife im C-Stil mit Zahlen:
for ($i=1; $i <= 10; $i++) {
    print "$i\n";
}

# Andere for-Schleife mit Zahlen:
for $i (1 .. 10) {
    print "$i\n";
}

# for(each)-Schleife durch die Elemente eines Arrays.
# "for" und "foreach" sind synonym.
foreach $i (@fruits) {
    print "$i\n";
}

# Wenn man noch die jeweilige Elementnummer im Array braucht:
# "$#fruits" steht für die Anzahl der Elemente von @fruits minus 1:
for ($i=0; $i <= $#fruits; $i++) {
    print "$fruits[$i]\n";
}

View all threads created 2015-04-03 23:46.