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

dicas3d

problema com erro de execução

9 mensagens neste tópico

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.

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

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);

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

(ainda vou testar isso mas...)

ou seja entre o assign e o read colocar rewrite. certo?

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

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

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

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.

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

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.

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