Perl-Aufgabe -- Lösung Aufgabe Nr. 8

Start | Ausarbeitungen | Module | Links | Kontakt | Snippets | Aufgaben | Vorträge | Impressum
Programmieraufgaben für Perl-Anfänger:

Aufgabe 8:
Schreiben Sie ein Programm, das Sterne in Keilform ausgibt. Der Anwender gibt die Anfangszahl für die Sterne ein und das Programm gibt Zeilen von Sternen aus, wobei jede Zeile einen Stern weniger hat als die vorhergehende. 
Anfangszahl der Sterne:
7

*******
******
*****
****
***
**
*

Lösung:
#! /usr/bin/perl

use strict;
use warnings;

print "Geben Sie n ein:\n";
my $zahl = <STDIN>;
chomp($zahl);

print "\n";

for my $row(reverse(0..$zahl-1)){
  for(0..$row){
    print "*";
  }
  print "\n";
}