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?

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

wart_bezwzgledna_1_pl.pl:
#! /usr/bin/perl -w

#Obliczanie wartosc bezwzglednej z podanej liczby
#Dominik Gozdziuk
#www.algorytm.org

print "Podaj x: ";
$x = <STDIN>;
chomp($x);

if ($x > 0) {
        print "|$x| = $x\n";
}
else {
        $y = $x;
        $x *= -1;
        print "|$y| = $x\n";
}
Dodaj komentarz