Postagens
Não informado
Gostaria que alguém me ajudasse com um programa de garagem que estou fazendo
eu só não sei como fazer o procedimento de exclusão se alguém tiver uma dica por favor me ajude.
Desde já, Agradeço e Medesculpem por alguma irregularidade no post.
o programa é esse:
program Garage;
uses crt;
type
ficha=record
comprador:string[20];
CPF:string[11];
marca:string[15];
ano:string[4];
modelo:string[15];
PC:real;
PV:real;
end;
var
cliente:ficha;
garagem:file of ficha;
menu:char;
tamanho:integer;
procedure preenche;
begin
tamanho:=filesize(garagem);
seek(garagem,tamanho);
readln;
writeln('Informe o nome do comprador');
readln(cliente.comprador);
while cliente.comprador <> '0'do
begin
With cliente do
begin
readln;
writeln('Informe o numero do CPF.');
readln(CPF);
writeln('Informe a marca do carro.');
readln(marca);
writeln('Informe o modelo do carro.');
readln(modelo);
writeln('Informe o ano do carro.');
readln(ano);
writeln('Informe o pre‡o de custo.');
readln(PC);
writeln('Informe o pre‡o de venda do carro.');
readln(PV);
write(garagem,cliente);
writeln('Informe o nome do comprador');
read(comprador);
end;
end;
close (garagem)
end;
procedure Leitura;
begin
reset(garagem);
while not eof(garagem) do
begin
read(garagem,cliente);
with cliente do
begin
readln;
write('Nome do comprador:',comprador);
readln;
write('Numero do cpf:',CPF);
readln;
write('Marca do carro:',marca);
readln;
write('Ano do carro:',modelo);
readln;
write('Modelo do carro:',ano);
readln;
write('Preco de compra:',PC:10:2);
readln;
write('Preco de venda:',PV:10:2);
end;
readln;
end;
end;
Procedure criaracesso;
begin
{$I-}
Reset(garagem);
If IOresult <> 0
then rewrite(garagem);
{$I+}
end;
Procedure busca;
var
proc:string[11];
achou:boolean;
begin
achou:=false;
clrscr;
readln;
writeln('digite o CPF do comprador');
read(proc);
reset(garagem);
readln;
while not eof(garagem) and (not achou) do
begin
read(garagem,cliente);
if cliente.cpf = proc then
begin
writeln('Nome:',cliente.comprador);
writeln('CPF:',cliente.CPF);
writeln('Marca:',cliente.marca);
writeln('Ano:',cliente.modelo);
writeln('Modelo:',cliente.ano);
writeln('Preco de Compra:',cliente.PC:10:2);
writeln('Preco de Venda:',cliente.PV:10:2);
achou:= True;
readln;
end;
end;
if not achou then write('Cliente nao cadastrado');
readln;
close(garagem);
end;
Procedure Modificacao;
var
proc:string[11];
achou:boolean;
begin
achou:=false;
clrscr;
readln;
writeln('digite o CPF do comprador');
read(proc);
reset(garagem);
readln;
while not eof(garagem) and (not achou) do
begin
read(garagem,cliente);
if cliente.cpf = proc then
begin
writeln('Nome:',cliente.comprador);
writeln('CPF:',cliente.CPF);
writeln('Marca:',cliente.marca);
writeln('Ano:',cliente.modelo);
writeln('Modelo:',cliente.ano);
writeln('Preco de Compra:','R$',cliente.PC:10:2);
writeln('Preco de Venda:','R$',cliente.PV:10:2);
achou:= True;
readln;
reset(garagem);
seek(garagem,tamanho);
writeln('Nome do Comprador:');
readln(cliente.comprador);
writeln('CPF do Comprador:');
readln(cliente.CPF);
writeln('Marca do Carro:');
readln(cliente.marca);
writeln('Modelo do Carro:');
readln(cliente.modelo);
writeln('Ano do Carro:');
readln(cliente.ano);
writeln('Preco de Compra:');
readln(cliente.PC);
writeln('Preco de Venda:');
readln(cliente.PV);
write(garagem,cliente);
end;
end;
if not achou then write('Cliente nao cadastrado');
readln;
close(garagem);
end;
Procedure Baixa;
var
garagem,aux:file of ficha;
Achou:boolean;
proc:string[11];
begin
achou:=false;
clrscr;
readln;
writeln('digite o CPF do comprador');
read(proc);
reset(garagem);
readln;
while not eof(garagem) and (not achou) do
begin
read(garagem,cliente);
if cliente.cpf = proc then
begin
writeln('Nome:',cliente.comprador);
writeln('CPF:',cliente.CPF);
writeln('Marca:',cliente.marca);
writeln('Ano:',cliente.modelo);
writeln('Modelo:',cliente.ano);
writeln('Preco de Compra:',cliente.PC:10:2);
writeln('Preco de Venda:',cliente.PV:10:2);
achou:= True;
readln;
end;
end;
if not achou then write('Cliente nao cadastrado');
readln;
close(garagem);
end;
end;
begin
assign(garagem,'E:\Producao.dat');
criaracesso;
menu:='0';
repeat
clrscr;
gotoxy(38,1);
writeln('Menu');
gotoxy(20,2);
writeln('¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯®®®®®®®®®®®®®®®®®®®®');
gotoxy(38,4);
writeln('1-Cadastro');
gotoxy(38,6);
writeln('2-Leitura');
gotoxy(38,8);
writeln('3-Buscar');
gotoxy(38,10);
writeln('4-Modificar');
gotoxy(38,12);
writeln('5-Sair');
gotoxy(20,14);
writeln('¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯®®®®®®®®®®®®®®®®®®®®');
read(menu);
clrscr;
if(menu in ['1','2','3','4','5'])
then
begin
case menu of
'1':Preenche;
'2':Leitura;
'3':Busca;
'4':Modificacao;
'5':exit;
else write('erro de opcao');
end;
end;
until menu='0';
{criaracesso;
preenche;}
leitura;
read;
end.
