Ausgabe Weihnachtsbaum

2 Lösungen

#15

Anfänger - Perl von Gustl - 07.12.2012 um 18:44 Uhr

Schreiben Sie ein Konsolenprogramm welches einen Weihnachtsbaum ausgibt.
Vor der Ausgabe soll noch die Höhe des Weihnachtsbaum abgefragt werden. (MIN 3)
Der Weihnachtsbaum soll bei einer Höheneingabe von 10 folgendermaßen aussehen:

Konsolenausgabe:

      *
     ***
    *****
     ***
    *****
   *******
    *****
   *******
  *********
     ###

Die Schwierigkeit besteht in den Stufenabschnitten der Tanne. Die Zeile die die meisten Sterne enthält sollte natürlich dann auch die letzte sein, also muss das Programm vielleicht bei einer zu großen Höheneingabe das Zeichnen der Sterne abbrechen und dann den Stamm ausgeben. (So wie bei diesem Beispiel, angegeben ist 10 aber der Baum hat nur 10 Reihen, ohne Baumstamm)

Bitte melden Sie sich an um zur Aufgabenbeschreibung eine Frage zu stellen.

Frage stellen

Bitte melden Sie sich an um eine Lösung einzureichen.

Lösung einreichen

von Jusy (440 Punkte) - 23.04.2014 um 15:16 Uhr

Perl-Code

use strict;
use warnings;

print "Bitte Geben Sie eine Zahl ein(MIN 3):";
my $eingabe = <STDIN>;
if ($eingabe < 3)
{print "Baum zu klein"; exit;}
$eingabe =~ s/\s//;
my $count = 0;
my $counter = 0;
my $i = 1;
for(my $y = 0; $y <= $eingabe; $y++)
{
	if($counter == $eingabe)
	{
		last;
	}
	if($count == 3)
	{
		if($y == ($eingabe-1))
		{last;}
		else
		{
			$i = $i-4;
			$count=0;
		}
	}
	my $space = (($eingabe+2)-$i)/2;
	for(my $x = 0; $x < $space; $x++)
	{
		print " ";
	}
	for(my $j = 0; $j < $i ; $j++)
	{
		print "*";
	}
	print "\n";
	$count++;
	$counter++;
	$i = $i+2;
}


my $space = (($eingabe+2)-3)/2;
for(my $x = 0; $x < $space; $x++)
{
	print " ";
}
print "###";