Pascal/Turbo Pascal - "Run Error 2" en pascal, a que se debe ? que error tiene este programa (es corto

   
Vista:
Imágen de perfil de Max

"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

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
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder
Imágen de perfil de Max

"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 16:04:10
ya encontré el error, estaba mal escrito el nombre del archivo de texto
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

"Run Error 2" en pascal, a que se debe ? que error tiene este programa (es corto

Publicado por ramon (2072 intervenciones) el 10/09/2015 18:49:27
Esto te informaría de cualquier error tómalo para otra vez


Assign(fic, fichero);
{$I-} Reset(fic); {$I+}
if ioresult <> 0 then
writeln(' Error De Archivo Esta Mal O Falta ')
else
A qui va el resto del proceso
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar