|< 1 ... 4 5 6 7 8 9 10 ... 15 >| | 150 Einträge, 15 Seiten |
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
#!/usr/bin/perl
use baum;
use strict;
my @liste1 = ();
my @liste2 = (4, 28, 9, 100, 12, 84, 10, 11);
my @HinzufuegenListe = ();
my @NeuListe = ();
my @erstellebaum = undef;
############################
#Eingabe der ersten 10 Zahlen / Liste 1
############################
sub BaumNeu {
for(0..9){
print "Bitte geben Sie eine Zahlen ein: ";
my $eingabe = <STDIN>;
if ( $eingabe == /^\D*$/)
{
print "Ungültige Eingabe, bitte geben sie nur Zahlen ein \n";
chomp($eingabe);
push @liste1,$eingabe;
}}
print "Sie haben folgende Zahlen eingegeben: (@liste1) \n";
my @erstellebaum =baum->Neu(@NeuListe);
}
sub Hinzufuegen {
{my $zzahl = @_; }
my @erstellebaum =baum->hinzufuegen(my @NeueListe);
}
sub Ausgabe {
my @erstellebaum =baum->ausgabe(@HinzufuegenListe);}
my @erstellebaum =baum->Neu(@NeuListe);
my @erstellebaum =baum->Neu(@NeuListe);
my @erstellebaum =baum->Neu(@NeuListe);
my @erstellebaum =baum->Neu(@_);
my @erstellebaum =baum->Neu(@liste1);
|< 1 ... 4 5 6 7 8 9 10 ... 15 >| | 150 Einträge, 15 Seiten |