Die Webseiten der Fachschaft Informatik am ERG Saalfeld

Namen generieren

Um die Programme zu Userverwaltung des Schulservers zu testen, werden mindestens 100 verschiedene Namen gebraucht. Diese sollen aus Listen von Vor- und Nachnamen generiert werden.
 

Programm

use strict;
use warnings;

my @vornamen  = qw(anton bert carl dora emil frieda gerda hans ilse joachim klaus leo manfred nina otto paul richard susi theo uwe verena wilfried);
my @nachnamen = qw(bach brahms bartok bellini berg berlioz bizet chopin debussy dvorak gluck grieg haydn offenbach orff mozart strauss reger);

foreach my $vorname (@vornamen) {
  foreach my $nachname (@nachnamen) {
    print $vorname . ' ' . $nachname, "\n";
  }
}

__END__

Aufgaben

1. Bringen Sie das Programm zum Laufen.
2. Ergänzen Sie das Programm so, dass am Ende auch die Anzahl der Namen ausgegeben werden.
3. Zeichnen Sie zu diesem Programm ein Struktogramm.
4. Kommentieren Sie das Programm.
5. Leiten Sie die Ausgaben in eine Datei um.
6. Ändern Sie das Programm so ab, dass der erste Buchstabe vom Vornamen und der erste Buchstabe vom Nachnamen groß geschrieben wird.
7. Ändern Sie das Programm so ab, dass zuerst der Nachname, dann ein Komma und dann der Vorname ausgegeben wird.

zurück