FUN ES E PROCEDIMENTOS PREDEFINIDOS DE PASCAL

FUNÇÕES E PROCEDIMENTOS PREDEFINIDOS DE PASCAL

a) Funções numéricas
Função Int
Retorna a parte inteira de um argumento.
Declaração:
function Int(X: Real): Real;
Exemplos:
A := Int(7.3);
A := Int(-4.5);

{ A recebe o valor 7.0 )
{ A recebe o valor –4.0 )

Função Frac
Retorna a parte fracional de um argumento
Declaração:
function Frac(X: Real): Real;
Exemplos:
A := Frac(3.65);
A := Frac(-3.65);
Obs:

{ A recebe o valor 0.65 }
{ A recebe o valor -0.65 }

Frac(X) = X - Int(X)

Função Round
Arredonda um valor real para um valor inteiro.
Declaração:
function Round(X: Real): Longint;
Obs: O valor retornado será o valor de X arredondado para o número inteiro mais próximo. Se X está exatamente entre dois inteiros, o resultado será o número com a maior magnitude absoluta.

Exemplos:
A
A
A
A

:=
:=
:=
:=

Round(1.4);
Round(1.5);
Round(-1.4);
Round(-1.5);

{
{
{
{

1 }
2 }
-1 }
- 2 }

Função Trunc
Trunca um valor real, produzindo um valor inteiro (elimina a parte fracionária).
Declaração:
function Trunc(X: Real): Longint;
Ex:
A
A
A
A

:=
:=
:=
:=

Trunc(1.4);
Trunc(1.5);
Trunc(-1.4);
Trunc(-1.5);

{
{
{
{

1 }
1 }
-1 }
-1 }

b) Funções para tratamento de caracteres

Função UpCase

Converte caracteres que sejam letras em maiúsculas.
Declaração:
function UpCase(Ch: Char): Char;
Obs: O resultado é Ch convertido para maiúsculo. Caracteres que não sejam letras minúsculas (´a´..´z´) não são afetados.

Função Chr
Converte um valor inteiro no caractere correspondente na tabela ASCII.

Exemplos:

writeln(chr(65)); writeln(chr(50)); writeln(chr(37));

{ ’A’ }
{ ’2’ }
{ ’%’ }

Obs: Para caracteres, a função Ord faz o inverso de Chr:
Ord retorna o valor numérico de um caractere (na tabela ASCII).
Chr retorna o caractere correspondente a certo valor numérico.
Compile e execute o seguinte programa para conhecer a tabela ASCII: program TabelaASCII; uses crt; var I : integer; begin ClrScr; writeln(’Pressione ENTER para mostrar o próximo...’); for I:= 1 to 255 do begin writeln(I,':