Ir para o conteúdo
  • Revista PROGRAMAR: Já está disponível a edição #60 da revista programar. Faz já o download aqui!

raulcampeao

tratamento de ficheiros - ajuda

Mensagens Recomendadas

raulcampeao

program  Ficheiro_texto2;

uses crt;

var Fich: text;

  i, Quantos,quantidade : integer;

    nomeartigo: string;

    op:integer;

    prex: real ;

procedure inserir;

begin

  clrscr;

    Assign (fich, 'artigos.txt');

    rewrite(fich);

    writeln('Quantos produtos pretende registar?');

    readln(Quantos);

    for i:=1 to Quantos do

begin

    writeln('nomedo artigo:');

    readln(nomeartigo);

    writeln('pre€\o do artigo:');

    read (prex);

    writeln('quantidade:');

    readln (quantidade);

    writeln(fich,nomeartigo);

    writeln(fich,prex);

    writeln(fich,quantidade);

    end;

close(fich);

clrscr;

end  ;

procedure ver;

begin

clrscr;

reset(fich);

while not eof(fich) do

begin

    readln(fich,nomeartigo);

    readln(fich, prex);

    readln(fich,quantidade) ;

    writeln(' produtos em stock  ');

    writeln('nome  ',nomeartigo);

    writeln('pre€o  ',prex:5:2);

    writeln('quantidade  ',quantidade);

end ;

close(fich);

readln;

clrscr;

end;

begin

repeat

    writeln('******MENU******');

    writeln('1 inserir registo');

    writeln('2 consultar  stock');

    writeln('0 para sair');

    writeln;

    write('Escolha uma op€ao  ');

    readln(op);

    case op of

    1:inserir;

    2:ver;

    end;

    until op =0

 

end.

Este programa fonciona normalmente  da para inserir os artigos, para os ler tenhu um problema que nao consigo resolver .

vou explicar:

da para inserir os artigos e da para ver os artigos inseridos  mas se sem fechar o programa tento novamente inserir outro artigo da mas quando vou consultar a lista de artigos o anterior desapareçeu e so apareçe o ultimo . 

agradeçia ajuda urgentemente.

Partilhar esta mensagem


Ligação para a mensagem
Partilhar noutros sites
M6

Experimenta fazer Assign (fich, 'artigos.txt'); no procedimento ver antes de fazeres o reset.


10 REM Generation 48K!
20 INPUT "URL:", A$
30 IF A$(1 TO 4) = "HTTP" THEN PRINT "400 Bad Request": GOTO 50
40 PRINT "404 Not Found"
50 PRINT "./M6 @ Portugal a Programar."

 

Partilhar esta mensagem


Ligação 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

×

Aviso Sobre Cookies

Ao usar este site você aceita os nossos Termos de Uso e Política de Privacidade. Este site usa cookies para disponibilizar funcionalidades personalizadas. Para mais informações visite esta página.