Exercicio Em Estrutura De Dados

[gnr_ssa]

1) Construir uma UNIT e um PROGRAMA em Pascal para controlar o estoque de carros de uma loja de veículos, utilizando a técnica LIFO. O estoque deve ser controlado pelo modelo, ex: Palio, Celta, Gol etc. As rotinas deverão ficar na UNIT e no programa deve constar apenas o menú de opções e as chamadas das rotinas. O programa deve fornecer recursos para:

a) Cadastro de veículos no estoque

B,) Venda de veículos (remoção do estoque)

c) Exibir a quantidade de veículos no estoque

d) Exibir a quantidade de veículos vendidos

e) Exibir o último veículo cadastrado

f) Exibir todos os veículos do estoque

Editado Setembro 3, 2007 por gnr_ssa

[gnr_ssa]

galera dando uma lida em material na net, conseguir fazer uma UNIT usando o metodo LIFo, agora não tenho a minima ideia de como fazer um programa puxar isso alguém me ajuda plz, esse e meu trabalho da AV 1 se não fizer tou perdido praticamente

a unit ta assim

unit pilhas;

interface

const MAX = 50;

type elem = integer;

pilha = record

topo: integer;

memo: array[1..MAX] of elem;

end;

procedure init(var p:pilha);

function isempty(var p:pilha): boolean;

function isfull(var p:pilha) : boolean;

procedure push(var p:pilha; x: elem);

function pop(var p:pilha) :elem;

function top(var p:pilha) :elem;

implementation

procedure init(var p:pilha);

begin

p.topo :=0;

end;

function isempty(var p:pilha): boolean;

begin

if p.topo=0 then

isempty := true

else

isempty := false;

end;

function isfull(var p:pilha) : boolean;

begin

if p.topo = max then

isfull := true

else

isfull := false;

end;

procedure push(var p:pilha; x: elem);

begin

if not isfull(p) then

begin

p.topo:=p.topo+1;

p.memo[p.topo]:=x

end

else

writeln ('PILHA CHEIA');

end;

function pop(var p:pilha) :elem;

begin

if not isEmpty(p) then

begin

pop:= p.memo[p.topo];

p.topo := p.topo-1;

end

else

writeln ('Stack underflow');

end;

function top(var p:pilha) :elem;

begin

if not isEmpty(p) then

top:= p.memo[p.topo]

else

writeln('FILA VAZIA');

readln;

end;

end.

[Guest Visitante]

Ola!!

Pra "puxar" o unit pro seu programa Pascal, depois de "program <nome_do_programa>; "

escreva na linha logo apos "unit pilhas;"

Se ao executar seu programa ,dizer q não encontra PILHAS.TPU vá em OPTIONS no menu e em DIRECTORIES...

coloque o endereço em q encontra a pilha.

Espero que ajude

[Guest Visitante]

Desculpe é "uses pilhas" e não unit pilhas no programa principal