Pascal

Guia

Rápido

do

Turbo Pascal

Prof. Fernando Antônio de Cerqueira

Tipos de Dados

Definição do tipo Inteiro - INTEGER

Tipo Faixa Formato

ShortInt -128 .. 127 8 – bit – com sinal

Integer -32768 .. 32767 16 – bit – com sinal

LongInt -2147483648 .. 2147483647 32 – bit – com sinal

Byte 0 .. 255 8 – bit – sem sinal

Word 0 .. 65535 16 – bit – sem sinal

Definição do tipo Real - REAL

Tipo Faixa Dígitos Bytes

Real 2.9e-39 .. 1.7e38 11-12 6

Single 1.5e-45 .. 3.4e38 7-8 4

Double 5.0e-324 .. 1.7e308 15-16 8

Extended 3.4e-4932 .. 1.1e4932 19-20 10

Comp -9.2e18 .. 9.2e18 19-20 8

Definição do tipo Caractere - STRING

Tipo Caracteres Bytes

String 255 255

String[n] n n

Char 1 1

Definição do tipo Lógico - BOOLEAN

Tipo Valor Bit

Boolean True (1) ou False (0) 1

Obs: False<True, Ord(False)=0, Ord(True)=1, Succ(False)=True, Pred(True)=False.

Tipos de Operadores

Tipo Operador Operação Operando Resultado

Aritméticos + Adição Integer / Real Integer / Real

- Subtração Integer / Real Integer / Real

* Multiplicação Integer / Real Integer / Real

/ Divisão Integer / Real Real / Real

Div Divisão inteira Integer Integer

Mod Resto da divisão inteira Integer Integer

Lógicos (Boolean) And Conjunção lógica Boolean Boolean

Or Disjunção lógica não exclusiva Boolean Boolean

Xor Disjunção lógica exclusiva Boolean Boolean

Not Negação lógica Boolean Boolean

Caractere (String) + Concatenação String String

Conjunto (Set) + União

- Diferença

* Intercessão

Relacionais = Relação – igual a Expressões Boolean

< > Relação – diferente de Expressões Boolean

< = Relação – menor igual a Expressões Boolean

> = Relação – maior igual a Expressões Boolean

> Relação – maior que Expressões Boolean

< Relação – menor que Expressões Boolean

Programa Exemplo – Gabarito para elaboração

Program Exemplo; { este e o cabeçalho do programa }

USES WinCrt; { aqui inicia-se a área das declarações do programa }

{ aqui estou utilizando uma UNIT, chamada WINCRT, existem várias, e inclusive você pode criar as suas. Nestas units temos procedures e functions previamente compiladas. }

Label fim; { a partir desta instrução pode-se utilizar o label fim }

Const Meu_Nome = 'Lenny Kravits'; { subárea Const para definição de constantes }

Type n = (BRASILEIRA, PORTUGUESA, INGLESA, FRANCESA, ALEMA, AMERICANA);

{o Turbo Pascal possui diversos tipos de variáveis predefinidas, mas também permite definir novos tipos na subárea Type }

Var idade, K :integer;

altura :real;

nome :string[30];

sexo :char;

nacionalidade :n; { subárea Var para declaração de variáveis }

Procedure Linha;

{uma procedure equivale ao conceito de sub-rotina. Sua estrutura pode se tornar tão complexa como a de um programa. Esta procedure, traça uma linha na posição atual do cursor }

Var i:integer;

Begin

For i:=1 to 80 do Write('-');

end;

Function Soma(x,y:integer):integer;

{o Turbo Pascal possui diversas funções pré-definidas, todavia o programador também pode definir as suas próprias }

Begin

Soma:=x+y;

end;

{ podemos definir quantas procedures e functions quisermos }

{ aqui começa o programa propriamente dito – Bloco principal ou corpo do programa }

Begin

ClrScr; { apaga a tela ou seja, limpa a janela, pinta tudo de branco }

Linha; { Executa a procedure linha }

Writeln('Meu nome e -------> ',Meu_Nome);

Linha; Write('Qual o seu nome ----> '); {pode haver mais de um comando por linha}

Readln(Nome);

Linha; Write('Qual a sua idade ---> '); Readln(idade);

Linha;

K := Soma(34,idade); { aqui é atribuído à variável K o valor calculado na função Soma }

Writeln('nossas