Floor and Ceilling | Free Pascal | Latihan

Free Pascal Tutorial

Saatnya Latihan lagi.
Begini Soalnya.

Nilai floor dari sebuah bilangan real adalah bilangan bulat terbesar yang masih lebih kecil atau sama dengan bilangan tersebut, sebaliknya nilai ceiling dari sebuah bilangan real adalah bilangan bulat terkecil yang masih lebih besar atau sama dengan bilangan tersebut.

Pak Dengklek memberikan Anda sebuah bilangan real N (-1.000.000 < N < 1.000.000). Tentukan nilai floor dan ceiling dari N.

Format Masukan

Baris pertama berisi sebuah bilangan real N.

Format Keluaran

Sebuah baris berisi dua buah bilangan bulat yang dipisahkan oleh spasi, yaitu nilai floor dan nilai ceiling dari N.

Input

-256.625

Output

-257 -256

| Kunci Jawaban | Buka Bila Sangat Dibutuhkan |

var a: real;
 
begin
   readln (a);
   if a < 0 then
        writeln (trunc(a-1),' ',trunc(a))
   else
   if a > 0 then
      begin
        writeln (trunc(a),' ',trunc(a+1));
      end;
end.