Zaokrouhlovani – Pascal – Fórum – Programujte.com

Zdravim, ptreboval bych zaokrouhlit cislo pr. 12345 na stovky nahoru cili na 12400. Jak to udelat? Poradi nekdo pls? Diky moc

To Error :

v Delphi je funkcia RoundTo.
1 znamena hodnotu, ktoru chces zaokruhlit,
znamena na kolko miest


Priklady:
RoundTo(1234567, 3) 1234000
RoundTo(1.234, -2) 1.23
RoundTo(1.235, -2) 1.24
RoundTo(1.245, -2) 1.24

if (cislo mod 100)<>0 then cislo:=cislo-(cislo mod 100)+100;