0% acharam este documento útil (0 voto)
6 visualizações6 páginas

Pascal

O tutorial de Turbo Pascal aborda conceitos fundamentais, incluindo tipos de variáveis, unidades, comandos básicos, estruturas condicionais e de repetição, manipulação de strings, funções e procedimentos, além de arquivos e registros. O documento fornece exemplos práticos de sintaxe e uso de cada conceito, facilitando a compreensão para iniciantes. É uma introdução abrangente ao desenvolvimento de programas em Turbo Pascal.

Enviado por

Manabu Yamamoto
Direitos autorais
© © All Rights Reserved
Levamos muito a sério os direitos de conteúdo. Se você suspeita que este conteúdo é seu, reivindique-o aqui.
Formatos disponíveis
Baixe no formato TXT, PDF, TXT ou leia on-line no Scribd
0% acharam este documento útil (0 voto)
6 visualizações6 páginas

Pascal

O tutorial de Turbo Pascal aborda conceitos fundamentais, incluindo tipos de variáveis, unidades, comandos básicos, estruturas condicionais e de repetição, manipulação de strings, funções e procedimentos, além de arquivos e registros. O documento fornece exemplos práticos de sintaxe e uso de cada conceito, facilitando a compreensão para iniciantes. É uma introdução abrangente ao desenvolvimento de programas em Turbo Pascal.

Enviado por

Manabu Yamamoto
Direitos autorais
© © All Rights Reserved
Levamos muito a sério os direitos de conteúdo. Se você suspeita que este conteúdo é seu, reivindique-o aqui.
Formatos disponíveis
Baixe no formato TXT, PDF, TXT ou leia on-line no Scribd
Você está na página 1/ 6

------------------------------------------------------------------------

Tutorial de Turbo 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

�- Todo programa come�a com a declara��o PROGRAM seguido de um nome do programa.


�- Ap�s deve-se declarar as unidades.
�- Declarar as vari�veis.
�- O algor�tmo em si come�a com BEGIN e termina com END. (n�o esque�a do ponto no
end);
�- Todas as instru��es terminam com ; .

��� 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;

As pr�ximas vari�veis s�o s� para o Turbo Pascal 5 ou superior


��� - Single : tipo real com 7 digitos
��� - Double : tipo real com 15 digitos
��� - Extended : tipo real com 19 digitos
��� - Comp : inteiros de -10E18 at� 10E18

��� Obs: A atribui��o de um valor a uma variavel � com :=


����������� Soma:=(1+2+3+4);

2- UNITS

As units s�o rotinas separadas do programa principal. Para usar uma unit deve se
declarar Uses.

��� - CRT: rotinas de v�deo e som;


��� - DOS: Controles do SO;
��� - GRAPH: Rotinas gr�ficas;
��� - PRINTER: Define LST como arquivo de texto direcionado para impressora;

� possivel se criar uma unit pr�pria, para ser usada em v�rios programas.
��� Ex:

����������� UNIT Exemplo;


������������� INTERFACE
������������� PROCEDURE Logo;

������������� IMPLEMENTATION
������������� USES Crt;
������������� VAR C : Integer;

������������� PROCEDURE Logo;


������������� BEGIN
������������� For C:=1 to 15 do
������������� TextColor(c);
������������� WriteLn('|------------------------|');
������������� WriteLn('|� Exemplo de um logo�� |');
������������� WriteLn('|------------------------|');
������������� END;

������������� BEGIN
������������� END.

Quando num programa voc� declarar USES "Exemplo" e charmar a rotina "Logo" o logo
aprecer� piscando na tela.

3- COMANDOS B�SICOS DE I/O

��� 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');

��� Read ou ReadLn : Permite a entrada de dados via teclado


����������� Write('Digite um valor para X: )'
��������������� Read(x);

��� ClrScr (Clear Screen): Permite limpar a tela, posicionando o cursor no canto
superior esquerdo. Equivale ao CLS do DOS.

��� GotoXY : Posiciona o cursor em qualque parte da tela.


����������� GotoXY(Coluna, Linha);
��� Delay : Permite uma pausa no programa em milisegundos. (Este comando funciona
conforme o clock do computador, sendo diferente em cada tipo de computador);
����������� Delay(1000);

4- ESTRUTURAS CONDICIONAIS

�As estruturas condicionais imnp�em uma condi��o para que uma tarefa seja
realizada.

4.1 - Condi��o IF.. Then.. Else (Se.. Ent�o.. Sen�o);

��� 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>;

4.2 - Instru��o CASE;

��� 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

��� FOR X:=1 to 10 do


��� Begin
��� <Bloco>� { O bloco ser� repetido at� que x tenha o valor 10}
��� end;

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

��� Repete enquanto a condi��o n�o for satisfeita.

Ex.:

REPEAT
write('Aperte a tecla A');
read(tecla);
UNTIL tecla='a';

6- Manipala��o de STRINGS

��� Lenght : Retorna a quantidade de caracteres contidas em uma string

��� Pos : Retorna a posi��o de uma sub-string dentro de uma string

��� 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

������� Uma Procedure Realiza uma s�rie de tarefas quando chamada.

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;

FUNCTION RESULTADO (Y:INTEGER): INTEGER;


BEGIN
� Y:=Y*Y;
� RESULTADO:=Y;
END;

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.

- File: Define uma vari�vel como sendo arquivo.

��� Ex.:

Type Registro=record
�������� Nome:string[50];
������� Endere�o:string[100];
������� Fone: string[8];
������� end;

VAR Arquivo:File of Registro;


������� Reg:registro;

- Assign: Este procedimento associa um nome externo de arquivo a uma vari�vel do


tipo arquivo.
Ex.: Assign (Arquivo,' d:\ficha.dat');

- Reset: Este procedimento permite abrir um arquivo j� existente. No caso do


arquivo n�o existir ocorrer� erro.

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);

- Close: Este procedimento permite que se feche um arquivo. � necess�rio fechar um


arquivo para n�o ocorrer erro com a FAT do Sistema Operacional.

Ex.: Close(arquivo);

- Write: Permite gravar em um arquivo.

Ex.: Write (arquivo, reg); {Grava todo o reg no arquivo}

- EOF: Retorna o valor TRUE quando for encontrado o fim do arquivo.

Ex.: While not eof(arquivo) do


������� begin
������� x:=x+1;
������� Seek (arquivo,x);
������� end;

- Seek: Este procedimento permite que movamos(do verbo 'movar') o ponteiro do


arquivo para uma posi��o preestabelecida.

Ex.: Seek(Arquivo,0);

- FilePos: Retorna a posi��o atual do ponteiro do arquivo.

Ex.: x:=FilePos(Arquivo);

- FileSize: Retorna o numero de registros de um arquivo.

END.

Você também pode gostar

pFad - Phonifier reborn

Pfad - The Proxy pFad of © 2024 Garber Painting. All rights reserved.

Note: This service is not intended for secure transactions such as banking, social media, email, or purchasing. Use at your own risk. We assume no liability whatsoever for broken pages.


Alternative Proxies:

Alternative Proxy

pFad Proxy

pFad v3 Proxy

pFad v4 Proxy