BUEN DÍA! TENGO QUE REALIZAR UN PROGRAMA EN PASCAL QUE ME PERMITA CARGAR UNA LISTA SIMPLEMENTE ENLAZADA CON DATOS DEL ALUMNO: LEGAJO, DNI, NOMBRE, MATERIA.... MI DUDA TENGO HECHO EL PROGRAMA PERO A LA HORA DE EJECUTAR ME TIRA 'ERROR 203: HEAP OVERFLOW ERROR'
LES ADJUNTO EL PSEUDOCÓDIGO, QUIERO SABER EN DONDE ESTÁ EL ERROR...DESDE YA GRACIAS!
pone el codigo, con el tag code, que tenemos un compilador en el foro.
por otro lado, si nos das un poco mas de informacion te vamos a poder ayudar mejor.
¿como falla?
¿que intentaste para corregirlo?
¿que crees que puede estar fallando?
HOLA MIRA ESTE ES EL ERROR QUE ME TIRA, Y LA CONSIGNA SOLO ME PIDE QUE CARGUE UNA LISTA SIMPLE CON ESOS DATOS DEL ALUMNO QUE ESCRIBÍ ANTERIORMENTE.....
este es el programa:
Program CARGA_LISTA_SIMPLE;
type p=^nodo;
nodo=record
legajo:integer;
dni:integer;
nombre:string;
materia:string;
prox:p;
end;
var prim,t,ant,q:p;
nombre,materia:string;
dni,legajo:integer;
begin
prim:=nil;
write('ingrese legajo: ');
readln(legajo);
write('ingrese dni: ');
readln(dni);
write('ingrese nombre: ');
readln(nombre);
write('ingrese materia: ');
readln(materia);
while (nombre <> '') do
begin
new(q);
q^.legajo:=legajo;
q^.dni:=dni;
q^.nombre:=nombre;
q^.materia:=materia;
if (prim=nil) then
begin
q^.prox:=nil;
prim:=q;
end
else begin
t:=prim;
while (t<>nil) and (t^.legajo<legajo) do
ant:=t;
t:=t^.prox;
end;
if (t=nil) then
begin
ant^.prox:=q;
q^.prox:=nil;
end
else begin
if (t=prim) then
begin
q^.prox:=prim;
prim:=q;
end
else begin
q^.prox:=t;
ant^.prox:=q;
end;
end;
end;
write('ingrese legajo y dni del alumno: '); readln(legajo,dni);
write('ingrese nombre y materia del alumno: '); readln(nombre,materia);
end.
q:=prim;
while (q<>nil) do
begin
writeln('el legajo:',q^.legajo,'dni:',q^.dni,'es el alumno:',q^.nombre,'y cursa:',q^.materia);
q:=q^.prox;
end;
readln;
end.
te estas quedando sin memoria. fijate por que te esta pasando eso.