Atendendo ao pedido do Leitor Francisco através do CChat:
"Francisco: oii gostaria de ver aulas de pascal sobre registros e modularização"
Vamos a alguns exemplos e teoria.
Eu particularmente utilizo o Free Pascal:
http://professorwellingtontelles.blogspot.com/2010/05/free-pascal-o-turbo-pascal-gratis-e.html
Algumas pessoas utilizar o original Turbo Pascal 7:
http://professorwellingtontelles.blogspot.com/2010/10/turbo-pascal-70.html
e outras Faculdades/Universidade o Pascal Zim:
Link: http://pascalzim.tripod.com/
Todos eles são linguagem Pascal e há pequenas diferenças.
Registros
Em resumo é uma forma de organizar e agrupar um conjunto de dados que se refere a uma informação completa.
Como exemplo vamos pensar como armazenar um conjunto de clientes. Os clientes tem: Nome, Endereço, Telefone e Data de Nascimento.
A primeira coisa que você pode pensar e criar um conjunto para cada parte do Cliente e cada parte ter uma ARRAY (conjunto).
Nessa forma o programa ficaria assim:
var
nome : Array [1..100] of String [50];
endereco: Array [1..100] of String [50];
telefone: Array [1..100] of String[10];
datanascimento: Array [1..100] of String[10];
Não vejo impedimento algum, mas te viver mais CAMPOS e tiver que fazer uma alteração o programa fica mais complicado, mas como organizar e transformar em REGISTROS que além de organizar veremos como armazená-lo.
type
cliente = record
nome : String[50];
endereco: String[50];
telefone: String[10];
datanasc: String [10];
var
tabela: Array [1..100] of cliente;
tab: cliente;
Dessa forma nós criamos um novo tipo de variável chamada CLIENTE e quando precisar usar a variável no meio do programa:
tab.nome
tab.endereco
tab.telefone
tab.datanasc
ou
tabela[1].nome
tabela[1].endereco
tabela[1].telefone
tabela[1].datanasc
Em resumo, essas são as partes da variável.
Modularização
Você já se deparou com um problema grande ou uma parte do programa vai ser igual várias vezes?
Se a resposta é sim, então você precisa DIVIDIR o seu programa em módulos (PROCEDURE ou FUNCTION).
Procedure é utilizando quando não há um retorno de resultado.
Function é utilizando quando há um retorno de resultado.
Exemplos:
procedure tela_principal;
begin
...
end;
function fatorial (n: Integer): Integer;
begin
...
end;
Em ambos pode ser enviado ou não um valor como no exemplo do fatorial e veja que o resultado do fatorial será um número inteiro (INTEGER).
Dicas para uso de procedure e function:
- digite logo após a declação da variáveis;
- uma procedure ou function não deve ser chamada antes da sua declaração, ou seja, digite a procedure/function e depois a use;
Na próxima parte eu colocarei programas exemplos completos e vamos prosseguir com gravação de arquivos.
