Ocena użytkownikóww: ***** / 0
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";
}