... Bem... Eu parei ai nesse Programa e acabei esquecendo de colocar o texto aqui antes de viajar...
... Basicamente se houver algum problema ele esta' na Sintax de Manipulacao de Arquivos e alguma coisa boa na qual eu me passei...
... Como nao domino Arquivos e preciso de discanso nao procurarei corrigir a parte de Arquivos agora...
... Talvez eu coloque a parte que ficou por ultimo...
... Tomara que gostem...
----------
program Locadora;
type registroclientes = record
codigo: string;
nome: string;
end;
registroveiculos = record
codigo: string;
nome: string;
tipo: string;
end;
registromovimentacoes = record
codigolocacao: string;
cofigocliente: string;
nomecliente: string;
codigoveiculo: string;
nomeveiculo: string:
tipoveiculo: string:
datasaida: string;
dataentrada: string:
end;
procedure cadastroclientes(var x: integer);
var c,i,p: integer;
begin
i:=1;
p:=x;
writeln('°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°Cadastro De Clientes°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°');
writeln('Digite o numero da opcao da tarefa que voce deseja executar');
writeln('1 - Inclusao De Cliente');
writeln('2 - Alteracao De Dados');
writeln('3 - Consultar Dados');
writeln('4 - Excluir Cliente');
writeln('0 - Menu Principal');
writeln();
write('Sua opcao eh ');
readln(p);
writeln();
writeln('°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°');
if p=1 then
begin
repeat
if (vetorclientes[i].codigo = '') then
begin
assign(vetorclientes[i],'CLIENTES.BIN');
writeln('Digite o codigo do cliente novo');
readln(vetorclientes[i].codigo);
writeln('Digite o nome do cliente novo');
readln(vetorclientes[i].nome);
write(vetorclientes[i]);
close(vetorclientes[i]);
writeln();
writeln('°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°');
end;
i:=i+1;
until (vetorclientes[i].codigo = '') or (i=11);
if (i=11) then
begin
writeln('Nao existe vaga para adicionar cliente');
writeln();
writeln('°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°');
end;
end;
if p=2 then
begin
writeln('Digite o codigo do cliente que deseja efetuar a mudanca')
readln(c);
repeat
if (vetorclientes[i].codigo = c) then
begin
assign(vetorclientes[i],'CLIENTES.BIN');
rewrite(vetorclientes[i]);
writeln('Digite o codigo do cliente');
readln(vetorclientes[i].codigo);
writeln('Digite o nome do cliente');
readln(vetorcliente[i].nome);
write(vetorclientes[i]);
close(vetorclientes[i]);
writeln();
writeln('°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°');
end;
i:=i+1;
until (vetorclientes[i].codigo = c);
if (i=11) then
begin
writeln('Nao existe cliente com esse codigo');
writeln();
writeln('°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°');
end;
end;
if p=3 then
begin
writeln('Digite o codigo dos dados que voce deseja consultat');
readln(c);
repeat
if (vetorclientes[i].codigo = c) then
begin
assign(vetorclientess[i],'CLIENTES.BIN');
write('Codigo do cliente - ');
writeln(vetorclientes[i].codigo);
write('Nome do veiculo - ');
writeln(vetorclientes[i].nome);
close(vetorclientes[i]);
writeln();
writeln('°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°');
end;
i:=i+1;
until (vetorclientes[i].codigo = c);
if (i=11) then
begin
writeln('Nao existe cliente com esse codigo');
writeln();
writeln('°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°');
end;
end;
if p=4 then
begin
writeln('Digite o codigo dos dados que voce deseja excluir');
readln(c);
repeat
if (vetorclientes[i].codigo = c) then
begin
assign(vetorclientes[i],'CLIENTES.BIN');
writeln('Tecle ENTER para apagar o codigo');
rewriteln(vetorclientes[i].codigo);
writeln('Tecle ENTER para apagar o nome');
rewriteln(vetorclientes[i].nome);
close(vetorclientes[i]);
writeln();
writeln('°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°');
end;
i:=i+1;
until (vetorclientes[i].codigo = c);
if (i=11) then
begin
writeln('Nao existe cliente com esse codigo');
writeln();
writeln('°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°');
end;
end;
end;
procedure cadastroveiculos(var x: integer);
var c,i,p: integer;
begin
i:=1;
p:=x;
writeln('°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°Cadastro De Veiculos°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°');
writeln('Digite o numero da opcao da tarefa que voce deseja executar');
writeln('1 - Inclusao De Veiculo');
writeln('2 - Alteracao De Dados');
writeln('3 - Consultar Dados');
writeln('4 - Excluir Veiculo');
writeln('0 - Menu Principal');
writeln();
write('Sua opcao eh ');
readln(p);
writeln();
writeln('°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°');
if p=1 then
begin
repeat
if (vetorveiculos[i].codigo = '') then
begin
assign(vetorveiculos[i],'VEICULOS.BIN');
writeln('Digite o codigo do veiculo novo');
readln(vetorveiculos[i].codigo);
writeln('Digite o nome do veiculo novo');
readln(vetorveiculos[i].nome);
writeln('Digite o tipo do veiculo novo');
readln(vetorveiculos[i].tipo);
write(vetorveiculos[i]);
close(vetorveiculos[i]);
writeln();
writeln('°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°');
end;
i:=i+1;
until (vetorveiculos[i].codigo = '') or (i=11);
if (i=11) then
begin
writeln('Nao existe vaga para adicionar veiculo');
writeln();
writeln('°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°');
end;
end;
if p=2 then
begin
writeln('Digite o codigo do veiculo que deseja efetuar a mudanca')
readln(c);
repeat
if (vetorclientes[i].codigo = c) then
begin
assign(vetorveiculos[i],'VEICULOS.BIN');
rewrite(vetorveiculos[i]);
writeln('Digite o codigo do veiculo');
readln(vetorveiculos[i].codigo);
writeln('Digite o nome do veiculo');
readln(vetorveiculos[i].nome);
writeln('Digite o tipo do veiculo novo');
readln(vetorveiculos[i].tipo);
write(vetorveiculos[i]);
close(vetorveiculos[i]);
writeln();
writeln('°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°');
end;
i:=i+1;
until (vetorveiculos[i].codigo = c);
if (i=11) then
begin
writeln('Nao existe veiculo com esse codigo');
writeln();
writeln('°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°');
end;
end;
if p=3 then
begin
writeln('Digite o codigo dos dados que voce deseja consultat');
readln(c);
repeat
if (vetorveiculos[i].codigo = c) then
begin
assign(vetorveiculos[i],'VEICULOS.BIN');
write('Codigo do veiculo - ');
writeln(vetorveiculos[i].codigo);
write('Nome do veiculo - ');
writeln(vetorveiculos[i].nome);
write('Tipo do veiculo - ');
writeln(vetorveiculos[i].tipo);
close(vetorveiculos[i]);
writeln();
writeln('°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°');
end;
i:=i+1;
until (vetorveiculos[i].codigo = c);
if (i=11) then
begin
writeln('Nao existe veiculo com esse codigo');
writeln();
writeln('°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°');
end;
end;
if p=3 then
begin
writeln('Digite o codigo dos dados que voce deseja excluir');
readln(c);
repeat
if (vetorveiculos[i].codigo = c) then
begin
assign(vetorveiculos[i],'VEICULOS.BIN');
writeln('Tecle ENTER para apagar o codigo');
rewriteln(vetorveiculos[i].codigo);
writeln('Tecle ENTER para apagar o nome');
rewriteln(vetorveiculos[i].nome);
writeln('Tecle ENTER para apagar o tipo');
rewriteln(vetorveiculos[i].tipo);
close(vetorveiculos[i])
writeln();
writeln('°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°');;
end;;
i:=i+1;
until (vetorveiculos[i].codigo = c);
if (i=11) then
begin
writeln('Nao existe veiculo com esse codigo');
writeln();
writeln('°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°');
end;
end;
end;
procedure movimentacao(var x: integer);
var c,i,p: integer;
begin
p:=x;
writeln('°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°Movimentacao°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°');
writeln('Digite o numero da opcao da tarefa que voce deseja executar');
writeln('1 - Locar');
writeln('2 - Data de devolucao');
writeln('0 - Menu Principal');
writeln();
write('Sua opcao eh ');
readln(p);
writeln();
writeln('°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°');
if p=1 then
begin
repeat
if (vetormovimentacoes[i].codigolocacao = '') then
begin
assign(vetormovimentacoes[i],'LOCACOES.BIN');
write('Codigo da locacao - ');
writeln(vetorveiculos[i].codigolocacao);
write('Codigo do cliente - ');
writeln(vetorveiculos[i].cofigocliente);
write('Nome do cliente - ');
writeln(vetorveiculos[i].nomecliente);
write('Codigo do veiculo - ');
writeln(vetorveiculos[i].codigoveiculo);
write('Nome do veiculo - ');
writeln(vetorveiculos[i].nomeveiculo);
write('Tipo do veiculo - ');
writeln(vetorveiculos[i].tipoveiculo);
write('Data de saida - ');
writeln(vetorveiculos[i].datasaida);
write('Data de entrada - ');
writeln(vetorveiculos[i].dataentrada);
write(vetormovimentacoes[i]);
close(vetormovimentacoes[i]);
writeln();
writeln('°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°');
end;
i:=i+1;
until (vetormovimentacoes[i].codigolocacao = '') or (i=11);
if (i=11) then
begin
writeln('Nao existe veiculo disponivel');
writeln();
writeln('°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°');
end;
end;
if p=2 then
begin
repeat
if (vetormovimentacoes[i].codigolocacao = c) then
begin
assign(vetormovimentacoes[i],'LOCACOES.BIN');
writeln('Digite o codigo da locacao');
readln(vetorveiculos[i].codigolocacao);
writeln('Digite o codigo do cliente');
readln(vetorveiculos[i].cofigocliente);
writeln('Digite o nome do cliente');
readln(vetorveiculos[i].nomecliente);
writeln('Digite o codigo do veiculo');
readln(vetorveiculos[i].codigoveiculo);
writeln('Digite o nome do veiculo');
readln(vetorveiculos[i].nomeveiculo);
writeln('Digite o tipo do veiculo');
readln(vetorveiculos[i].tipoveiculo);
writeln('Digite a data de saida');
readln(vetorveiculos[i].datasaida);
writeln('Digite a data de entrada');
readln(vetorveiculos[i].dataentrada);
write(vetormovimentacoes[i]);
close(vetormovimentacoes[i]);
writeln();
writeln('°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°');
end;
i:=i+1;
until (vetormovimentacoes[i].codigolocacao = '') or (i=11);
if (i=11) then
begin
writeln('Nao existe vaga para locacao');
writeln();
writeln('°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°');
end;
end;
end;
var a: integer;
vetorclientes: array [1..10] of file of registroclientes;
vetorveiculos: array [1..10] of file of registroveiculos;
vetormovimentacoes: array [1..10] of file of registromovimentacoes;
begin
a:=1;
while (a=1) or (a=2) or (a=3) do
begin
write('°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°');
write('°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°Locadora De Veiculos°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°');
writeln('°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°');
writeln('Digite o numero da opcao da tarefa que voce deseja executar');
writeln();
writeln('1 - Cadastro De Clientes');
writeln('2 - Cadastro De Veiculos');
writeln('3 - Movimentacoes');
writeln('Ou tecle qualquer outro digito para sair desse programa');
writeln();
write('Sua opcao eh ');
readln(a);
writeln();
writeln('°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°');
case a of
1: cadastroclientes(a);
2: cadastroveiculos(a);
3: movimentacao(a);
end;
end;
end.
