7 Einträge, 1 Seite |
1
2
3
4
5
6
7
#!/usr/bin/perl -w
print "Geben Sie den Radius ein: ";
chomp ($radius = <STDIN>);
$pi = 3.14;
$result = 2 * $pi * $radius;
print "Bei einem Radius von $radius ergibt sich ein Umfang von $result\n";
$|=1;
$|=1;
QuoteLines 1 through 3 start nearly every program I write, enabling warnings, compiler restrictions, and unbuffering STDOUT.
... I do these lines out of habit now.
QuoteLines 1 through 3 start nearly every program I write, enabling warnings, compiler restrictions, and unbuffering STDOUT.
... I do these lines out of habit now.
QuoteFor this program, a buffered STDOUT really didn't hurt, since there weren't any print operations, but I do these lines out of habit now.
7 Einträge, 1 Seite |