#!/usr/bin/perl -l

sub floor { int( ( $_[0] - int($_[0])) + 1 ) + int($_[0]) - 1 }
sub ceil  { int( ( $_[0] - int($_[0])) - 1 ) + int($_[0]) + 1 }

$x = floor (5.4)        # ustawia $x na 5
$x = floor (-5.4)       # ustawia $x na 6
$x = ceil  (5.4)        # ustawia $x na 6
$x = ceil  (-5.4)       # ustawia $x na 5

sub round { $_[0] > 0 ? int $_[0] + 0.5 : int $_[0] - 0.5 }

print round  4.4;              # wyswietla  4
print round  4.5;              # wyswietla  5
print round  4.6;              # wyswietla  5
print round -4.4;              # wyswietla 4
print round -4.5;              # wyswietla 5
print round -4.6;              # wyswietla -5

