Pascal/Turbo Pascal - vectores

   
Vista:

vectores

Publicado por tomas (2 intervenciones) el 08/01/2011 04:38:55
alguien podria ayudarme con este pedazo de programa el problema es al ejecutarlo se tilda
cuando ingresa el ciclo while

program max_min;
uses crt;
const
ini=1;
max=100;

type
tnum=integer;
trango=ini..max;
tvector=array[trango]of tnum;

var
vector:tvector;
ulpos:tnum;

procedure ingresar(var vector:tvector; var ulpos:tnum);


begin
ulpos:=ini;
writeln('ingrese');
read(vector[ulpos]);
while(ulpos <= max)and(vector[ulpos] <> 0) do; //CA COMENZARIA EL PROBLEMA //

begin
inc(ulpos);
writeln('inrese');
read(vector[ulpos])
end;

if vector[ulpos] = 0 then
dec(ulpos)

end;

begin

ingresar(vector,ulpos);
readkey

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

vectores

Publicado por Luis (3 intervenciones) el 05/05/2011 19:19:57
no se mas o menos q hace el programa pero, al hacer el while estas haciendo nada
porque vos pusiste: while(ulpos <= max)and(vector[ulpos] <> 0) do;
Ahi vos decis que mientras (ulpos sea menor igual a max ) Y (lo que tenga el vector en la posicion con indice ulpos sea <> 0) hacer nada;
Nota: si queres que despues del while hacer el bloque begin end, no pongas el ; (punto y coma)..
ya que eso le esta obligando al while a no hacer nada..Trata de probar borrandole el ;(punto y coma)
despues del while...
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