Programovací jazyk Pascal vyvinul Niklaus Wirth a byl poprvé vydán v roce 1970. Od té doby se aktivně používá k učení programování a vývoji aplikací. Jedním z rysů tohoto jazyka je schopnost pracovat s čísly a jejich převody.
Funkce trunc vezme jeden argument-číslo a vrátí celou část tohoto čísla. Pokud například chceme odvodit celou část čísla 3.14159, můžeme použít následující kód:
program findIntegerPart; var number: real; integerPart: integer; begin number := 3.14159; integerPart := trunc(number); writeln('The integer part of ', number:0:5, ' is ', integerPart); end.
Po provedení tohoto kódu bude na obrazovce zobrazeno: "integer part of 3.14159 is 3". Získali jsme tedy celou část čísla 3.14159-3.
1. Zaokrouhlení na menší stranu: Pro získání celé části čísla bez zaokrouhlení na větší stranu je nutné použít funkci Trunc. Funkce Trunc vrací největší celé číslo menší nebo rovné dané hodnotě a nevyrábí žádné zaokrouhlení.
varnumber: real;integerPart: integer;beginnumber := 3.14;integerPart := Trunc(number);writeln('Целая часть числа: ', integerPart);end.2. Zaokrouhlení na větší stranu: K zaokrouhlení čísla na větší stranu a získání celé části lze použít funkci Round. Funkce Round zaokrouhluje číslo na nejbližší celou hodnotu.
varnumber: real;integerPart: integer;beginnumber := 3.14;integerPart := Round(number);writeln('Целая часть числа: ', integerPart);end.3. Převod na řetězec: K převodu čísla na řádek a extrakci celé části lze použít funkci FloatToStr. Po převodu čísla na řádek lze získat celou část pomocí funkce Pos a funkce Copy.
varnumber: real;integerPart: integer;numberStr: string;dotPos: integer;beginnumber := 3.14;numberStr := FloatToStr(number);dotPos := Pos('.', numberStr);integerPart := StrToInt(Copy(numberStr, 1, dotPos - 1));writeln('Целая часть числа: ', integerPart);end.Poznámka: Tyto metody platí pouze pro proměnné typu real nebo double. U proměnných typů integer nebo longint stačí přiřadit hodnotu nové proměnné.
Pravidla pro zaokrouhlení celé části čísla v jazyce Pascal
Jazyk Pascal poskytuje několik způsobů, jak zaokrouhlit celou část čísla. Pravidla zaokrouhlování celé části čísla závisí na tom, která funkce se používá ke zaokrouhlení.
Jedním ze způsobů zaokrouhlení celé části čísla je použití funkce Trunc . Tato funkce odhodí zlomkovou část čísla a vrátí pouze celou část. Například pokud je číslo 3.14 přenést do funkce Trunc, Vrátí číslo 3.
Dalším způsobem zaokrouhlení celé části čísla je použití funkce Round . Tato funkce zaokrouhluje číslo na nejbližší celou hodnotu. Pokud má číslo zlomkovou část menší než 0.5, zaokrouhlí se dolů. Pokud má číslo zlomek větší nebo rovný 0.5, zaokrouhluje se nahoru. Například číslo 3.14 bude zaokrouhleno na 3 a číslo 3.9 bude zaokrouhleno na 4.
K dispozici je také funkce Int , která je podobná funkci Trunc a také vrhá zlomkovou část čísla. Rozdíl mezi nimi je v tom, že funkce Trunc vždy vrátí číslo typu Real a funkce Int vrátí celé číslo typu Integer .
Tyto funkce mohou být užitečné při práci s čísly v jazyce Pascal, zejména v případě potřeby získat pouze celou část čísla nebo zaokrouhlit číslo na nejbližší celou hodnotu.
V jazyce Pascal lze k získání celé části čísla použít funkci Trunc . Vrací největší celé číslo, menší nebo rovné danému číslu.
Příklad použití funkce Trunc :
program Example;varnumber: real;integerPart: integer;beginnumber := 3.14;integerPart := Trunc(number);writeln('Целая часть числа: ', integerPart);readln;end.V důsledku provádění tohoto programu bude odvozena hodnota celé části čísla 3.14, tedy 3.
Příklad použití operátora Div :
program Example;varnumber: real;integerPart: integer;beginnumber := 5.8;integerPart := number div 1;writeln('Целая часть числа: ', integerPart);readln;end.V důsledku provádění tohoto programu bude odvozena hodnota celé části čísla 5.8, tedy 5.