Ir para conteúdo
Fórum Script Brasil
  • 0

Exercicio Em Estrutura De Dados


gnr_ssa

Pergunta

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 por gnr_ssa
Link para o comentário
Compartilhar em outros sites

3 respostass a esta questão

Posts Recomendados

  • 0

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.

Link para o comentário
Compartilhar em outros sites

  • 0

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

Link para o comentário
Compartilhar em outros sites

Participe da discussão

Você pode postar agora e se registrar depois. Se você já tem uma conta, acesse agora para postar com sua conta.

Visitante
Responder esta pergunta...

×   Você colou conteúdo com formatação.   Remover formatação

  Apenas 75 emoticons são permitidos.

×   Seu link foi incorporado automaticamente.   Exibir como um link em vez disso

×   Seu conteúdo anterior foi restaurado.   Limpar Editor

×   Você não pode colar imagens diretamente. Carregar ou inserir imagens do URL.



  • Estatísticas dos Fóruns

    • Tópicos
      152k
    • Posts
      651,8k
×
×
  • Criar Novo...