No entiendo porque casca
Publicado por Kashmir (2 intervenciones) el 22/11/2006 12:33:46
Bueno he estado mirando en la web, que muchos como yo estan con el programa de los numeros perfectos o numeros primos, pero yo el problema que tengo no son las funciones, si no que a la hora de compilar, el turbopascal me lo compila pero a la hora de correrlo me sale este mensaje
runtime error 003 at 0001:0121
He buscado cual es ese error y me pone que es esto,
Run-time error 3: Path not found
The routines Reset, Append, Rewrite, Rename, and Erase report this error if the name assigned to the file variable is invalid
or specifies a non-existent subdirectory.
Lo se traducir al español, no es complicado pero no lo entiendo, asi que os dejo el programa escrito, y espero que me podais resolver el problema.
Muchas gracias de antemano ^^
program numerosperfectos(input, output);
uses Wincrt;
var
filein:text;
cl,cp,numero:integer;
function pruebaperfectos(n:integer):boolean;
var
f,a,suma:integer;
begin
a:=n;
for a:=n-1 downto 1 do
begin
f:=n mod(a);
if f=0 then
suma:=suma + (a);
end;
if suma=n then
pruebaperfectos:=true;
if suma<>n then
pruebaperfectos:=false;
end;
begin
writeln('nºmatric: bd0351; apellidos: Montero Escobar; nombre: Carlos');
assign(filein, 'a :\datosp1.txt');
reset(filein);
cl:=0;
cp:=0;
while not eof(filein) do
begin
cl:=cl+1;
while not eoln(filein) do
begin
read(filein,numero);
pruebaperfectos(numero);
write(numero);
cp:=cp+1;
end;
readln(filein);
write('numero de numeros perfectos');
end;
close(filein);
end.
runtime error 003 at 0001:0121
He buscado cual es ese error y me pone que es esto,
Run-time error 3: Path not found
The routines Reset, Append, Rewrite, Rename, and Erase report this error if the name assigned to the file variable is invalid
or specifies a non-existent subdirectory.
Lo se traducir al español, no es complicado pero no lo entiendo, asi que os dejo el programa escrito, y espero que me podais resolver el problema.
Muchas gracias de antemano ^^
program numerosperfectos(input, output);
uses Wincrt;
var
filein:text;
cl,cp,numero:integer;
function pruebaperfectos(n:integer):boolean;
var
f,a,suma:integer;
begin
a:=n;
for a:=n-1 downto 1 do
begin
f:=n mod(a);
if f=0 then
suma:=suma + (a);
end;
if suma=n then
pruebaperfectos:=true;
if suma<>n then
pruebaperfectos:=false;
end;
begin
writeln('nºmatric: bd0351; apellidos: Montero Escobar; nombre: Carlos');
assign(filein, 'a :\datosp1.txt');
reset(filein);
cl:=0;
cp:=0;
while not eof(filein) do
begin
cl:=cl+1;
while not eoln(filein) do
begin
read(filein,numero);
pruebaperfectos(numero);
write(numero);
cp:=cp+1;
end;
readln(filein);
write('numero de numeros perfectos');
end;
close(filein);
end.
Valora esta pregunta


0