algorytm.org

Implementacja w Perl



Baza Wiedzy
wersja offline serwisu przeznaczona na urządzenia z systemem Android
Darowizny
darowiznaWspomóż rozwój serwisu
Nagłówki RSS
Artykuły
Implementacje
Komentarze
Forum
Bookmarki






Sonda
Implementacji w jakim języku programowania poszukujesz?

Potęgowanie - Implementacja w Perl
Ocena użytkownikóww: *****  / 1
SłabyŚwietny
Nadesłany przez Dominik Goździuk, 27 lutego 2012 17:24
Kod przedstawiony poniżej przedstawia główną część rozwiązania problemu.
Pobierz pełne rozwiązanie.

potegowanie_1_pl.pl:
#! /usr/bin/perl

#Obliczanie potegi z wykorzystaniem rekurencji
#Dominik Gozdziuk
#www.algorytm.org

#Procedura obliczajaca potege metoda rekurencyjna
sub potega {
        #Jesli drugi przekazany parametr (wykladnik) jest rowny 0
        if ($_[1] == 0) {
                #Zwracamy 1
                return 1;
        }
        return $_[0] * &potega($_[0], --$_[1]);
}

#Pobieramy podstawe
print "Podaj podstawe: \n";
$p = <STDIN>;
chomp($p);

#Pobieramy wykladnik
print "Podaj wykladnik: \n";
$w = <STDIN>;
chomp($w);

$tmp = $w;
#Wartosc zwrocona przez procedure zapisujemy do zmiennej wynik
$wynik = &potega($p, $w);

#Wyswietlamy wynik
print "$p^$tmp = $wynik\n";
Dodaj komentarz