Ir ao conteúdo
  • Cadastre-se

Exportar dados para arquivo de texto


Posts recomendados

eu preciso exportar os dados desse programinha assim como aparece na tela para texto ou planilha (de preferência planilha) mas tem algum erro que eu nao consigo fazer isso, alguem pode me ajudar , por favor?

 

o código é esse:


program comb;

uses crt;
var
   x,y,z,a,b,c:integer;
   cont:longint;
   arqcliente:text;
   
begin
    
assign(arqcliente , 'cliente.txt'); 


clrscr;
     x:=0;
     y:=0;
     z:=0;
     a:=0;
     b:=0;
     c:=0;
     cont:=0;
     for x:=1 to 10 do
         begin
              for y:=x+1 to 10 do
              begin
                   for z:=y+1 to 10 do
                   begin
                        for a:=z+1 to 10 do
                        begin
                             for b:=a+1 to 10 do
                             begin
                                  for c:=b+1 to 10 do
                                  begin
                                       cont:=cont+1;
               Writeln ('Numeracao: ',x,' - ',y,' - ',z,' - ',a,' - ',b,' - ',c,' = Total: ',cont);
                                  end;
                             end;
                        end;
                   end;
              end;
         end;
         
append(arqcliente);      
         
writeln(arqcliente , x);
writeln(arqcliente , y);
writeln(arqcliente , z);
writeln(arqcliente , a);
writeln(arqcliente , b );
writeln(arqcliente , c);




close(arqcliente);
          
         
readkey;
end.
Link para o comentário
Compartilhar em outros sites

  • 4 semanas depois...
  • Membro VIP

Olá a todos.

 

isso é pascal? ali no começo assign(arqcliente , 'cliente.txt'); 

nao seria? assign(arqcliente , 'c:\cliente.txt'); 

não esta falantando o local do arquivo?

Sim, é Pascal;  (é também)

Sim e não. Poderia ser também. São duas situações diferentes;

Então, do jeito que está, usa o "caminho relativo", ou seja, basicamente onde está o executável. Da forma que você sugere, seria um "caminho absoluto", ou seja, o "caminho completo" de onde deve "assinalar".

 

****

 

claudemi, faltou dizer qual é o erro... vou tentar resumir alguns pontos:

1) seria melhor abrir o arquivo no inicio do programa e não após "todo o trabalho". Se der algum erro, vai dá logo no início!

 

2) você não está verificado se o arquivo existe, logo tem que garantir que o arquivo esteja onde você estipulou no Assign() exista (e esteja acessível; não esteja como somente leitura... bla bla bla). Como está usando um caminho relativo, provavelmente deve ficar na mesma pasta onde está o executável (esse caminho relativo pode modificado internamente, mas acho que por padrão fica na mesma pasta do executável). RESUMIDAMENTE: deixe um arquivo de texto vazio lá na pasta como o nome "cliente.txt", ou crie um programa pelo código, tem o rewrite() que pode ajudar.

 

 

 

Para facilitar, fiz alguma modificações:

program comb;uses  CRT;var  x,y,z,a,b,c :integer;  cont        :integer;  arqCliente  :text;BEGINAssign(arqCliente, 'cliente.txt'); //assinala arquivo com o seu caminhoAppend(arqCliente); //abre o arquivo para escrita OBS.: O arquivo tem que já está no local !!!ClrScr; //limpa a telax:=0; y:=0; z:=0; a:=0; b:=0; c:=0; cont:=0; //zera as variáveis (teoricamente não precisa, o Pascal já zera automaticamente, mas não custa nada!)for x:=1 to 10 do  for y:=x+1 to 10 do    for z:=y+1 to 10 do      for a:=z+1 to 10 do        for b:=a+1 to 10 do          for c:=b+1 to 10 do            begin            cont:=cont+1;            writeln('Numeracao: ',x,' - ',y,' - ',z,' - ',a,' - ',b,' - ',c,' = Total: ',cont); //na tela            writeln(arqCliente,'Numeracao: ',x:2,' - ',y:2,' - ',z:2,' - ',a:2,' - ',b:2,' - ',c:2,' = Total: ',cont:3); //no arquivo            end;Close(arqCliente); //fecha o arquivoReadKey; //aguarda uma tecla ser pressionadaEND.

Se tiver alguma dúvida sobre o código ou como implementar a "verificação" e/ou "criação/recriação" do arquivo é só perguntar.

 

 

No aguardo.

Link para o comentário
Compartilhar em outros sites

Visitante
Este tópico está impedido de receber novas respostas.

Sobre o Clube do Hardware

No ar desde 1996, o Clube do Hardware é uma das maiores, mais antigas e mais respeitadas comunidades sobre tecnologia do Brasil. Leia mais

Direitos autorais

Não permitimos a cópia ou reprodução do conteúdo do nosso site, fórum, newsletters e redes sociais, mesmo citando-se a fonte. Leia mais

×
×
  • Criar novo...