• Revista PROGRAMAR: Já está disponível a edição #53 da revista programar. Faz já o download aqui!

joaovasco

Urgencia

2 mensagens neste tópico

Já agora o pessoal, tou aqui com mais uma duvida neste programa.

Queria acrescenta-lhe um ficheiro de clientes, no sentido de poder cruzar a informação relativa

aos clientes que compraram determinado automovel.

O programa tb devia apresentar listagem de todos os automoveis,pesquisa no ficheiro de automoveis segundo vários critérios;

Deve fazer o mesmo para o ficheiro de clientes, deve ainda permitir o cruzamento de

informação dos dois ficheiros no sentido de poder informar o utilizador acerca do cliente

que comprou determidado automovel ( no caso desse automovel ter sido vendido...)

Até agora isto é o que consegui resolver

Program Loja_musicaFase3 ;

Type

automoveis = record

Tipo:string;

Marca:string;

Modelo:string;

Cor:string;

Ano:integer;

Matricula:string;

end;

stand = file of automoveis;

Var

fich:stand;

reg:automoveis;

resp:char;

Procedure Ler (Var x:automoveis);

begin

writeln('Digite a marca do Automovel');

readln(x.Marca);

writeln('Digite o modelo do Automovel');

readln(x.Modelo);

writeln('Digite a cor do Automovel');

readln(x.Cor);

writeln('Digite o ano do Automovel');

readln(x.Ano);

writeln('Digite a matricula do Automovel');

readln(x.Matricula);

  end;

Procedure escrever(var xx:automoveis);

begin

writeln('A marca do automovel é',xx.Marca);

writeln('O modelo do automovel é',xx.Modelo);

writeln('A cor do automovel é',xx.Cor);

writeln('O ano do automovel é', xx.Ano);

writeln('A matricula do automovel é', xx.Matricula);

end;

  Function ExisteFich( xxx:string):boolean;

  Var

  f:stand;

  Begin

  {$I-}

  assign(fich,'c:\LP\LojaMF2.dat');

  reset(F);

  close (F);

  {$I+}

  If ioresult=0 then existefich:=true else existefich:=false;

  end;

Begin

assign (fich,'c:\LP\lojaM3.dat');

if existefich ('c:\LP\lojaMF2.dat') then

reset(fich) else rewrite(fich);

repeat

seek(fich,filesize(fich));

ler(reg);

write(fich,reg);

writeln('deseja continuar S\N ?');

readln(resp);

until (Resp = 'n') or  (resp = 'N')  ;

close (fich);

reset(fich);

read(fich,reg);

escrever(reg);

readln;

End.

Alguem sabe? :S

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

Podes sempre carregar a informação para listas em memoria e varrer as listas à procura de ligações...

Mas o melhor é teres uma bd a suportar isso e ser ela a fazer esse trabalho.

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

Crie uma conta ou ligue-se para comentar

Só membros podem comentar

Criar nova conta

Registe para ter uma conta na nossa comunidade. É fácil!


Registar nova conta

Entra

Já tem conta? Inicie sessão aqui.


Entrar Agora