Programa pascal, parqueo

Solo disponible en BuenasTareas
  • Páginas : 3 (667 palabras )
  • Descarga(s) : 0
  • Publicado : 3 de enero de 2011
Leer documento completo
Vista previa del texto
program parqueo;
uses wincrt;
type
tipoel=longint;
pila=^componente;
componente=record
placa:tipoel;
siguiente:pila;
end;
varentraron:array[1..30] of tipoel;
p,aux:pila;
arch:text;

carro,mov,plc,c,carr:integer;

{*******************************************************}

procedure inicio(varp,aux:pila);
begin
p:=nil;
aux:=nil;
end;

{*******************************************************}

function pilavaciap(p:pila):boolean;
begin
pilavaciap:=p=nil;
end;{*******************************************************}

function pilavaciaa(aux:pila):boolean;
begin
pilavaciaa:=aux=nil;
end;

{*******************************************************}

proceduretope(p:pila;var plc:tipoel);
begin
if pilavaciap(p) then
writeln('el parqueo esta vacio')
else
plc:=p^.placa;
writeln('el carro proximo a salir es: ',plc);end;

{*******************************************************}

procedure meter(var p:pila;var carro,c,carr:integer);
var
auxiliar:pila;
pla:tipoel;
begin
if (carr=20) thenwriteln('no se puede ingresar m s carros,carro rechazado')
else
begin
write('introduzca el numero de la placa del carro de 5 digitos: ');readln(pla);
new(auxiliar);
auxiliar^.siguiente:=p;
auxiliar^.placa:=pla;
p:=auxiliar;
carr:=carr+1;carro:=carro+1;
entraron[carro]:=p^.placa;
writeln('carro estacionado');
c:=c+1;
end;
end;

{*******************************************************}procedure meterparque(var p:pila;var pl:tipoel;var c:integer);
var
auxiliar:pila;
begin
if (carr=20) then
writeln('no se puede ingresar m s carros')
else
begin...
tracking img