Prévia do material em texto
and
downto
In
or
then
asm
else
Inline
packed
to
array
end
Final de um programa, procedimento.
Interface
procedure
type
begin
Início de um programa, procedimento.
exports
Label
program
unit
case
file
Library
record
until
const
for
Mod
Imprime o resto de uma divisão
7 mod 2 = 1
repeat
uses
Agrupa uma lista de unidades predefinidas do compilador
Uses crt;
Begin
clrScr;
end.
constructor
function
Nil
set
var
destructor
goto
Not
shl
while
div
Divisão de numerous
8 div 4
if
Object
shr
with
do
implementation
Of
readln
A entrada de dados é feita em Pascal através do comando de entrada
...
Readln(identificador);
...
writeln
exibição dos resultados do processamento e de mensagens é feita através dos comandos de saída
writeln(‘mensagem’,expressao);
string
xor
Readkey
Função predefinida que atribui o que é digitado a uma variável.
uses Crt;
var c: char;
begin
writeln('Digite um caractere');
c := ReadKey;
writeln(' Voce digitou ', c, '.');
end.
Tabela 3 Tipos de dados da Pascal
Denominação
Conjunto de valores
Char
caracteres codificados no código ASCII (letras, dígitos e caracteres especiais como :, ?, *,
etc.)
Shortint
números inteiros do intervalo [-128, 127]
Integer
números inteiros do intervalo [–32768, 32767]
Longint
números inteiros do intervalo [-2 147 483 648, 2 147 483 647]
Byte
números inteiros do intervalo [0, 255]
Word
números inteiros do intervalo [0, 65535]
Real
números reais do conjunto [–3,4x1038, –3,4x10-38][3,4x10-38 , 3,4x1038]
Boolean
conjunto dos valores false (falso) e true (verdadeiro)
- Variáveis pequenas utilizar tipo byte e shortin que é apenas 1byte.
- Comando de Atribuição
A:=a*a/2;
Tabela 8 Algumas funções predefinidas da linguagem Pascal
Função
Argumento
Valor
Valor calculado
Abs(x)
real/integer
mesmo valor
absoluto de x
ArcTan(x)
real
real
número cuja tangente é x
Chr(x)
byte
char
caractere cujo código ASCII é x
Cos(x)
real
real
coseno de x
Exp(x)
real
real
exponencial de x (ex)
Frac(x)
real
real
parte fracionária de x
program Arredonda;
var x : real;
Roundx : integer;
begin
writeln('Digite um número real');
readln(x);
if Frac(x) < 0.5 //se a parte fracionaria de x for menor que 0.5
then
Roundx := Trunc(x) //atribua a Roundx a parte inteira de x
else
Roundx := Trunc(x) + 1;
writeln('Round(' , x:4:2 , ') = ', Roundx);
end.
Ln(x)
real
real
logaritmo natural de x
Odd(x)
integer
boolean
verifica se x é ímpar
program VerificaParidade;
var n : integer;
begin
writeln('Digite um numero inteiro');
readln(n);
if Odd(n) = true //se ‘n’ for impar
then writeln(n,' e impar')
else writeln(n,' e par');
end.
Ord(x)
tipo ordenado
integer
ordem de x no tipo de dado
program LowCase;
var Maiuscula, Minuscula : char;
begin
writeln('Digite uma letra maiúscula');
readln(Maiuscula);
Minuscula := Chr(Ord(Maiuscula) + 32); //atribua a ‘minuscula’ o char de ordem maiúscula + 32
writeln('LowCase(' , Maiuscula , ') = ', Minuscula);
end.
Pred(x)
tipo ordenado
mesmo
antecessor de x
Round(x)
real
integer
arredondamento de x
program Arredonda;
var x : real;
Roundx: integer;
begin
writeln('Digite um numero real');
readln(x);
Roundx := Trunc(2*x) - Trunc(x);
writeln('Round(' , x , ') = ', Roundx);
end
Sin(x)
real
real
seno de x
Sqr(x)
real/integer
mesmo
quadrado de x
SqrT(x)
real/integer
real
raiz quadrada x
Area := SqrT(SemiPer*(SemiPer - a)*(SemiPer - b)*(SemiPer - c));
Succ(x)
tipo ordenado
mesmo
sucessor de x
Trunc(x)
real
integer
Exibe a parte inteira de x
UpCase(x)
char
char
X maiúsculo
Stop pag. 44