[Pascal] jaka funkcja do zaokrąglania liczb


(Rog1201) #1

Witam potrzebuję funkcji w Turbo Pascalu, która zaokrąglała by do najbliższej (ALE WYŻSZEJ) liczby całkowitej. Już mówię o co mi chodzi. Napisałem program, który liczy ilość paczek z trawą którą musi kupić rolnik, ale przecież skoro wyjdzie mi że rolnik potrzebuje kupić 1,2 paczki to program powinien mu wyświetlić "musisz kupić 2 paczki'' Czy jest coś takiego?


([alex]) #2

Ceil()


(Rog1201) #3

ale to mi wyswietla unknown identifier


([alex]) #4
function ceil(V:real):real; (*nie koniecznie real, może być inny typ zmiennoprzecinkowy*)

begin

  Result:=trunc(V);

  if Result<>V then Result:=Result+1;

end;

(Rog1201) #5

Ja może trochę ciemny jestem, ale nie czaję dokładnie co jest czym, jak to działa i jak ma być wpisane. To będzie działać w Turbo Pascalu 7.0?

-- Dodane 17.02.2009 (Wt) 19:39 --

AHA, sorki już zaczaiłem, Dzięki bardzo:) ale ja to zrobiłem bez wpisywania ceil, wykorzystałem tylko tego if'a :slight_smile: Pozdrawiam


(Popek010) #6

Jeśli chodzi Ci o wyświetlanie określonej ilości 'znaków wyniku' to wystarczy:

(np.) var wynik:real; ... writeln(wynik :6:2) [6 - na wyświetlenie przeznaczasz 6 znaków; 2 - dwa miejsca po przecinku]