Pascal/Turbo Pascal - error en turbo pascal ayuda por favor...

   
Vista:

error en turbo pascal ayuda por favor...

Publicado por Cristopher (1 intervención) el 18/11/2011 19:12:06
hola espero que puedan ayudarme...
bueno como dice el titulo tengo un problema y es el error 2 file not found
la verdad ya me estoy desesperando tengo que entregar este programa para el lunes
y no he podido solucionar este error les dejo el esqueleto del programa y un link de mediafire donde subí el .PAS del programa:

http://www.mediafire.com/?7kgndkl8yc4ejox

PROGRAM VEND;
USES
CRT;
{save del vendedor}
TYPE VENDEDOR=RECORD
CI:REAL;
APELL:STRING[25];
NOMB:STRING[25];
DIR:STRING[50];
SEX:CHAR;
TLF:STRING[12];
NAC:CHAR;
END;
{save del producto}
TYPE PRODUCTO=RECORD
COD:STRING[5];
DESC:STRING[25];
CANT:INTEGER;
PREC:REAL;
IVA:REAL;
STOPmax:INTEGER;
STOPmin:INTEGER;
END;
{save del cliente}
TYPE CLIENTE=RECORD
CI_C:REAL;
APELL_C:STRING[25];
NOMB_C:STRING[25];
DIR_C:STRING[50];
TLF_C:STRING[12];
END;

VAR
REG_1:VENDEDOR;
REG_2:PRODUCTO;
REG_3:CLIENTE;
ALIAS_1:FILE OF VENDEDOR;
ALIAS_2:FILE OF PRODUCTO;
ALIAS_3:FILE OF CLIENTE;
OPC:integer;

{modulo del vendedor}
PROCEDURE ADICION_V;
VAR
CI_V:REAL;
BEGIN
CLRSCR;
TEXTCOLOR (6);
GOTOXY(10,01);WRITELN('*********************************************************');
GOTOXY(10,02);WRITELN('** UNIVERSIDAD NACIONAL EXPERIMENTAL **');
GOTOXY(10,03);WRITELN('** POLITECNICA DE LA FUERZA ARMADA **');
GOTOXY(10,04);WRITELN('** NUCLEO COJEDES **');
GOTOXY(10,05);WRITELN('** REALIZADO POR: Yepez Cristopher **');
GOTOXY(10,06);WRITELN('*********************************************************');
GOTOXY(2,8);WRITELN('MODULO DE INGRESO DE VENDEDORES');
ASSIGN(ALIAS_1,'VENDEDOR.dat');
RESET(ALIAS_1);
IF IORESULT<>0 THEN
REWRITE(ALIAS_1); {aqui se crea el archivo "vendedor.dat"}
GOTOXY(3,10);TEXTCOLOR(2);WRITELN('INGRESE CEDULA DEL VENDEDOR:');
GOTOXY(31,10);TEXTCOLOR(3);READLN(CI_V);
WHILE(NOT EOF(ALIAS_1)) DO
BEGIN
READ(ALIAS_1,REG_1);
IF CI_V=REG_1.CI THEN
BEGIN
GOTOXY(10,23);TEXTCOLOR(RED);WRITELN('CEDULA YA REGISTRADA');
CLOSE(ALIAS_1);
READKEY;
EXIT;
END;
END;
GOTOXY(3,12);TEXTCOLOR(2);WRITELN('APELLIDO:');
GOTOXY(11,12);TEXTCOLOR(3);READLN(REG_1.APELL);
GOTOXY(22,12);TEXTCOLOR(2);WRITELN('NOMBRE:');
GOTOXY(29,12);TEXTCOLOR(3);READLN(REG_1.NOMB);
GOTOXY(3,14);TEXTCOLOR(2);WRITELN('DIRECCION:');
GOTOXY(13,14);TEXTCOLOR(3);READLN(REG_1.DIR);
REPEAT
GOTOXY(3,16);TEXTCOLOR(2);WRITELN('SEXO:');
GOTOXY(9,16);TEXTCOLOR(3);READLN(REG_1.SEX);
UNTIL(REG_1.SEX='M') OR (REG_1.SEX='F') OR (REG_1.SEX='m') OR (REG_1.SEX='f');
REPEAT
GOTOXY(3,18);TEXTCOLOR(2);WRITELN('NACIONALIDAD:');
GOTOXY(16,18);TEXTCOLOR(3);READLN(REG_1.NAC);
UNTIL(REG_1.NAC='V') OR (REG_1.NAC='E') OR (REG_1.NAC='v') OR (REG_1.NAC='e');
GOTOXY(3,20);TEXTCOLOR(2);WRITELN('TELEFONO:');
GOTOXY(14,20);TEXTCOLOR(3);READ(REG_1.TLF);
REG_1.CI:=CI_V;
WRITE(ALIAS_1,REG_1); {graba en archivo}
CLOSE(ALIAS_1);
GOTOXY(10,23);TEXTCOLOR(GREEN);WRITELN('DATOS DEL VENDEDOR FUERON REGISTRADOS SATISFACTORIAMENTE');
READKEY;
END;

BEGIN {Menu principal}
REPEAT
CLRSCR;
TEXTCOLOR (6);
GOTOXY(10,01);WRITELN('*********************************************************');
GOTOXY(10,02);WRITELN('** UNIVERSIDAD NACIONAL EXPERIMENTAL **');
GOTOXY(10,03);WRITELN('** POLITECNICA DE LA FUERZA ARMADA **');
GOTOXY(10,04);WRITELN('** NUCLEO COJEDES **');
GOTOXY(10,05);WRITELN('** REALIZADO POR: Yepez Cristopher **');
GOTOXY(10,06);WRITELN('*********************************************************');
GOTOXY(29,08);TEXTCOLOR(BLUE);WRITELN('MENU PRINCIPAL');
GOTOXY(5,10);TEXTCOLOR(GREEN);WRITELN('1--> VENDEDORES');
GOTOXY(5,12);WRITELN('2--> CLIENTES');
GOTOXY(5,14);WRITELN('3--> PRODUCTOS');
GOTOXY(5,16);WRITELN('4--> FINALIZAR');
GOTOXY(10,23);TEXTCOLOR(2);WRITELN('INGRESE OPCION A REALIZAR:');
GOTOXY(36,23);TEXTCOLOR(3);READLN(OPC);
CASE OPC OF
1:ADICION_V;
END;
UNTIL (OPC=4);
END.

el error como tal es cuando presiono 1 en el menú principal ¿como puedo solucionar esto?
muchas gracias de ante mano...
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

error en turbo pascal ayuda por favor...

Publicado por ramon (2072 intervenciones) el 19/11/2011 12:07:23
En la zona ASSIGN(ALIAS_1,'VENDEDOR.dat');
RESET(ALIAS_1); te falta poner esto para que se realice lo que quieres con hesito.

ASSIGN(ALIAS_1,'VENDEDOR.dat');
{$I-} RESET(ALIAS_1); {$I+}

Este es tu fallo.
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