Opened by Gast at 2004-12-21 16:06
Hallo
Knobele an folgender Aufgabe :
1)
Schreiben Sie ein Programm "zaehle", das die Anzahl der Zeichen in der Eingabe ermittelt.
2)Erweiterung : Es soll ausgegeben werden wieviele Zeilen in der Eingabe getippt wurden.
3)Erweiterung: Es soll gezählt werden, wieviele Worte in der Eingabe getippt wurden.
Also Aufgabe 1 und 2 habe ich schon gelöst hier :
Doch mit der 3 komme ich einfach nicht weiter
Es müsste in etwa so aussehen :
Doch leider habe ich da überhaupt kein Durchblick bei dieser "Muster"-Lösung
Mit welchem Verfahren kann ich da ran gehen ?
Genauso benötige ich dies soviel ich sehe bei der nöchsten Aufgabe
4)
Schreiben Sie ein Programm was alle Worte im Eingabetext untereinander ausgibt !
genauso suche ich noch wie wie ich ihm sagen kann, das er z.B. große Buchstaben in kleine Buchstaben macht :
Zug in zug
§z = [kleingeschrieben]
while (defined) $y = STDIN )
if ($y eq [aber zu was ?]);
print print $z
ich hoffe ihr habt eine idee und könnt mir weiterhelfen ?
Wäre echt nett
danke
Knobele an folgender Aufgabe :
1)
Schreiben Sie ein Programm "zaehle", das die Anzahl der Zeichen in der Eingabe ermittelt.
2)Erweiterung : Es soll ausgegeben werden wieviele Zeilen in der Eingabe getippt wurden.
3)Erweiterung: Es soll gezählt werden, wieviele Worte in der Eingabe getippt wurden.
Also Aufgabe 1 und 2 habe ich schon gelöst hier :
Code: (dl
)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
#! /usr/bin/perl
$xziffern = 0;
$xzeilen = 0;
print "Geben Sie einen Satz ein:\n";
while(defined($y=getc STDIN)) {
$xziffern += 1;
if ($y eq "\n") {
($xziffern -= 1)
}
if ($y eq "\n") {
($xzeilen += 1)
}
}
print "------------------------------------------\n";
print "Es wurden soviele Ziffern eingegeben:$xziffern\n";
print "Es wurden soviele Zeilen eingegeben:$xzeilen\n";
Doch mit der 3 komme ich einfach nicht weiter
Es müsste in etwa so aussehen :
Code: (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
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
#! /usr/bin/perl
$ibuchstaben=0;
$iword=0;
$bwort=0;
$inewlines=0;
while(defined($c=getc STDIN))
{
print $c;
if($c eq "\n")
{
++$inewlines;
if($bwort == 1)
{
$bwort=0;
++$iword;
}
}
elsif($c eq " ")
{
if($bwort == 1)
{
$bwort=0;
++$iword;
print "\n";
}
}
elsif($c eq ".")
{
if($bwort == 1)
{
$bwort=0;
++$iword;
print "\n";
}
}
}
elsif($c eq ",")
{
if($bwort == 1)
{
$bwort=0;
++$iword;
print "\n";
}
}
elsif($c eq "?")
{
if($bwort == 1)
{
$bwort=0;
++$iword;
print "\n";
}
}
elsif($c eq "!")
{
if($bwort == 1)
{
$bwort=0;
++$iword;
print "\n";
}
}
else
{
++$ibuchstaben;
$bwort=1;
}
}
print $ibuchstaben;
print "\n";
print $iword;
print "\n";
print $inewlines;
Doch leider habe ich da überhaupt kein Durchblick bei dieser "Muster"-Lösung
Mit welchem Verfahren kann ich da ran gehen ?
Genauso benötige ich dies soviel ich sehe bei der nöchsten Aufgabe
4)
Schreiben Sie ein Programm was alle Worte im Eingabetext untereinander ausgibt !
genauso suche ich noch wie wie ich ihm sagen kann, das er z.B. große Buchstaben in kleine Buchstaben macht :
Zug in zug
§z = [kleingeschrieben]
while (defined) $y = STDIN )
if ($y eq [aber zu was ?]);
print print $z
ich hoffe ihr habt eine idee und könnt mir weiterhelfen ?
Wäre echt nett
danke