Multiplikator nach Eingabe von Teiler berechnen *war 2 Aufgaben, die nur... (gelöst) (Allgemeines zu Perl)

[thread]16957[/thread]

Multiplikator nach Eingabe von Teiler berechnen *war 2 Aufgaben, die nur... [gelöst]

Tags: perl Ähnliche Threads

Leser: 15

Articles: hide open all | hide show old branches

+10 replies
ReallySorry

2011-12-01 00:27
User since
2011-12-01
35 Artikel
BenutzerIn
Hallo Zusammen,

erstmal Respekt für euer gelungenes Forum, hab mich soeben erst angemeldet...
Wir haben dieses mal eine tolle Aufgabe bekommen, bei der bzw. denen ich nicht weiß, wo der Fehler liegen soll... Ich hoffe Ihr könnt mir behilflich sein...

Aufgabenstellung Nr. 1)

Man soll die Zahlen von 0-30 ausgeben und den Benutzer nach einem Teiler fragen. Wenn der Benutzer z.B. 5 eingibt soll neben den Zahlen 5,10,15,20,25,30 stehen: Ich bin durch 5 teilbar. Der Multiplikator ist 1,2,3,4,5,6 (je nach dem, wo man grad ist).

Ich wollte es wie folgt lösen, der Multiplikator hat aber iwie immer den Wert 0...:(

___________________________________________________________________
Code (perl): (dl )

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24

#!/usr/bin/perl # #Aufgabe6Nummer2 { my $i; my $Teiler; my $Multiplikator; print("Bitte geben Sie einen Teiler ein!\n"); $Teiler = <STDIN>; chomp($Teiler); if ($Teiler != 0) { $Multiplikator = ($i / $Teiler); } else { $Multiplikator = 0; } for ($i = 0; $i <= 30; $i++) { print("$i\n"); if ($i % $Teiler == 0) { print("Ich bin durch $Teiler teilbar! Der Multiplikator ist $Multiplikator!\n"); } } }
Aufgabe 2)

Schreiben Sie ein Programm, dem Sie eine Zeile eingeben können, und geben Sie nur die Vokale (aeiou) der Zeile auf dem Terminal aus.

keine Ahnung, leider...

Ich hoffe, irgendwer kann mir behilflich sein...

modedit Editiert von pq: code-tags hinzugefügt
Last edited: 2011-12-01 01:33:26 +0100 (CET)
- +4 replies
- Gast wer
  
  2011-12-01 01:57
  Code (perl): (dl )
  
  1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18
  
  #!/usr/bin/perl use strict; use warnings; my $x=''; while(!$x || $x=~/\D/) { print "Bitte geben Sie einen Teiler ein! "; chomp($x = <STDIN>); } my $s='Ich bin durch %s teilbar! Der Multiplikator ist %s!'; for (0..30) { print; $_/=$x; printf($s,$x,$_) if (int($_) == $_); print "\n"; }
  
  Tipp Zweite Aufgabe Regex:s/[^aeiou]//gs
  Last edited: 2011-12-01 08:55:49 +0100 (CET)
  - +3 replies
  - ReallySorry
    
    2011-12-01 10:28
    
    User since
    2011-12-01
    35 Artikel
    BenutzerIn
    
    Hey,
    
    erstmal danke für die Antwort.
    
    Was meinst du mit Regex? :)
    - Linuxer
      
      2011-12-01 10:50
      
      User since
      2006-01-27
      3890 Artikel
      HausmeisterIn
      
      Regex steht für "regular expression"; zu deutsch: Regulärer Ausdruck
      
      perlretut
      perlre
      perlrequick
      meine Beiträge: I.d.R. alle Angaben ohne Gewähr und auf Linux abgestimmt!
      Die Sprache heisst Perl, nicht PERL. - Bitte Crossposts als solche kenntlich machen!
    - topeg
      
      2011-12-01 11:05
      
      User since
      2006-07-10
      2611 Artikel
      BenutzerIn
      
      Eine Regex (regular Expressions) ist ein regulärer Ausdruck.
      Ein regulärer Ausdruck dient dazu Texte zu Analysieren (Filtern)
      Unter perl ist das eines der herausragendsten und am meisten verwendeten Features.
      Man kann sich Regexp als eine eigene spezialisierte Sprache vorstellen.
      
      Ein regulärer Ausdruck beschreibt wie ein Text (oder teile davon) aussehen sollen damit der Ausdruck wahr zurück liefert.
      
      Für eine ausführliche Erklärung bemühe das perldoc (perldoc perlretut)
      
      Kurz:
      $string=~m/<REGEXP>/
      "m" steht hier für "match" (Vergleichen). Der Ausdruck wir wahr, wenn der mit "<REGEXP>" bestimmte String im Suchstring zu finden ist
      
      $string=~s/<REGEXP>/<ERSETZUNG>/
      "s" steht für substitute. (Ersetzung). Der Teil des String der "<REGEXP>" entspricht wird durch "<ERSETZUNG>" ersetzt.
      
      Dann gibt es noch "Modifikatoren" die wertden hinten angehängt die häufigsten sind
      
      Code: (dl )
      
      1 2 3 4
      
      "g" = global (alles finden) "s" = singleline ("\n" als normales Zeichen beachten) "i" = case Insesitive (Groß/Kleinschreibung missachten) "c" = continue (fortführen)
- +3 replies
- Linuxer
  
  2011-12-01 11:01
  User since
  2006-01-27
  3890 Artikel
  HausmeisterIn
  Schalte bitte wenigstens die Warnungen an, dann könnte der Perl-Interpreter Dich vor möglichen Problemen warnen.
  
  Code (perl): (dl )
  
  1 2 3
  
  #! /usr/bin/perl use strict; # gut und hilfreich use warnings; # ebenso
  
  $i ist deklariert aber undefiniert.
  
  In Zeile 13 verwendest Du es bereits als Zähler. Weil es undefiniert ist, nimmt der Interpreter mal 0 (Null) als Wert an. 0 geteilt durch irgendwas ergibt 0.
  Damit bleibt Dein Multiplikator eben 0.
  
  Die Abfrage von Zeile 12-16 muss in die for-Schleife rein.
  
  Denke nochmal über die Reihenfolge der einzelnen Schritte nach.
  
  meine Beiträge: I.d.R. alle Angaben ohne Gewähr und auf Linux abgestimmt!
  Die Sprache heisst Perl, nicht PERL. - Bitte Crossposts als solche kenntlich machen!
  - +2 replies
  - ReallySorry
    
    2011-12-01 15:20
    
    User since
    2011-12-01
    35 Artikel
    BenutzerIn
    
    Danke für die lieben und hilfreichen Antworten!
    
    Wegen der fehlenden Initialisierung von $i... Ich initialisiere es doch innerhalb der for-Klammer?!, oder?
    
    sprich ich müsste dann mit dem <Regexp>-Zeug :D nichts ersetzen, sondern nur suchen und er würde automatisch diejenigen ausgeben, die er findet, oder?
    
    Lg
    - Linuxer
      
      2011-12-01 16:22
      
      User since
      2006-01-27
      3890 Artikel
      HausmeisterIn
      
      Innerhalb der for-Schleife ja; da weist Du $i Werte zu.
      
      Aber Du verwendest $i in Deinem Code-Beispiel schon vor der for-Schleife... und da ist es eben nicht initialisiert. Die Zeilen 12-16 kommen nun mal vor den Zeilen 18-23.
      
      Das "Regexp-Zeug" bezieht sich auf die nächste Aufgabe mit den Vokalen. Bei der Teiler-Geschichte brauchst Du keine Regex (es gäbe aber einen Anwendungsfall; aber ich denke, dass dieser Fall nicht Bestandteil der Aufgabe ist).
      
      Ich habe den Eindruck, Du hast hier die beiden Aufgaben zusammengeworfen. Jedenfalls kann ich nicht so ganz nachvollziehen, was Du mit Deinem Regexp-Absatz jetzt konkret meinst.
      
      meine Beiträge: I.d.R. alle Angaben ohne Gewähr und auf Linux abgestimmt!
      Die Sprache heisst Perl, nicht PERL. - Bitte Crossposts als solche kenntlich machen!
- +2 replies
- ReallySorry
  
  2011-12-01 15:41
  
  User since
  2011-12-01
  35 Artikel
  BenutzerIn
  
  Also Aufgabe 1 läuft ;D
  
  danke :)
  - topeg
    
    2011-12-01 17:58
    User since
    2006-07-10
    2611 Artikel
    BenutzerIn
    
    2011-12-01T14:41:39 ReallySorry
    Aufgabe 1 läuft
    
    zeig mal.
    
    Was die zweit Aufgabe betrifft.
    Du hast Grundsätzlich zwei Möglichkeiten sie zu lösen.
    1. Lösche alles nicht "aeiou" aus dem String. Gebe den String aus
    2. Such "aeiou" im String und gib es aus.
    Beide Varianten sind völlig gleichwertig von der Aufgabenstellung her.
    Nun hast du mehrere Möglichkeiten eines von beiden zu implementieren.
    Du kannst reguläre Ausdrücke nutzen, oder du kannst "klassisch" vorgehen und jedes Zeichen im String einzeln untersuchen. Für einen Anfänger mag es einfacher sein jedes Zeichen zu prüfen. Aber du solltest dir definitiv anschauen wie man das Problem auch mit einer Regexp lösen kann.
    
    Als kleine Hilfe mal eine Variante die ohne Regexp, welche gefundene Zahlen ausgibt:
    
    Code (perl): (dl )
    
    1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16
    
    #!/usr/bin/perl use strict; use warnings; my $string="Das ist ein String mit der Zahl 192 darin!"; print qq!die Zahlen in "$string" sind: !; my $index=0; for my $index (0..length($string)-1) { my $char=substr($string,$index,1); my $char_nr=ord($char); print $char if($char_nr>=48 && $char_nr<=57); } print "\n";
    
    man kann es auch anders schreiben:
    
    Code (perl): (dl )
    
    1 2 3 4 5 6 7 8 9 10 11 12 13 14
    
    #!/usr/bin/perl use strict; use warnings; my $string="Das ist ein String mit der Zahl 192 darin!"; print qq!die Zahlen in "$string" sind: !; for my $char (split(//,$string)) { my $char_nr=ord($char); print $char if($char_nr>=48 && $char_nr<=57); } print "\n";
    
    oder
    
    Code (perl): (dl )
    
    1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16
    
    #!/usr/bin/perl use strict; use warnings; my $string="Das ist ein String mit der Zahl 192 darin!"; print qq!die Zahlen in "$string" sind: !; my $index=0; for my $index (reverse (0..length($string)-1) ) { my $char=substr($string,$index,1); my $char_nr=ord($char); substr($string,$index,1,'') unless($char_nr>=48 && $char_nr<=57); } print "$string\n";
    
    oder ganz kurz mit einem Regulären Ausdruck:
    
    Code (perl): (dl )
    
    1 2 3 4 5 6 7 8 9 10
    
    #!/usr/bin/perl use strict; use warnings; my $string="Das ist ein String mit der Zahl 192 darin!"; print qq!die Zahlen in "$string" sind: !; $string=~s/\D//gs; print "$string\n";
    
    oder suchen mit einem Regulären Ausdruck:
    
    Code (perl): (dl )
    
    1 2 3 4 5 6 7 8 9 10 11 12 13 14
    
    #!/usr/bin/perl use strict; use warnings; my $string="Das ist ein String mit der Zahl 192 darin!"; print qq!die Zahlen in "$string" sind: !; my $index=0; while($string=~m/(\d+)/gc) { print $1; } print "\n";
    
    Und bei den regulären Ausdrücken kannst du sehen, warum es so wichtig ist die zu beherrschen. Man spart sich viel Arbeit und Code, wenn man sie benutzen kann. Und die Beispiele oben sind ganz einfache Konstrukte. Bei komplizierteren Problemen kann man anstatt einer Zeile Regexp 1000 Zeilen Code schreiben.
    
    EDIT:
    Wenn du dich verleitet fühlst mit meinem Code als Basis weiter zu machen. Der Code ist nur bedingt auf dein Problem anpassbar.
    Last edited: 2011-12-01 18:04:55 +0100 (CET)

View all threads created 2011-12-01 00:27.