1.4 - Definição de tipos de dados e estruturas

Um programa é feito de duas partes, os dados, ou melhor, a estrutura dos dados e o algorítmo.

Na linguagem PASCAL existe uma área dentro do programa a qual utilizamos para definirmos a estrutura dos dados.

Podemos classificar os tipos de dados em duas categorias: simples e estruturados.

Um tipo simples é um tipo indivisível.

Podemos dizer que um dado tipo real, inteiro, boolean ou char é um tipo simples, ou também denominado de "atômico".

numero=real;
inteiro=[1..99];

a: numero;
k:inteiro;

Neste exemplo a variável a é uma variável real e k é uma variável inteira.

No exemplo foi definido dois tipos: numero é um real e inteiro é integer mas que tem a variação somente de 1 a 99.

Um tipo estruturado pode ser composto por diversos tipos atômicos.

Podemos estrutura-los como array, que já é nosso conhecido quando utilizamos matrizes, como file, record ou set.

O tipo file representará a definição de um arquivo seqüêncial.

O tipo record representará um conjunto fixo de variáveis (campos).

O tipo set serão variáveis que assumirão valores de conjuntos.

Neste capítulo vamos falar dos tipos file e record.

Veja este exemplo:

registro = record
matricula : 1..999;
nome_func: string[35];
endereco: string[40];
salario: real;
end;
arquivo = file of registro;

cadastro: arquivo;
funcionário:registro ;

Este exemplo define uma estrutura denominada registro composta dos campos, ou das variáveis, matricula, nome_func, endereco e salario.

Sempre que referenciarmos funcionario estaremos referenciando todas as variáveis que compõe o registro. Se quisermos somente utilizar a variável salario, devemos utilizar a seguinte composição:

funcionáio.salario.

Foi criada também uma variável chamada cadastro.

Quando referenciarmos a variável cadastro estaremos referenciando toda a estrutura, o arquivo e os registros que comporão este arquivo.

Agora vamos falar um pouco mais sobre arquivos.

Todos os problemas que você até hoje executou, utilizaram os dados que estavam na memória principal do computador.

Lembre-se que uma memória principal de um computador, é pequena, volátil.

Muitos de nossos problemas científicos e comerciais terão que manipular com grande quantidade de informação de dados de entrada ou saída, os quais não comportarão na memória principal.

O que fazer? Muitos de nossos problemas científicos e comerciais terão que armazenar informações de hoje para amanhã. O que fazer se desligo a máquina à noite?

Respostas simplista seria:

" ... aumente a memória principal do computador...então não desligue a máquina...!"

Mas, e se faltar energia durante a noite, ou mesmo durante o dia?

A memória do computador tá cara, no?

A saída para todas estas perguntas é a utilização de arquivos, os quais serão armazenados em memória auxiliar.

Outros nomes de memória auxiliar, disquetes, winchester, fitas magnéticas, memóriais secundárias etc...

Estas memórias são maiores e de gravação permanente.

A utilização de arquivos permitirá que parte do nosso volume de informações sejam colocados na memória principal e parte na memória secundária.

Quando se trabalha com arquivo devemos ter sempre em mente que haverá para cada arquivo criado, procedimentos especiais de manipulação do arquivo.

Básicamente estes procedimentos são denominados de: inclusão, alteração, exclusão, consulta.

Quando você ler o exemplo a seguir, da folha de pagamento, apreenderá melhor sobre estes procedimentos.

Agora que você apreendeu a definir uma estrutura e tem uma noção de o que é um arquivo, vamos dar os comandos PASCAL que irão manipular esta estrutura de arquivo para você.

ASSIGN - Irá associar o nome interno do arquivo com um nome externo no sistema operacional.Procedure assign (var File: file; nome:string);

CLOSE - Irá fechar um arquivo aberto. Quando não mais usarmos um arquivo devemos fecha-lo. Este procedimento demorará um pouco, mas se faz necessário por segunrança. Procedure close(var File:file);

EOF - (End of File) É uma função que poderá ser utilizada para verificar se já estamos no final de um arquivo. É uma função boolean, retornará TRUE se estiver no fim do arquivo. Function eof(var File: file):boolean;

ERASE - Apaga um arquivo. Procedure erase(var File: file);

FILEPOS - Retorna a posição de leitura/gravação dentro do arquivo. Function filepos(var File:file): longint;

FILESIZE - Retorna o tamanho do arquivo aberto em registros. Function filesize(var File: file): longint;

IORESULT - Retorna o resultado da última operação de E/S. O número 0 indica que houve sucesso no comando de entrada/saída. Function ioresult: word;

READ/READLN - Lê os dados de um registro. Procedure readln([var File: file;] var registro);

RENAME - Renomeia um arquivo. É possivel também mover um arquivo. Procedure rename(var File:file; novonome:string);

RESET - Abre um arquivo existente e posiciona -se no início. Procedure reset(var File:file);

REWRITE - Cria e abre um arquivo. Se existir todo o seu conteúdo será perdido. Procedure rewrite(var File:file);

SEEK - Move até o registro especificado. Procedure seek(var File:file; nunreg:logint);

WRITE/WRITELN - Grava o conteúdo de um registro. Procedure write([var File:file ;] var registro);

Em pascal poderemos trabalhar com arquivos tipados (sequencial ou direto) e arquivos textos.

Nesta disciplina somente nos deteremos nos arquivos tipados.

Vamos, agora, fazer um exemplo utilizando os comandos de arquivos.

Um exemplo bem corriqueiro é uma folha de pagamento.

O básico de uma folha de pagamento é manter um arquivo que contenha os registros de todos os funcionários da empresa.

Como os funcionários casam, tem filhos, são despedidos outros são admitidos, tem aumento de salário (é uma possibilidade remota, mas poderá existir), a primeira idéia que surge é que para este arquivo temos que ter posibilidade de: primeiramente criar o arquivo, depois incluir registros.

Poder alterar, poder excluir registros também se fará necessário.

No caso especial da folha de pagamento também deveremos ter uma opção de calcular a folha.

De novo, para você não esquecer, " A manutenção de um arquivo requer que possamos criar o arquivo, incluir registros, alterar, excluir, ordenar".

Ordenar, significa classificar, porque as pessoas que serão funcionários da empresa poderão ter nomes como Zozimo, tempos depois poderá ser contratada a Androziana, e o patrão vai querer tudo em ordem alfabética.

Podemos imaginar o nosso problema da seguinte forma: Ou seja, o melhor método de resolvermos um problema extenso, é subdividi-lo em problemas menores.

Antes de aprofundarmos nestas rotinas vamos definir o arquivo o qual conterá uma estrutura de registros com os campos de

Veja como fica o início deste programa.

program folha;
uses crt; (* Este comando diz ao compilador que será utilizada a bibilioteca crt vista nos capítulos anteriores*)
type registro = record
matric:1..999;
nome :string[35];
ns :1..100;
nf :1..20;
sal :real;
sfam :real;
inps :real;
sliq :real;
end;
arquivo = file of registro;

var
cadastro: arquivo;
func : registro;
i,opcao : integer;
sim : string[1];
tamanho : longint;
fim : boolean;
(* Neste seqüência de comandos criamos nossas variáveis.Como elas estão definidas no início de nosso programa, antes de qualquer procedimento, elas serão tratadas como variáveis globais, ou seja, estarão presentes em todos os procedimentos, para utiliza-las é só referência-las.*)
(* procedimento tela principal *)
procedure telaprincipal;
begin
clrscr;
highvideo;
gotoxy(25,05);
write(' - Sistema de Folha de Pagamento -');
lowvideo;
gotoxy(25,07); write('1 - Inclui Funcionários');
gotoxy(25,09); write('2 - Exclui Funcionários');
gotoxy(25,11); write('3 - Altera Funcionário');
gotoxy(25,13); write('4 - Ordena Cadastro');
gotoxy(25,15); write('5 - Calcula Folha');
gotoxy(25,17); write('6 - Cria Arquivo Cadastro');
gotoxy(25,19); write('7 - Fim do Programa');
gotoxy(25,21); write(' - Digite sua opcao');
end;

(* Criação do arquivo cadastro *)
procedure cria;
begin
{$I-}
reset(cadastro);
{$I+}
if ioresult = 0 then
repeat
gotoxy(25,24);
write('O arquivo ja existe. Todos os dados serao perdidos (s/n) ?');
readln(sim);
if (sim ='s') or (sim = 'S') then
rewrite(cadastro);
until (sim ='s') or (sim = 'S') or (sim = 'n') or (sim = 'N')
else rewrite(cadastro);
end;

(* Inclusao de funcionarios *)
procedure inclui;
begin
reset(cadastro);
tamanho:=filesize(cadastro);
seek(cadastro,tamanho);
repeat
clrscr;
gotoxy(3,10); write('Matricula..: ___');
gotoxy(3,12); write('Nome.......: __________________________________');
gotoxy(3,14); write('N. salarios: __');
gotoxy(3,16); write('N.filhos...: __');
gotoxy(16,10); readln(func.matric);
if func.matric <> 0 then
begin
gotoxy(16,12); readln(func.nome);
gotoxy(16,14); readln(func.ns);
gotoxy(16,16); readln(func.nf);
func.sal:=0;
func.sfam:=0;
func.inps:=0;
func.sliq:=0;
write(cadastro,func);
end;
until func.matric = 0;
close(cadastro);
end;

(* Alteracao dos dados dos funcionarios - Procedimento incompleto *)
procedure altera;
begin
reset(cadastro);
clrscr;
while not eof(cadastro) do
begin
read(cadastro,func);
writeln(func.matric:3,func.nome:35,func.ns:2,func.nf:2);
end;
delay(3000);
close(cadastro);
end;
(* Exclusao de funcionarios - Procedimento incompleto*)
procedure exclui;
begin
end;

(* Ordenacao do Arquivo - Procedimento incompleto*)
procedure ordena;
begin
end;
(* Calculo da folha - Procedimento incompleto*)
procedure calcula;
begin
end;
(* Programa Principal *)
begin
assign(cadastro,'a:\empresa.dat');
fim := false;
repeat
repeat
telaprincipal;
gotoxy(25,21); readln(opcao);
until opcao in [1..7];
case opcao of
1 : inclui;
2 : exclui;
3 : altera;
4 : ordena;
5 : calcula;
6 : cria;
7 : fim:= true;
end;
until fim;
end.