Ir para o conteúdo
dicas3d

problema com erro de execução

Mensagens Recomendadas

dicas3d    1
dicas3d

Olá. Eu estou a fazer um programa que faz leitura de ficheiros mas o fpc da-me sempre o exitcode 103.

Quem ja tiver tido este erro por favor ajude-me já que só sei que este erro quer dizerficheiro não aberto.

aqui está ocod.

program open;
uses crt;
var fich : text;
a : string;
begin
clrscr;
assign(fich,'1.txt');
read(fich, a);
close(fich);
writeln(a);
readln;
end.

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites
softklin    12
softklin

Bom, o meu Pascal já lá vai, mas posso-te deixar conceitos independentes de linguagem e que costumam atrofiar nestes casos, falo se o ficheiro já existe, se tem permissões de leitura/escrita, ...

Não sei se o Pascal é sensível a minúsculas/maiúsculas, também pode ser disso.

http://www.learn-programming.za.net/programming_pascal_learn10.html

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites
Soul_    0
Soul_

tens que indicar o caminho do ficheiro no assign file onde tu indicas o nome do ficheiro. :eek:

e se o ficheiro nao existir UTILIZAS REWRITE(FICH);

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites
dicas3d    1
dicas3d

Bom, o meu Pascal já lá vai, mas posso-te deixar conceitos independentes de linguagem e que costumam atrofiar nestes casos, falo se o ficheiro já existe, se tem permissões de leitura/escrita, ...

Não sei se o Pascal é sensível a minúsculas/maiúsculas, também pode ser disso.

http://www.learn-programming.za.net/programming_pascal_learn10.html

tens que indicar o caminho do ficheiro no assign file onde tu indicas o nome do ficheiro. :eek:

e se o ficheiro nao existir UTILIZAS REWRITE(FICH);

Infelizmente agora passou a exitcode 104. E testei todos os códigos do learn-programming o knão é normal j k o cnhço a mt tem+po

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites
Trinity    0
Trinity

Erros do teu código:

1.  Não estás a indicar correctamente o "caminho" do ficheiro no disco.

2. Não estás a criar o ficheiro. (fich)

3. Não estás a abrir o ficheiro.

Corrigindo apenas esses erros, o codigo será:

program open;
uses crt;
var fich : text;
a : string;
begin
clrscr;
assign(fich,'C:\1.txt');
rewrite(fich);
reset(fich);
read(fich, a);
close(fich);
writeln(a);
readln;
end.

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites
dicas3d    1
dicas3d

E já agora aqui está o código correcto.

antes ele não mostrava.

program open;
uses crt;
var fich : text;
a : string;
const b = 'C:\Documents and Settings\esen.ESENVISEU\Os meus documentos\1.txt';
begin
clrscr;
assign(fich,b);(*preparar ficheiro*)
reset(fich);(*prepara para ler o cntrrio é rewrite*)
read(fich, a);
close(fich);
writeln(a);
readln;
end.

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


×

Aviso Sobre Cookies

Ao usar este site você aceita os nossos Termos de Uso e Política de Privacidade