problema com erro de execução

[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.

[M6]

Vê na documentação.

[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

[Soul_]

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

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

[dicas3d]

(ainda vou testar isso mas...)

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

[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. ?

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

[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.

[dicas3d]

Já não tem erro obrigado.

[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.