terça-feira, 8 de junho de 2010
Aviso...
O Material que eu peguei para estudar a Linguagem C estava com erros por isso o Codigo que eu fiz ficou daquele geito...
quarta-feira, 2 de junho de 2010
Meu Trabalho...
Estou escrevendo um Programa em Pascal para gerir uma Locadora De Veiculos para apresentar como Trabalho na Universidade e estou colocando ele aqui para voces verem...
... Bem... Eu parei ai nesse Programa e acabei esquecendo de colocar o texto aqui antes de viajar...
... Basicamente se houver algum problema ele esta' na Sintax de Manipulacao de Arquivos e alguma coisa boa na qual eu me passei...
... Como nao domino Arquivos e preciso de discanso nao procurarei corrigir a parte de Arquivos agora...
... Talvez eu coloque a parte que ficou por ultimo...
... Tomara que gostem...
----------
program Locadora;
type registroclientes = record
codigo: string;
nome: string;
end;
registroveiculos = record
codigo: string;
nome: string;
tipo: string;
end;
registromovimentacoes = record
codigolocacao: string;
cofigocliente: string;
nomecliente: string;
codigoveiculo: string;
nomeveiculo: string:
tipoveiculo: string:
datasaida: string;
dataentrada: string:
end;
procedure cadastroclientes(var x: integer);
var c,i,p: integer;
begin
i:=1;
p:=x;
writeln('°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°Cadastro De Clientes°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°');
writeln('Digite o numero da opcao da tarefa que voce deseja executar');
writeln('1 - Inclusao De Cliente');
writeln('2 - Alteracao De Dados');
writeln('3 - Consultar Dados');
writeln('4 - Excluir Cliente');
writeln('0 - Menu Principal');
writeln();
write('Sua opcao eh ');
readln(p);
writeln();
writeln('°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°');
if p=1 then
begin
repeat
if (vetorclientes[i].codigo = '') then
begin
assign(vetorclientes[i],'CLIENTES.BIN');
writeln('Digite o codigo do cliente novo');
readln(vetorclientes[i].codigo);
writeln('Digite o nome do cliente novo');
readln(vetorclientes[i].nome);
write(vetorclientes[i]);
close(vetorclientes[i]);
writeln();
writeln('°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°');
end;
i:=i+1;
until (vetorclientes[i].codigo = '') or (i=11);
if (i=11) then
begin
writeln('Nao existe vaga para adicionar cliente');
writeln();
writeln('°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°');
end;
end;
if p=2 then
begin
writeln('Digite o codigo do cliente que deseja efetuar a mudanca')
readln(c);
repeat
if (vetorclientes[i].codigo = c) then
begin
assign(vetorclientes[i],'CLIENTES.BIN');
rewrite(vetorclientes[i]);
writeln('Digite o codigo do cliente');
readln(vetorclientes[i].codigo);
writeln('Digite o nome do cliente');
readln(vetorcliente[i].nome);
write(vetorclientes[i]);
close(vetorclientes[i]);
writeln();
writeln('°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°');
end;
i:=i+1;
until (vetorclientes[i].codigo = c);
if (i=11) then
begin
writeln('Nao existe cliente com esse codigo');
writeln();
writeln('°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°');
end;
end;
if p=3 then
begin
writeln('Digite o codigo dos dados que voce deseja consultat');
readln(c);
repeat
if (vetorclientes[i].codigo = c) then
begin
assign(vetorclientess[i],'CLIENTES.BIN');
write('Codigo do cliente - ');
writeln(vetorclientes[i].codigo);
write('Nome do veiculo - ');
writeln(vetorclientes[i].nome);
close(vetorclientes[i]);
writeln();
writeln('°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°');
end;
i:=i+1;
until (vetorclientes[i].codigo = c);
if (i=11) then
begin
writeln('Nao existe cliente com esse codigo');
writeln();
writeln('°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°');
end;
end;
if p=4 then
begin
writeln('Digite o codigo dos dados que voce deseja excluir');
readln(c);
repeat
if (vetorclientes[i].codigo = c) then
begin
assign(vetorclientes[i],'CLIENTES.BIN');
writeln('Tecle ENTER para apagar o codigo');
rewriteln(vetorclientes[i].codigo);
writeln('Tecle ENTER para apagar o nome');
rewriteln(vetorclientes[i].nome);
close(vetorclientes[i]);
writeln();
writeln('°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°');
end;
i:=i+1;
until (vetorclientes[i].codigo = c);
if (i=11) then
begin
writeln('Nao existe cliente com esse codigo');
writeln();
writeln('°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°');
end;
end;
end;
procedure cadastroveiculos(var x: integer);
var c,i,p: integer;
begin
i:=1;
p:=x;
writeln('°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°Cadastro De Veiculos°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°');
writeln('Digite o numero da opcao da tarefa que voce deseja executar');
writeln('1 - Inclusao De Veiculo');
writeln('2 - Alteracao De Dados');
writeln('3 - Consultar Dados');
writeln('4 - Excluir Veiculo');
writeln('0 - Menu Principal');
writeln();
write('Sua opcao eh ');
readln(p);
writeln();
writeln('°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°');
if p=1 then
begin
repeat
if (vetorveiculos[i].codigo = '') then
begin
assign(vetorveiculos[i],'VEICULOS.BIN');
writeln('Digite o codigo do veiculo novo');
readln(vetorveiculos[i].codigo);
writeln('Digite o nome do veiculo novo');
readln(vetorveiculos[i].nome);
writeln('Digite o tipo do veiculo novo');
readln(vetorveiculos[i].tipo);
write(vetorveiculos[i]);
close(vetorveiculos[i]);
writeln();
writeln('°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°');
end;
i:=i+1;
until (vetorveiculos[i].codigo = '') or (i=11);
if (i=11) then
begin
writeln('Nao existe vaga para adicionar veiculo');
writeln();
writeln('°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°');
end;
end;
if p=2 then
begin
writeln('Digite o codigo do veiculo que deseja efetuar a mudanca')
readln(c);
repeat
if (vetorclientes[i].codigo = c) then
begin
assign(vetorveiculos[i],'VEICULOS.BIN');
rewrite(vetorveiculos[i]);
writeln('Digite o codigo do veiculo');
readln(vetorveiculos[i].codigo);
writeln('Digite o nome do veiculo');
readln(vetorveiculos[i].nome);
writeln('Digite o tipo do veiculo novo');
readln(vetorveiculos[i].tipo);
write(vetorveiculos[i]);
close(vetorveiculos[i]);
writeln();
writeln('°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°');
end;
i:=i+1;
until (vetorveiculos[i].codigo = c);
if (i=11) then
begin
writeln('Nao existe veiculo com esse codigo');
writeln();
writeln('°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°');
end;
end;
if p=3 then
begin
writeln('Digite o codigo dos dados que voce deseja consultat');
readln(c);
repeat
if (vetorveiculos[i].codigo = c) then
begin
assign(vetorveiculos[i],'VEICULOS.BIN');
write('Codigo do veiculo - ');
writeln(vetorveiculos[i].codigo);
write('Nome do veiculo - ');
writeln(vetorveiculos[i].nome);
write('Tipo do veiculo - ');
writeln(vetorveiculos[i].tipo);
close(vetorveiculos[i]);
writeln();
writeln('°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°');
end;
i:=i+1;
until (vetorveiculos[i].codigo = c);
if (i=11) then
begin
writeln('Nao existe veiculo com esse codigo');
writeln();
writeln('°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°');
end;
end;
if p=3 then
begin
writeln('Digite o codigo dos dados que voce deseja excluir');
readln(c);
repeat
if (vetorveiculos[i].codigo = c) then
begin
assign(vetorveiculos[i],'VEICULOS.BIN');
writeln('Tecle ENTER para apagar o codigo');
rewriteln(vetorveiculos[i].codigo);
writeln('Tecle ENTER para apagar o nome');
rewriteln(vetorveiculos[i].nome);
writeln('Tecle ENTER para apagar o tipo');
rewriteln(vetorveiculos[i].tipo);
close(vetorveiculos[i])
writeln();
writeln('°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°');;
end;;
i:=i+1;
until (vetorveiculos[i].codigo = c);
if (i=11) then
begin
writeln('Nao existe veiculo com esse codigo');
writeln();
writeln('°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°');
end;
end;
end;
procedure movimentacao(var x: integer);
var c,i,p: integer;
begin
p:=x;
writeln('°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°Movimentacao°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°');
writeln('Digite o numero da opcao da tarefa que voce deseja executar');
writeln('1 - Locar');
writeln('2 - Data de devolucao');
writeln('0 - Menu Principal');
writeln();
write('Sua opcao eh ');
readln(p);
writeln();
writeln('°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°');
if p=1 then
begin
repeat
if (vetormovimentacoes[i].codigolocacao = '') then
begin
assign(vetormovimentacoes[i],'LOCACOES.BIN');
write('Codigo da locacao - ');
writeln(vetorveiculos[i].codigolocacao);
write('Codigo do cliente - ');
writeln(vetorveiculos[i].cofigocliente);
write('Nome do cliente - ');
writeln(vetorveiculos[i].nomecliente);
write('Codigo do veiculo - ');
writeln(vetorveiculos[i].codigoveiculo);
write('Nome do veiculo - ');
writeln(vetorveiculos[i].nomeveiculo);
write('Tipo do veiculo - ');
writeln(vetorveiculos[i].tipoveiculo);
write('Data de saida - ');
writeln(vetorveiculos[i].datasaida);
write('Data de entrada - ');
writeln(vetorveiculos[i].dataentrada);
write(vetormovimentacoes[i]);
close(vetormovimentacoes[i]);
writeln();
writeln('°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°');
end;
i:=i+1;
until (vetormovimentacoes[i].codigolocacao = '') or (i=11);
if (i=11) then
begin
writeln('Nao existe veiculo disponivel');
writeln();
writeln('°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°');
end;
end;
if p=2 then
begin
repeat
if (vetormovimentacoes[i].codigolocacao = c) then
begin
assign(vetormovimentacoes[i],'LOCACOES.BIN');
writeln('Digite o codigo da locacao');
readln(vetorveiculos[i].codigolocacao);
writeln('Digite o codigo do cliente');
readln(vetorveiculos[i].cofigocliente);
writeln('Digite o nome do cliente');
readln(vetorveiculos[i].nomecliente);
writeln('Digite o codigo do veiculo');
readln(vetorveiculos[i].codigoveiculo);
writeln('Digite o nome do veiculo');
readln(vetorveiculos[i].nomeveiculo);
writeln('Digite o tipo do veiculo');
readln(vetorveiculos[i].tipoveiculo);
writeln('Digite a data de saida');
readln(vetorveiculos[i].datasaida);
writeln('Digite a data de entrada');
readln(vetorveiculos[i].dataentrada);
write(vetormovimentacoes[i]);
close(vetormovimentacoes[i]);
writeln();
writeln('°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°');
end;
i:=i+1;
until (vetormovimentacoes[i].codigolocacao = '') or (i=11);
if (i=11) then
begin
writeln('Nao existe vaga para locacao');
writeln();
writeln('°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°');
end;
end;
end;
var a: integer;
vetorclientes: array [1..10] of file of registroclientes;
vetorveiculos: array [1..10] of file of registroveiculos;
vetormovimentacoes: array [1..10] of file of registromovimentacoes;
begin
a:=1;
while (a=1) or (a=2) or (a=3) do
begin
write('°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°');
write('°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°Locadora De Veiculos°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°');
writeln('°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°');
writeln('Digite o numero da opcao da tarefa que voce deseja executar');
writeln();
writeln('1 - Cadastro De Clientes');
writeln('2 - Cadastro De Veiculos');
writeln('3 - Movimentacoes');
writeln('Ou tecle qualquer outro digito para sair desse programa');
writeln();
write('Sua opcao eh ');
readln(a);
writeln();
writeln('°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°');
case a of
1: cadastroclientes(a);
2: cadastroveiculos(a);
3: movimentacao(a);
end;
end;
end.
... Bem... Eu parei ai nesse Programa e acabei esquecendo de colocar o texto aqui antes de viajar...
... Basicamente se houver algum problema ele esta' na Sintax de Manipulacao de Arquivos e alguma coisa boa na qual eu me passei...
... Como nao domino Arquivos e preciso de discanso nao procurarei corrigir a parte de Arquivos agora...
... Talvez eu coloque a parte que ficou por ultimo...
... Tomara que gostem...
----------
program Locadora;
type registroclientes = record
codigo: string;
nome: string;
end;
registroveiculos = record
codigo: string;
nome: string;
tipo: string;
end;
registromovimentacoes = record
codigolocacao: string;
cofigocliente: string;
nomecliente: string;
codigoveiculo: string;
nomeveiculo: string:
tipoveiculo: string:
datasaida: string;
dataentrada: string:
end;
procedure cadastroclientes(var x: integer);
var c,i,p: integer;
begin
i:=1;
p:=x;
writeln('°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°Cadastro De Clientes°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°');
writeln('Digite o numero da opcao da tarefa que voce deseja executar');
writeln('1 - Inclusao De Cliente');
writeln('2 - Alteracao De Dados');
writeln('3 - Consultar Dados');
writeln('4 - Excluir Cliente');
writeln('0 - Menu Principal');
writeln();
write('Sua opcao eh ');
readln(p);
writeln();
writeln('°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°');
if p=1 then
begin
repeat
if (vetorclientes[i].codigo = '') then
begin
assign(vetorclientes[i],'CLIENTES.BIN');
writeln('Digite o codigo do cliente novo');
readln(vetorclientes[i].codigo);
writeln('Digite o nome do cliente novo');
readln(vetorclientes[i].nome);
write(vetorclientes[i]);
close(vetorclientes[i]);
writeln();
writeln('°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°');
end;
i:=i+1;
until (vetorclientes[i].codigo = '') or (i=11);
if (i=11) then
begin
writeln('Nao existe vaga para adicionar cliente');
writeln();
writeln('°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°');
end;
end;
if p=2 then
begin
writeln('Digite o codigo do cliente que deseja efetuar a mudanca')
readln(c);
repeat
if (vetorclientes[i].codigo = c) then
begin
assign(vetorclientes[i],'CLIENTES.BIN');
rewrite(vetorclientes[i]);
writeln('Digite o codigo do cliente');
readln(vetorclientes[i].codigo);
writeln('Digite o nome do cliente');
readln(vetorcliente[i].nome);
write(vetorclientes[i]);
close(vetorclientes[i]);
writeln();
writeln('°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°');
end;
i:=i+1;
until (vetorclientes[i].codigo = c);
if (i=11) then
begin
writeln('Nao existe cliente com esse codigo');
writeln();
writeln('°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°');
end;
end;
if p=3 then
begin
writeln('Digite o codigo dos dados que voce deseja consultat');
readln(c);
repeat
if (vetorclientes[i].codigo = c) then
begin
assign(vetorclientess[i],'CLIENTES.BIN');
write('Codigo do cliente - ');
writeln(vetorclientes[i].codigo);
write('Nome do veiculo - ');
writeln(vetorclientes[i].nome);
close(vetorclientes[i]);
writeln();
writeln('°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°');
end;
i:=i+1;
until (vetorclientes[i].codigo = c);
if (i=11) then
begin
writeln('Nao existe cliente com esse codigo');
writeln();
writeln('°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°');
end;
end;
if p=4 then
begin
writeln('Digite o codigo dos dados que voce deseja excluir');
readln(c);
repeat
if (vetorclientes[i].codigo = c) then
begin
assign(vetorclientes[i],'CLIENTES.BIN');
writeln('Tecle ENTER para apagar o codigo');
rewriteln(vetorclientes[i].codigo);
writeln('Tecle ENTER para apagar o nome');
rewriteln(vetorclientes[i].nome);
close(vetorclientes[i]);
writeln();
writeln('°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°');
end;
i:=i+1;
until (vetorclientes[i].codigo = c);
if (i=11) then
begin
writeln('Nao existe cliente com esse codigo');
writeln();
writeln('°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°');
end;
end;
end;
procedure cadastroveiculos(var x: integer);
var c,i,p: integer;
begin
i:=1;
p:=x;
writeln('°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°Cadastro De Veiculos°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°');
writeln('Digite o numero da opcao da tarefa que voce deseja executar');
writeln('1 - Inclusao De Veiculo');
writeln('2 - Alteracao De Dados');
writeln('3 - Consultar Dados');
writeln('4 - Excluir Veiculo');
writeln('0 - Menu Principal');
writeln();
write('Sua opcao eh ');
readln(p);
writeln();
writeln('°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°');
if p=1 then
begin
repeat
if (vetorveiculos[i].codigo = '') then
begin
assign(vetorveiculos[i],'VEICULOS.BIN');
writeln('Digite o codigo do veiculo novo');
readln(vetorveiculos[i].codigo);
writeln('Digite o nome do veiculo novo');
readln(vetorveiculos[i].nome);
writeln('Digite o tipo do veiculo novo');
readln(vetorveiculos[i].tipo);
write(vetorveiculos[i]);
close(vetorveiculos[i]);
writeln();
writeln('°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°');
end;
i:=i+1;
until (vetorveiculos[i].codigo = '') or (i=11);
if (i=11) then
begin
writeln('Nao existe vaga para adicionar veiculo');
writeln();
writeln('°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°');
end;
end;
if p=2 then
begin
writeln('Digite o codigo do veiculo que deseja efetuar a mudanca')
readln(c);
repeat
if (vetorclientes[i].codigo = c) then
begin
assign(vetorveiculos[i],'VEICULOS.BIN');
rewrite(vetorveiculos[i]);
writeln('Digite o codigo do veiculo');
readln(vetorveiculos[i].codigo);
writeln('Digite o nome do veiculo');
readln(vetorveiculos[i].nome);
writeln('Digite o tipo do veiculo novo');
readln(vetorveiculos[i].tipo);
write(vetorveiculos[i]);
close(vetorveiculos[i]);
writeln();
writeln('°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°');
end;
i:=i+1;
until (vetorveiculos[i].codigo = c);
if (i=11) then
begin
writeln('Nao existe veiculo com esse codigo');
writeln();
writeln('°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°');
end;
end;
if p=3 then
begin
writeln('Digite o codigo dos dados que voce deseja consultat');
readln(c);
repeat
if (vetorveiculos[i].codigo = c) then
begin
assign(vetorveiculos[i],'VEICULOS.BIN');
write('Codigo do veiculo - ');
writeln(vetorveiculos[i].codigo);
write('Nome do veiculo - ');
writeln(vetorveiculos[i].nome);
write('Tipo do veiculo - ');
writeln(vetorveiculos[i].tipo);
close(vetorveiculos[i]);
writeln();
writeln('°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°');
end;
i:=i+1;
until (vetorveiculos[i].codigo = c);
if (i=11) then
begin
writeln('Nao existe veiculo com esse codigo');
writeln();
writeln('°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°');
end;
end;
if p=3 then
begin
writeln('Digite o codigo dos dados que voce deseja excluir');
readln(c);
repeat
if (vetorveiculos[i].codigo = c) then
begin
assign(vetorveiculos[i],'VEICULOS.BIN');
writeln('Tecle ENTER para apagar o codigo');
rewriteln(vetorveiculos[i].codigo);
writeln('Tecle ENTER para apagar o nome');
rewriteln(vetorveiculos[i].nome);
writeln('Tecle ENTER para apagar o tipo');
rewriteln(vetorveiculos[i].tipo);
close(vetorveiculos[i])
writeln();
writeln('°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°');;
end;;
i:=i+1;
until (vetorveiculos[i].codigo = c);
if (i=11) then
begin
writeln('Nao existe veiculo com esse codigo');
writeln();
writeln('°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°');
end;
end;
end;
procedure movimentacao(var x: integer);
var c,i,p: integer;
begin
p:=x;
writeln('°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°Movimentacao°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°');
writeln('Digite o numero da opcao da tarefa que voce deseja executar');
writeln('1 - Locar');
writeln('2 - Data de devolucao');
writeln('0 - Menu Principal');
writeln();
write('Sua opcao eh ');
readln(p);
writeln();
writeln('°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°');
if p=1 then
begin
repeat
if (vetormovimentacoes[i].codigolocacao = '') then
begin
assign(vetormovimentacoes[i],'LOCACOES.BIN');
write('Codigo da locacao - ');
writeln(vetorveiculos[i].codigolocacao);
write('Codigo do cliente - ');
writeln(vetorveiculos[i].cofigocliente);
write('Nome do cliente - ');
writeln(vetorveiculos[i].nomecliente);
write('Codigo do veiculo - ');
writeln(vetorveiculos[i].codigoveiculo);
write('Nome do veiculo - ');
writeln(vetorveiculos[i].nomeveiculo);
write('Tipo do veiculo - ');
writeln(vetorveiculos[i].tipoveiculo);
write('Data de saida - ');
writeln(vetorveiculos[i].datasaida);
write('Data de entrada - ');
writeln(vetorveiculos[i].dataentrada);
write(vetormovimentacoes[i]);
close(vetormovimentacoes[i]);
writeln();
writeln('°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°');
end;
i:=i+1;
until (vetormovimentacoes[i].codigolocacao = '') or (i=11);
if (i=11) then
begin
writeln('Nao existe veiculo disponivel');
writeln();
writeln('°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°');
end;
end;
if p=2 then
begin
repeat
if (vetormovimentacoes[i].codigolocacao = c) then
begin
assign(vetormovimentacoes[i],'LOCACOES.BIN');
writeln('Digite o codigo da locacao');
readln(vetorveiculos[i].codigolocacao);
writeln('Digite o codigo do cliente');
readln(vetorveiculos[i].cofigocliente);
writeln('Digite o nome do cliente');
readln(vetorveiculos[i].nomecliente);
writeln('Digite o codigo do veiculo');
readln(vetorveiculos[i].codigoveiculo);
writeln('Digite o nome do veiculo');
readln(vetorveiculos[i].nomeveiculo);
writeln('Digite o tipo do veiculo');
readln(vetorveiculos[i].tipoveiculo);
writeln('Digite a data de saida');
readln(vetorveiculos[i].datasaida);
writeln('Digite a data de entrada');
readln(vetorveiculos[i].dataentrada);
write(vetormovimentacoes[i]);
close(vetormovimentacoes[i]);
writeln();
writeln('°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°');
end;
i:=i+1;
until (vetormovimentacoes[i].codigolocacao = '') or (i=11);
if (i=11) then
begin
writeln('Nao existe vaga para locacao');
writeln();
writeln('°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°');
end;
end;
end;
var a: integer;
vetorclientes: array [1..10] of file of registroclientes;
vetorveiculos: array [1..10] of file of registroveiculos;
vetormovimentacoes: array [1..10] of file of registromovimentacoes;
begin
a:=1;
while (a=1) or (a=2) or (a=3) do
begin
write('°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°');
write('°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°Locadora De Veiculos°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°');
writeln('°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°');
writeln('Digite o numero da opcao da tarefa que voce deseja executar');
writeln();
writeln('1 - Cadastro De Clientes');
writeln('2 - Cadastro De Veiculos');
writeln('3 - Movimentacoes');
writeln('Ou tecle qualquer outro digito para sair desse programa');
writeln();
write('Sua opcao eh ');
readln(a);
writeln();
writeln('°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°');
case a of
1: cadastroclientes(a);
2: cadastroveiculos(a);
3: movimentacao(a);
end;
end;
end.
segunda-feira, 4 de janeiro de 2010
Engenharia De Software - Objetivos
O objetivo em uma Engenharia De Software eh a Eficiencia Absoluta do Software
O objetivo eh deixar o Programa na jante... Na chapa...
Consequancias
- Faz com que o seja exigido o minimo possivel do Computador na execucao de tarefas efetuando as tarefas em MUITO menos tempo
- Exige menos consumo de energia para execucao de tarefas
- Diminue o aquecimento dos Micro Chips
- Torna possivel o uso absoluto da Maquina
O objetivo eh deixar o Programa na jante... Na chapa...
Consequancias
- Faz com que o seja exigido o minimo possivel do Computador na execucao de tarefas efetuando as tarefas em MUITO menos tempo
- Exige menos consumo de energia para execucao de tarefas
- Diminue o aquecimento dos Micro Chips
- Torna possivel o uso absoluto da Maquina
segunda-feira, 28 de dezembro de 2009
Demonstracao De Uma Sequencia Fibonacci - Decifrando O Codigo Da Vinci...
Esse problema foi proposto tambem por meu Professor querido Cassio Prazeres
----------
Nesse problema lidaremos com o sistema famoso de sequencia Fibonacci que aparece no filme O Codigo Da Vinci
----------
Faca um progama que calcule e mostre uma sequencia Fibonacci, sendo que o ultimo elemento deve ser menor que um dado numero "n" dado pelo usuario
Como exemplo pegue n=200 que temos a sequencia à seguir -> 0, 1, 1, 2, 3, 5, 8, 13, 21, 34, 55, 89, 144, o proximo seria 233, mas deve ser o numero "n=200" do usuario
----------
- Comeco da resolucao desse problema
A primeira coisa a ser feita é connhecer o sistema do problema e compreender ele
Ja conhecemos o sistema que é o sistema de sequencia Fibonacci
Agora precisamos compreender como ele funciona
Precisamos decifrarmos o sistema Fibonacci
O sistema de sequencia Fibonacci é MUITO interessante
No sistema de sequencia Fibonacci todo numero é a soma dos dois anteriores
0+1=1
1+1=2
1+2=3
2+3=5
3+5=8
5+8=13
...
- Continuacao da resolucao desse problema
Agora que conhecemos e compreendemos o sistema do problema podemos comecarmos à desenvolvermos o programa do problema
----------
Nesse problema lidaremos com o sistema famoso de sequencia Fibonacci que aparece no filme O Codigo Da Vinci
----------
Faca um progama que calcule e mostre uma sequencia Fibonacci, sendo que o ultimo elemento deve ser menor que um dado numero "n" dado pelo usuario
Como exemplo pegue n=200 que temos a sequencia à seguir -> 0, 1, 1, 2, 3, 5, 8, 13, 21, 34, 55, 89, 144, o proximo seria 233, mas deve ser o numero "n=200" do usuario
----------
- Comeco da resolucao desse problema
A primeira coisa a ser feita é connhecer o sistema do problema e compreender ele
Ja conhecemos o sistema que é o sistema de sequencia Fibonacci
Agora precisamos compreender como ele funciona
Precisamos decifrarmos o sistema Fibonacci
O sistema de sequencia Fibonacci é MUITO interessante
No sistema de sequencia Fibonacci todo numero é a soma dos dois anteriores
0+1=1
1+1=2
1+2=3
2+3=5
3+5=8
5+8=13
...
- Continuacao da resolucao desse problema
Agora que conhecemos e compreendemos o sistema do problema podemos comecarmos à desenvolvermos o programa do problema
domingo, 13 de dezembro de 2009
domingo, 6 de dezembro de 2009
Devido à Comunidade Cientifica exigir eu estou colocando o Codigo de meu ultimo trabalho escrito em C na Faculdade...
... Esse trabalho nao está terminado, mas, sefor possivel, descreverei seu desenvolvimento do comeco ao fim...
----------
# include(stdio.h) - O Blog nao aceitou a setas <>
# include (string.h) - O Blog nao aceitou a setas <>
void Mostrar ();
int L, C, Caso=1, Opcao=0;
void main ()
{
char Funcionarios[10][20];
While (Opcao!=4)
{
printf ("Escolha o numero da tarefa que voce dezeja realizar e tecle ENTER\n\n");
printf ("1 - Inserir um funcionario novo\n");
printf ("2 - Acessar os dados de um determinado funcionario sem alterar os dados\n");
printf ("3 - Acessar os dados de um determinado funcionario e alterar algum dado\n");
printf ("4 - Sair do programa\n");
scanf ("%d", &Opcao);
if (Opcao==1)
Inserir ();
if (Opcao==2)
Mostrar ();
if (Opcao==3)
if ((Opcao!=1)&&(Opcao!=2)&&(Opcao!=3)&&(Opcao!=4))
printf ("Voce inseriu um digito invalido...\nPor favor insira um digito valido...");
}
}
void Inserir ()
{
for (L=0; L=9; L++)
{
swtch (Caso)
{
case 1 : printf ("Numero Do Funcionario - ");
gets (Funcionarios[L]);
case 2 : printf ("\nNome Do Funcionario - );
gets (Funcionarios[L]);
case 3 : printf ("\nData De Nascimento - );
gets (Funcionarios[L]);
case 4 : iprintf ("\nEstado Civil - );
gets (Funcionarios[L]);
case 5 : printf ("\nR.G. - );
gets (Funcionarios[L]);
case 6 : printf ("\nC.I.C. - );
gets (Funcionarios[L]);
case 7 : printf ("\nTelefone Fixo - );
gets (Funcionarios[L]);
case 8 : printf ("\nTelefone Celular - );
gets (Funcionarios[L]);
case 9 : printf ("\nQuantidade De Dependentes - );
gets (Funcionarios[L]);
case 10 : printf ("\nEndereco - );
gets (Funcionarios[L]);
}
}
Caso = Caso + 1;
}
While (Opcao != 5)
{
printf ("Digite 5 e tecle ENTER para voltar ao MENU principal\n");
scanf ("%d", %Menu);
system ("pause");
}
}
void Mostrar ()
{
for (L=0; L=9; L++)
{
for (C=0; C=19; C++)
{
swtch (Caso)
{
case 1 : if ((L==0)&&(C==0))
printf ("Numero Do Funcionario - ");
printf ("%s", Funcionarios[L][C]);
case 2 : if ((L==1)&&(C==0))
printf ("\nNome Do Funcionario - );
printf ("%s", Funcionarios[L][C]);
case 3 : if ((L==2)&&(C==0))
printf ("\nData De Nascimento - );
printf ("%s", Funcionarios[L][C]);
case 4 : if ((L==3)&&(C==0))
printf ("\nEstado Civil - );
printf ("%s", Funcionarios[L][C]);
case 5 : if ((L==4)&&(C==0))
printf ("\nR.G. - );
printf ("%s", Funcionarios[L][C]);
case 6 : if ((L==5)&&(C==0))
printf ("\nC.I.C. - );
printf ("%s", Funcionarios[L][C]);
case 7 : if ((L==6))&&(C==0))
printf ("\nTelefone Fixo - );
printf ("%s", Funcionarios[L][C]);
case 8 : if ((L==7))&&(C==0))
printf ("\nTelefone Celular - );
printf ("%s", Funcionarios[L][C]);
case 9 : if ((L==8))&&(C==0))
printf ("\nQuantidade De Dependentes - );
printf ("%s", Funcionarios[L][C]);
case 10 : if ((L==9))&&(C==0))
printf ("\nEndereco - );
printf ("%s", Funcionarios[L][C]);
}
}
Caso = Caso + 1;
}
While ((Opcao)!=(5))
{
printf ("Digite 5 e tecle ENTER para voltar ao MENU principal\n");
scanf ("%d", %Menu);
system ("pause");
}
}
... Esse trabalho nao está terminado, mas, sefor possivel, descreverei seu desenvolvimento do comeco ao fim...
----------
# include
# include (string.h) -
void Mostrar ();
int L, C, Caso=1, Opcao=0;
void main ()
{
char Funcionarios[10][20];
While (Opcao!=4)
{
printf ("Escolha o numero da tarefa que voce dezeja realizar e tecle ENTER\n\n");
printf ("1 - Inserir um funcionario novo\n");
printf ("2 - Acessar os dados de um determinado funcionario sem alterar os dados\n");
printf ("3 - Acessar os dados de um determinado funcionario e alterar algum dado\n");
printf ("4 - Sair do programa\n");
scanf ("%d", &Opcao);
if (Opcao==1)
Inserir ();
if (Opcao==2)
Mostrar ();
if (Opcao==3)
if ((Opcao!=1)&&(Opcao!=2)&&(Opcao!=3)&&(Opcao!=4))
printf ("Voce inseriu um digito invalido...\nPor favor insira um digito valido...");
}
}
void Inserir ()
{
for (L=0; L=9; L++)
{
swtch (Caso)
{
case 1 : printf ("Numero Do Funcionario - ");
gets (Funcionarios[L]);
case 2 : printf ("\nNome Do Funcionario - );
gets (Funcionarios[L]);
case 3 : printf ("\nData De Nascimento - );
gets (Funcionarios[L]);
case 4 : iprintf ("\nEstado Civil - );
gets (Funcionarios[L]);
case 5 : printf ("\nR.G. - );
gets (Funcionarios[L]);
case 6 : printf ("\nC.I.C. - );
gets (Funcionarios[L]);
case 7 : printf ("\nTelefone Fixo - );
gets (Funcionarios[L]);
case 8 : printf ("\nTelefone Celular - );
gets (Funcionarios[L]);
case 9 : printf ("\nQuantidade De Dependentes - );
gets (Funcionarios[L]);
case 10 : printf ("\nEndereco - );
gets (Funcionarios[L]);
}
}
Caso = Caso + 1;
}
While (Opcao != 5)
{
printf ("Digite 5 e tecle ENTER para voltar ao MENU principal\n");
scanf ("%d", %Menu);
system ("pause");
}
}
void Mostrar ()
{
for (L=0; L=9; L++)
{
for (C=0; C=19; C++)
{
swtch (Caso)
{
case 1 : if ((L==0)&&(C==0))
printf ("Numero Do Funcionario - ");
printf ("%s", Funcionarios[L][C]);
case 2 : if ((L==1)&&(C==0))
printf ("\nNome Do Funcionario - );
printf ("%s", Funcionarios[L][C]);
case 3 : if ((L==2)&&(C==0))
printf ("\nData De Nascimento - );
printf ("%s", Funcionarios[L][C]);
case 4 : if ((L==3)&&(C==0))
printf ("\nEstado Civil - );
printf ("%s", Funcionarios[L][C]);
case 5 : if ((L==4)&&(C==0))
printf ("\nR.G. - );
printf ("%s", Funcionarios[L][C]);
case 6 : if ((L==5)&&(C==0))
printf ("\nC.I.C. - );
printf ("%s", Funcionarios[L][C]);
case 7 : if ((L==6))&&(C==0))
printf ("\nTelefone Fixo - );
printf ("%s", Funcionarios[L][C]);
case 8 : if ((L==7))&&(C==0))
printf ("\nTelefone Celular - );
printf ("%s", Funcionarios[L][C]);
case 9 : if ((L==8))&&(C==0))
printf ("\nQuantidade De Dependentes - );
printf ("%s", Funcionarios[L][C]);
case 10 : if ((L==9))&&(C==0))
printf ("\nEndereco - );
printf ("%s", Funcionarios[L][C]);
}
}
Caso = Caso + 1;
}
While ((Opcao)!=(5))
{
printf ("Digite 5 e tecle ENTER para voltar ao MENU principal\n");
scanf ("%d", %Menu);
system ("pause");
}
}
terça-feira, 15 de setembro de 2009
Treinamento... Interpretacao de texto
É de fundamental importancia a capacidade de interpretacao de textos para um profissional de programacao, por isso eu colocarei aqui um treinamento disso com a interpretacao de duas poesias da grande banda O Rappa
Analizaremos aqui a poesia...
- O Rappa - Minha Alma (A Paz A Qual Nao Quero)
A minha alma esta armada e apontada
Para cara do sossego
- Alegoria - Ele quer acabar com conformacao das pessoas em relacao às coisas ruims
(Sego Sego Sego Sego)
Pois paz sem voz, paz sem voz
Não é paz, é medo
- Alegoria - Nao ha guerra, mas nao ha liberdade de expressao tambem e se voce está assim é sinal de medo
(Medo Medo Medo Medo)
As vezes eu falo com a vida,
As vezes é ela quem diz:
"Qual a paz que eu não quero conservar,
Para tentar ser feliz?"
- Alegoria - Voce se conforma com o quê nao presta com medo de algo, mas nao sabe que as coisas nao estao boas... Estao pessimas...
As grades do condomínio
São para trazer protecao
Mas tambem trazem a duvida
Se é voce que esta nessa prisao
- Alegoria - Vivemos presos em jaulas para nos protegermos contra qualquer ameaca, mas voce tambem acha que estamos em paz, mas paz sem voz é medo
Me abrace e me dê um beijo,
Faca um filho comigo
Mas nao me deixe sentar na poltrona
No dia de domingo, domingo
- Alegoria - Faca qualquer coisa comigo, ate um filho, mas nao me deixe esquecido nos unicos momento de discanso os quais saos os unicos que tenho para ficar com voce
Procurando novas drogas de aluguel
Neste video coagido...
- Alegoria - Propagandas lhe fazem acreditar que voce compra uma cerveja e outras coisas, mas apenas para o uso e voce nao se torna o dono delas... Nao ha liberdade de expressao na TV... Todos os videos sao coagidos ao que nao querem...
É pela paz que eu não quero seguir admitindo
- Alegoria - Ele nao quer essa "paz" de mentira que adimite o quê nao presta por medo da ameaca de coisas piores acontecerem casa voce nao as adimita
É pela paz que eu não quero seguir
É pela paz que eu não quero seguir
É pela paz que eu não quero seguir admitido
- Alegoria - Ele nao quer essa "paz" de mentira que adimite o quê nao presta por medo da ameaca de coisas piores acontecerem casa voce nao as adimita
----------
Analizaremos aqui a poesia...
- O Rappa - O Que Sobrou Do Ceu
Faltou luz mas era dia
- Alegoria - Faltou energia eletrica mas houve uma iluminacao forte e clara como o dia
O sol invadiu a sala
- Alegoria - A iluminacao foi poderosa
Fez da T.V. um espelho
- Alegoria - A iluminacao fez ele olhar pra si mesmo
Refletindo o que a gente esquecia
- Alegoria - Esquecia de si mesmo
Faltou luz mas era dia dia
Faltou luz mas era dia dia dia
O som das crianças brincando nas ruas
Como se fosse um quintal
- Alegoria - As pessoas nao levam a vida à serio e à veem como ela fosse brinquedo e elas criancas
A cerveja gelada na esquina
Como se espantasse o mal
- Alegoria - As pessoas bebem com a intensao de fugirem da realidade como se fugir da realidade fizesse ela deixar de existir
Um cha pra curar esta azia
Um bom cha pra curar esta azia
- Alegoria - Assim como cerveja as pessoas bebem com a intensao de fugirem da realidade como se fugir da realidade fizesse ela deixar de existir
Todas as ciências
de baixa tecnologia
- Alegoria - Ciencias que so precisam do pensamento como Filosofia, Sociologia, Politica, etc...
Todas as cores escondidas
Nas nuvens da rotina
- Alegoria - As pessoas usam a rotina e outras coisas para se fazerem deixarem de verem as belezas da vida
Pra gente ver
- Alegoria - As ciencias de baixa tecnologia iluminam nossas mentes
Por entre os prédios e nós
- Alegoria - As pessoas estao cegas para tudo e nao veem atravez de suas ilusoes nem mesmo as coisas obvias
Pra gente ver
O que sobrou do Ceu
- Alegoria - As pessoas so tem interesse em dinheiro, bens materiais e fazerem mal... Ninguem quer saber do Ceu...
Analizaremos aqui a poesia...
- O Rappa - Minha Alma (A Paz A Qual Nao Quero)
A minha alma esta armada e apontada
Para cara do sossego
- Alegoria - Ele quer acabar com conformacao das pessoas em relacao às coisas ruims
(Sego Sego Sego Sego)
Pois paz sem voz, paz sem voz
Não é paz, é medo
- Alegoria - Nao ha guerra, mas nao ha liberdade de expressao tambem e se voce está assim é sinal de medo
(Medo Medo Medo Medo)
As vezes eu falo com a vida,
As vezes é ela quem diz:
"Qual a paz que eu não quero conservar,
Para tentar ser feliz?"
- Alegoria - Voce se conforma com o quê nao presta com medo de algo, mas nao sabe que as coisas nao estao boas... Estao pessimas...
As grades do condomínio
São para trazer protecao
Mas tambem trazem a duvida
Se é voce que esta nessa prisao
- Alegoria - Vivemos presos em jaulas para nos protegermos contra qualquer ameaca, mas voce tambem acha que estamos em paz, mas paz sem voz é medo
Me abrace e me dê um beijo,
Faca um filho comigo
Mas nao me deixe sentar na poltrona
No dia de domingo, domingo
- Alegoria - Faca qualquer coisa comigo, ate um filho, mas nao me deixe esquecido nos unicos momento de discanso os quais saos os unicos que tenho para ficar com voce
Procurando novas drogas de aluguel
Neste video coagido...
- Alegoria - Propagandas lhe fazem acreditar que voce compra uma cerveja e outras coisas, mas apenas para o uso e voce nao se torna o dono delas... Nao ha liberdade de expressao na TV... Todos os videos sao coagidos ao que nao querem...
É pela paz que eu não quero seguir admitindo
- Alegoria - Ele nao quer essa "paz" de mentira que adimite o quê nao presta por medo da ameaca de coisas piores acontecerem casa voce nao as adimita
É pela paz que eu não quero seguir
É pela paz que eu não quero seguir
É pela paz que eu não quero seguir admitido
- Alegoria - Ele nao quer essa "paz" de mentira que adimite o quê nao presta por medo da ameaca de coisas piores acontecerem casa voce nao as adimita
----------
Analizaremos aqui a poesia...
- O Rappa - O Que Sobrou Do Ceu
Faltou luz mas era dia
- Alegoria - Faltou energia eletrica mas houve uma iluminacao forte e clara como o dia
O sol invadiu a sala
- Alegoria - A iluminacao foi poderosa
Fez da T.V. um espelho
- Alegoria - A iluminacao fez ele olhar pra si mesmo
Refletindo o que a gente esquecia
- Alegoria - Esquecia de si mesmo
Faltou luz mas era dia dia
Faltou luz mas era dia dia dia
O som das crianças brincando nas ruas
Como se fosse um quintal
- Alegoria - As pessoas nao levam a vida à serio e à veem como ela fosse brinquedo e elas criancas
A cerveja gelada na esquina
Como se espantasse o mal
- Alegoria - As pessoas bebem com a intensao de fugirem da realidade como se fugir da realidade fizesse ela deixar de existir
Um cha pra curar esta azia
Um bom cha pra curar esta azia
- Alegoria - Assim como cerveja as pessoas bebem com a intensao de fugirem da realidade como se fugir da realidade fizesse ela deixar de existir
Todas as ciências
de baixa tecnologia
- Alegoria - Ciencias que so precisam do pensamento como Filosofia, Sociologia, Politica, etc...
Todas as cores escondidas
Nas nuvens da rotina
- Alegoria - As pessoas usam a rotina e outras coisas para se fazerem deixarem de verem as belezas da vida
Pra gente ver
- Alegoria - As ciencias de baixa tecnologia iluminam nossas mentes
Por entre os prédios e nós
- Alegoria - As pessoas estao cegas para tudo e nao veem atravez de suas ilusoes nem mesmo as coisas obvias
Pra gente ver
O que sobrou do Ceu
- Alegoria - As pessoas so tem interesse em dinheiro, bens materiais e fazerem mal... Ninguem quer saber do Ceu...
Assinar:
Postagens (Atom)


