| |
|
Assuntos relacionados a
Mover |
|
[ MSN ] Pergunta aberta : exclui o window live menssenger?
Veja como tirar cheiros e manchas do interior do seu carro
[ Programação e Design ] Pergunta aberta : ola estou querendo ajuda para resouver este programa?
Descrição:
Uma determinada escola deverá distribuir livros para os alunos.
Sabendo que, conforme os livros são recebidos pela escola para serem passados para os alunos, são empilhados em uma única pilha (ainda que seja preciso uma escada para chegar ao topo da lista, e um equilíbrio fora do comum para não deixá-la desabar!).
Os alunos se organizam em uma fila para receber os livros (imagine que eles são muito bem educados e não irão furar a fila).
Cada livro entregue a um aluno na fila (seguindo-se a ordem da pilha de livros e fila de alunos) deve ser anotada em uma lista com o nome do aluno e o livro que este recebeu.
Sua missão é criar um programa que permita gerenciar:
·A fila de alunos (inclusão de alunos).
·A pilha de livros (inclusão de livros).
·A distribuição dos livros: Entregar o livro ao próximo aluno da fila (remover o livro da pilha e o aluno da fila)
O programa não pode permitir que seja distribuído algum livro sem haver aluno para recebê-lo, tão pouco o inverso. Caso não haja livros ou alunos para efetuar uma entrega, o sistema deverá avisar.
Deve ser possível exibir a lista, que indicará quais alunos receberam quais livros.
Dessa forma, o programa terá as seguintes opções:
·Colocar aluno na fila
·Colocar livro na pilha
·Entregar livro.
·Exibir lista ordem normal.
Exibir lista ordem inversa.
A lista deverá ser duplamente encadeada.
Ao fim do programa a lista deverá ser destruída.
Uses Crt;
type
ApTLivro = ^TLivro;
Tlivro = record
livro: string;
prox : ApTlivro;
End;
ApTnome = ^Tnome;
Tnome = Record
nome : String;
Prox : ApTNome;
End;
Type
ApTentrega = ^Tentrega;
Tdados = Record
livro: string;
aluno: String;
End;
Tentrega = Record
Dados : Tdados;
Prox,ant: ApTentrega;
End;
{***********************procedimento para inserir*******************}
Procedure Inserir (var inici,fim : ApTnome; nome:string);
Var
aux : ApTnome;
Begin
new(aux);
aux^.nome := nome;
If (fim nil) then
fim^.prox := aux
else
inici := aux;
aux^.prox := nil;
fim:= aux;
end;
{*************************procedimento para inserir nome****************}
procedure InserirNome( var inici,fim : ApTnome);
var
nome: string;
resp : char;
begin
Repeat
ClrScr;
write('digite o nome do aluno : ');
readln(nome);
inserir(inici, fim, nome);
Writeln;
Writeln('Deseja continuar a inserir S/N ? ');
resp:= readkey;
resp:= upcase(resp);
until (resp='N');
End;
{****************************** fun?Æo para remover ************************}
Function Removeraluno (Var Inici,fim : ApTnome) : string;
Var
aux : ApTnome;
Begin
aux := inici;
inici:=inici^.prox;
removeraluno := aux^.nome;
dispose(aux);
If(inici = nil ) then
fim := nil;
End;
{********************** exibir os dados **************************}
procedure exibir(var inici,fim : ApTnome);
var
nome:string;
begin
nome := removeraluno(inici,fim);
{ writeln('O proximo aluno ah receber livro : ',nome);}
Readln;
end;
{*************************procedimento inserir livros*****************}
Procedure push(var inicio : ApTlivro; livro : string);
var
aux : ApTlivro;
Begin
new(aux);
aux^.livro := livro;
aux^.prox := inicio;
inicio := aux;
End;
{***************************Fun?Æo retirar o livro*********************}
Function pop(var inicio : ApTlivro): string;
var
aux : ApTlivro;
Begin
aux := inicio;
inicio := aux^.prox;
pop:= aux^.livro;
dispose(aux);
end;
{********** para conferir se a pilha esta vazia **********}
function vazia(var inicio :ApTlivro): boolean;
Begin
If (inicio = nil) then
vazia := true
else
vazia := false;
end;
{******************************inserir livro*****************************}
Procedure inserirlivro (var inicio : ApTlivro);
var
livro : string;
resp : char;
Begin
repeat;
ClrScr;
write(' Digite o nome do livro ');
readln(livro);
push (inicio,livro);
Writeln;
write('deseja continuar cadastrndo ? S/N ');
resp:=readkey;
resp:=upcase(resp);
until (resp = 'N');
end;
{*****************procedimento para remover livro**************************}
procedure removerlivro(var inicio:aptlivro);
var
liv:string;
begin
liv:=pop(inicio);
end;
{*********************procedimentos para inserir os dados na lista ********************* }
Procedure Incluirlista(var aux : ApTentrega) ;
var
INICIO : tlivro;
comeco : aptentrega;
begin
New(aux);
{ Aux^.Dados:= pop( inicio); }
{ Aux^.Dados:= exibir; }
aux^.ant := Nil;
aux^.prox := comeco;
If(comeco nil) then
comeco^.ant:= aux;
comeco := aux;
End;
{procedimento para exibir os dados}
Procedure Exibirlista(aux : ApTentrega);
Begin
Writeln(aux^.dados.aluno);
Writeln;
Writeln(aux^.dados.livro);
end;
{**
Nicole Kidman e Hugh Jackman participam de sessão de fotos
Nicole Kidman e Hugh Jackman brilham em sessão de fotos
[ Videogames e Jogos Online ] Pergunta aberta : Como faço para remover o Jumper Pack do Nintendo 64?
[ Solteiros e Namorando ] Pergunta aberta : Mulheres, como ajudo minha namorada?
Bom, eu me depilo com lâmina mesmo, mas penso que a pele da mulher é bem mais sensível então recomendei a minha namô que não usasse lâmina.
Pois bem, ela usou cera, quase morreu, desistiu.
Usou creme para remover pêlos, mas ela é descendente de português, muito pêlo grosso e escuro, o creme só tirou os mais fininhos, não serviu de nada.
Ela tentou até arrancar com pinça, mas levou horas e horas, achei uma loucura isso.
Dinheiro p depilador létrico ela não tem e nem eu senão dava um p ela hoje mesmo.
O que posso fazer por ela, mulheres?
Se ela usar lâmina tem algum problema ou não?
Existe outro método para depilar que não doa nem seja caro?
[ Software ] Pergunta aberta : Windows Live Messenger 2009 (Beta) Erro 8000fff Solução?
Olá, Verifiquei que muitos internautas estão com problemas após a desinstalação do Windows live messenger 2009 (beta).
Bem, também tive o mesmo problema mais encontrei a solução.
Vamos Lá!
1º) Baixe o programa Ccleaner (que é um limpador de registro).
2º) Após a Instalação do programa, clique para abrir o mesmo.
3º) Após ele aberto, vá em ferramentas (aparacerá todos os programas que voçe tem em seu pc).
4º) clique em cima do ícone do windows live, depois clique na opção restaurar)
5º) o Cleaner vai restaurar seu windows live messenger, e instalar os complementos que não estão vindo com o instalador. E não vai mais aparecer aquele erro insuportavel: Erro 8000ffff a versão beta está fora do ar temporariamente.
Desta Maneira, conseguir me livrar daquele maldito erro que da e, do técnico que me disse que tinha de formatar.
Agora, Um Conselho: nunca pergunte quaisquer que duvidas seja a técnico de informática, ou em qualquer outra área.
Se por um acaso tiver qualquer problema, procure uma pessoa que confie e pergunte, pois infelizmente há pessoas de péssimo caratér, que fazem de suas profissões um meio de roubar os outros. (assim posso dizer pois sei muito bem o que é isso,não generalizando claro.)
Se quiser desinstalar de vez este insuportável messenger 2009, em vez de clicar em restaurar,escolha a opção remover.
Bem, Isto funcionou comigo. Pois após a desistalação deste maldito messenger, não pude instalar mais nenhum.
Qualquer dúvida: alfresantoss@hotmail.com
Forte Abraço!
Dinamite admite conversa para manter Edmundo em 2009
[ Outros - Computadores ] Pergunta aberta : Qual a ultima versão da atualização do windows?
|
|
|
