Pascal
Pascal
1- Tipos de Vari�veis
2- Units
3- Comandos B�sicos
4- Estruturas Condicionais
������� 4.1 If.. Then.. Else
��������� 4.2 CASE
5- Estruturas de Repeti��o
������� 5.1 For
��������� 5.2 While
��������� 5.3 Repeat
6- Manipula��o de Strings
7- Functions e Procedures
8- Arquivos e Registros
�
�
BEGIN
��� Ex.:
�� Program example;
��� Uses crt;
��� Var x : integer;
���������� y : real;
�
��� Begin
����������� {Aqui vai o algor�tmo}
��� End.
�
1 - Tipos de VARI�VEIS
��� - Boolean : ocupa 1 byte, s� pode ter os valores True ou False (Verdadeiro ou
Falso);
��� - Real : ocupa 6 bytes, seus valores v�o de 1E-38 at� 1E+38;
��� - Integer : ocupa 2 bytes, seus valores v�o de -32768 at� 32767, do tipo
inteiro;
��� - Word : ocupa 2 bytes, inteiro de 0 a 65535;
��� - Longint : ocupa 4 bytes, valores inteiros de -2147483648 a 2147483647;
��� - Shortint : inteiros de -128 a 127;
��� - Byte : ocupa 1 byte, tipo inteiro de 0 a 255;
��� - Char : ocupa 1 byte, tipo alfanum�rico, seu conte�do � qualquer valor da
tabela ASCii;
��� - String : ocupa de 2 a 256 bytes, cadeia de caracteres;
2- UNITS
As units s�o rotinas separadas do programa principal. Para usar uma unit deve se
declarar Uses.
� possivel se criar uma unit pr�pria, para ser usada em v�rios programas.
��� Ex:
������������� IMPLEMENTATION
������������� USES Crt;
������������� VAR C : Integer;
������������� BEGIN
������������� END.
Quando num programa voc� declarar USES "Exemplo" e charmar a rotina "Logo" o logo
aprecer� piscando na tela.
��� Write ou WriteLn : escreve algo num dispositivo de sa�da, se o dispositivo n�o
for especificado o default ser� a tela do micro.
����������� WriteLn('Isto � uma string e sair� na tela');
��� ClrScr (Clear Screen): Permite limpar a tela, posicionando o cursor no canto
superior esquerdo. Equivale ao CLS do DOS.
4- ESTRUTURAS CONDICIONAIS
�As estruturas condicionais imnp�em uma condi��o para que uma tarefa seja
realizada.
��� Se a condi��o for satisfeita en�o executa um bloco de tarefas sen�o executa
outra tarefa ou cai fora da estrutura.
���� If <condi��o>
������� Then <bloco>;
����������� OU
��� If <Condi��o>
������� Then <bloco>
������� Else <bloco>;
��� O comando CASE � um seletor de op��es, executando a op��o que for igual a
express�o.
��� Ex.:
����������� CASE��� <express�o> Of
��������������������������� 1:bloco;
��������������������������� 2:bloco;
��������������������������� 3:bloco;
����������������������� Else
������������������������������� bloco;
������������������� END;
5- Estruturas de REPETI��O
��� Uma estrutura de repeti��o repete um bloco at� que a condi��o seja satisfeita.
5.1 FOR
Ex.:
�
ClrScr;
For L:=1 to 24 do
begin
GotoXY(1,L);
WrteLn('Esta � a linha ', l);
End;
5.2 WHILE
��������������� While <condi��o> Do
��� Enquanto a condi��o n�o for satisfeita fa�a
Ex.:
while x<100 do
begin
write('Digite um valor para A: ');
read(a);
x:=a+b;
end;
5.3 REPEAT
Ex.:
REPEAT
write('Aperte a tecla A');
read(tecla);
UNTIL tecla='a';
6- Manipala��o de STRINGS
��� Copy : Retorna uma substring de uma string de acordo com a posi��o e a
quantidade de caracteres predefinida.
��� Ex.:
��� v:='asdllgoprtfacillldeas'
��� Write(copy(v,11,5));
��� {na tela aparecer� a palavra 'facil'}
��� Val : converte uma string passada como parametro para o valor num�rico.
�
�7- FUNCTIONS & PROCEDURES
��� PROCEDURE
Ex.:
Program P_Exemplo;
Uses CRT;
Var op:byte;
Procedure Menu;
begin
�ClrScr;
�WriteLN('Digite sua Op��o:');
�WriteLN;
�WriteLN('1- Mostrar Registros');
�WriteLN('2- Fechar e Sair');
�OP:=readkey;
�End;
BEGIN
Clrscr;
Write('Aguarde carregando o programa...');
menu;��� {Aqui a procedure � chamada}
Case Op of
��� 1:<bloco>
��� 2:<bloco>
END.
FUNCTION
��� A FUNCTION � uma rotina que nos retorna um determinado valor. Da mesma
��� forma que uma procedure, uma FUNCTION deve ser declarada antes de ser
��� utilizada.
Ex.:
PROGRAM Ex_Function;
USES CRT;
VAR X:INTEGER;
BEGIN
� CLRSCR;
� WRITE ('DIGITE UM VALOR: ');
� READLN(X);
� X:=RESULTADO(X);
� WRITELN ('O RESULTADO � : ',X);
� DELAY (10000);
END.
8 - ARQUIVOS e REGISTROS
��� ARQUIVO
������� Para formar um arquivo, devemos formar uma vari�vel do tipo arquivo, al�m
de criar comandos de abertura, leitura e fechamento.
��� Ex.:
Type Registro=record
�������� Nome:string[50];
������� Endere�o:string[100];
������� Fone: string[8];
������� end;
Ex.: Reset(Arquivo);
- ReWrite: Permite Criar e Abrir um arquivo novo. Caso o arquivo j� exista, ter�
seu conte�do eliminado e ser� gerado um novo arquivo.
Ex.: ReWrite(Arquivo);
Ex.: Close(arquivo);
Ex.: Seek(Arquivo,0);
Ex.: x:=FilePos(Arquivo);
END.