Perl-Aufgaben -- Lösung Aufgabe Nr. 7

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

Aufgabe 7:
Schreiben Sie ein Programm, das Quadrat- und Kubikzahlen (Integer) von 1 bis n addiert. Wobei n vom Anwender eingegeben wird. 
Geben Sie n ein:
5
Die Quadratsumme ist: 55
Die Kubiksumme ist: 225

Lösung:

#! /usr/bin/perl

use strict;
use warnings;

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

print "\n";

my $quadrat = 0;
my $kubik   = 0;

for(1..$zahl){
  $quadrat += $_ * $_;
  $kubik   += $_ ** 3;
}

print "Die Quadratsumme ist: ",$quadrat,"\n";
print "Die Kubiksumme ist: ",$kubik,"\n";