"Run Error 2" en pascal, a que se debe ? que error tiene este programa (es corto
Publicado por Max (4 intervenciones) el 09/09/2015 15:39:23
Lo que tendría que hacer este mini-programa es leer y escribir CARACTER POR CARACTER el texto de un archivo de tipo .txt, pero no me funciona ya que a pesar de que compila y ejecuta me da run error 2 o runtime error 2. Alguien me puede decir que le pasa ?
Gracias
Gracias
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
PROGRAM eaf;
CONST
fichero='C:\Users\Alumno\Desktop\TEXTO.TXT';
VAR
fic:text; cara:char;BEGIN
Assign(fic, fichero);
Reset(fic);
While not eof(fic) do begin
While not eoln(fic) do begin
Read(fic,cara);
Write(cara);
end;
Writeln;
Readln(fic,cara);
end;
Close(fic);
Readln;
END.Valora esta pregunta
0