Sabtu, 09 Juli 2011

Floor and Ceilling | Free Pascal | Latihan


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.

Tidak ada komentar:

Posting Komentar

Habis baca alangkah baiknya untuk memberikan comment..
silahkan comment disini..
ingat !!
dilarang spamming, bicara PORNO atau SARA