Localize file www.TrSek.com/zadania/cispar.pas

{ CISPAR.PAS                Copyright (c) TrSek alias Zdeno Sekerak }
{ Vytvorte program ktory nacita realne cislo a vypise nasledovne:   }
{ zaokruhlene cislo, desatinnu cast cisla a celu cast cisla.        }
{                                                                   }
{ Datum:23.05.2004                             http://www.trsek.com }

program cislo_parser;
var c:real;

begin
  WriteLn('Rozne sposoby zaokruhlovania');
  Write('Zadaj realne cislo c=');
  ReadLn(c);

  WriteLn('Zaokruhlene cislo je   :', round(c));
  WriteLn('Desatinna cast cisla je:', (c - trunc(c)):0:8);
  WriteLn('Cela cast cisla je     :', trunc(c));
  ReadLn;
end.

Copyrigth by Zdeno Sekerak 2007, http://www.trsek.com