pascal

program locadora; uses CRT; {carrega alguns comandos - ClrScr, ReadKey, TextColor, etc}

(* use constantes para determinar tamanhos vetores
(em arquivos nao existe maximo, em tese o limite sera o tamanho do hd)
*)
const MAX_CAD = 50; {maximo de clientes que podem ser cadastros} MAX_FILME = 100; {maximo de filmes que podem ser cadastrados} MAX_LOC = 100; {maximo de locacoes que podem ser feista (ou mesmo tempo?)}

MAX_LOCCAD = 3; {maximo de filmes que podem ser locados em uma locacao} type {Vetor e registro de cadastro de clientes} regCadastro = record nome :string[40]; sexo :string; endereco :string[100]; end; vetCadastro = array[1..MAX_CAD] of regcadastro;

{Vetor e registro de cadastro de filmes} regFilmes = record titulo :string[30]; genero :string[15]; quant_dvd :integer; (* quant_disponiveis:integer;} //o nome esta muito comprido *) quant_disp :integer; end; vetFilmes = array[1..MAX_FILME] of regFilmes;

{Vetor e registro de loca‡ao de um filme} vetCodFilmes = array [1..MAX_LOCCAD] of integer; {supondo que o cod é a posicacao no vetor!!!} regLocacao = record (* clientes :regcadastro; //o que precisa é o codigo do cliente!!! (que já deve tá //cadastrado! (no caso a posicao no vetor) *) cliente :integer; {posicao no vetor de clientes} data :string; {é possivel usar o 'datetime' (ver dps)} (* vetor_de_filmes:regfilmes; //o nome esta comprido e o tipo esta errado!!! //ou voce armazena os filmes