Sinal( ) - A função retorna o valor inteiro 1 se o argumento passado à função for positivo e, retorna –1 se o argumento passado à função for negativo. A função é chamada com a sintaxe S := Sinal ( exprN ); onde exprN é uma expressão de classe numérica ( tipo inteiro ou real) e S é uma variável do tipo inteiro.
Veja o exemplo abaixo:
inicioimprima("foram digitados", i, “números positivos e “, j “números negativos”);
escreva("digite qualquer número: ");
leia(n);
S := sinal(n);
Se S = 1i = i + 1;senãoj = j + 1fim