quarta-feira, 30 de junho de 2010
terça-feira, 29 de junho de 2010
exemplo de agenda
program AGENDA_TRABALHO;
uses Crt;
var
ARQTXT : text;
NOME : string[40];
TELEFONE : string[8];
TECLA : char;
OPCAO : char;
procedure CENTER(MENSAGEM : string);
var
TAMANHO : integer;
begin
TAMANHO := 40 + length(MENSAGEM) div 2;
writeln(MENSAGEM:TAMANHO);
end;
procedure WRITEXY(X, Y : byte; MENSAGEM : string);
begin
gotoxy(X, Y); write(MENSAGEM);
end;
procedure LINE;
var
I : byte;
begin
for I := 1 to 80 do
write(#205);
end;
procedure ARQUIVO;
begin
clrscr;
line;
center('Criacao de Arquivo');
line;
rewrite(ARQTXT);
gotoxy( 1,12); center('Arquivo foi criado');
writexy(25,24,'Tecle algo para voltar ao menu');
TECLA := readkey;
close(ARQTXT);
end;
procedure CADASTRA;
begin
clrscr;
line;
center('Cadastramento de Registro');
line;
append(ARQTXT);
writexy(10, 5, 'Entre com o Nome ..........: '); readln(NOME);
writexy(10, 6, 'Entre com o Telefone ......: '); readln(TELEFONE);
writeln(ARQTXT, NOME);
writeln(ARQTXT, TELEFONE);
writexy(25,24,'Tecle algo para voltar ao menu');
TECLA := readkey;
close(ARQTXT);
end;
procedure EXIBIR;
var
LINHA : byte;
begin
clrscr;
line;
center('Apresentacao de Registros');
line;
LINHA := 5;
reset(ARQTXT);
while not eof(ARQTXT) do
begin
readln(ARQTXT, NOME);
readln(ARQTXT, TELEFONE);
gotoxy( 5,LINHA); write(NOME);
gotoxy(50,LINHA); write(TELEFONE);
LINHA := LINHA + 1;
end;
writexy(25,24,'Tecle algo para voltar ao menu');
TECLA := readkey;
close(ARQTXT);
end;
begin
OPCAO := '0';
assign(ARQTXT,'AGENDTXT.DAT');
while (OPCAO <> '4') do
begin
clrscr;
line;
center('Menu Principal');
line;
gotoxy(28, 6); write('1 ........ Criar arquivo');
gotoxy(28, 8); write('2 ............ Cadastrar');
gotoxy(28,10); write('3 ..... Exibir registros');
gotoxy(28,12); write('4 ...... Fim de Programa');
gotoxy(28,16); write('Escolha uma opcao ....: ');
readln(OPCAO);
if (OPCAO <> '4') then
case OPCAO of
'1' : Arquivo;
'2' : Cadastra;
'3' : Exibir;
else
gotoxy(27,24); writeln('Opcao invalida - Tecle algo');
OPCAO := readkey;
end;
end;
end.
uses Crt;
var
ARQTXT : text;
NOME : string[40];
TELEFONE : string[8];
TECLA : char;
OPCAO : char;
procedure CENTER(MENSAGEM : string);
var
TAMANHO : integer;
begin
TAMANHO := 40 + length(MENSAGEM) div 2;
writeln(MENSAGEM:TAMANHO);
end;
procedure WRITEXY(X, Y : byte; MENSAGEM : string);
begin
gotoxy(X, Y); write(MENSAGEM);
end;
procedure LINE;
var
I : byte;
begin
for I := 1 to 80 do
write(#205);
end;
procedure ARQUIVO;
begin
clrscr;
line;
center('Criacao de Arquivo');
line;
rewrite(ARQTXT);
gotoxy( 1,12); center('Arquivo foi criado');
writexy(25,24,'Tecle algo para voltar ao menu');
TECLA := readkey;
close(ARQTXT);
end;
procedure CADASTRA;
begin
clrscr;
line;
center('Cadastramento de Registro');
line;
append(ARQTXT);
writexy(10, 5, 'Entre com o Nome ..........: '); readln(NOME);
writexy(10, 6, 'Entre com o Telefone ......: '); readln(TELEFONE);
writeln(ARQTXT, NOME);
writeln(ARQTXT, TELEFONE);
writexy(25,24,'Tecle algo para voltar ao menu');
TECLA := readkey;
close(ARQTXT);
end;
procedure EXIBIR;
var
LINHA : byte;
begin
clrscr;
line;
center('Apresentacao de Registros');
line;
LINHA := 5;
reset(ARQTXT);
while not eof(ARQTXT) do
begin
readln(ARQTXT, NOME);
readln(ARQTXT, TELEFONE);
gotoxy( 5,LINHA); write(NOME);
gotoxy(50,LINHA); write(TELEFONE);
LINHA := LINHA + 1;
end;
writexy(25,24,'Tecle algo para voltar ao menu');
TECLA := readkey;
close(ARQTXT);
end;
begin
OPCAO := '0';
assign(ARQTXT,'AGENDTXT.DAT');
while (OPCAO <> '4') do
begin
clrscr;
line;
center('Menu Principal');
line;
gotoxy(28, 6); write('1 ........ Criar arquivo');
gotoxy(28, 8); write('2 ............ Cadastrar');
gotoxy(28,10); write('3 ..... Exibir registros');
gotoxy(28,12); write('4 ...... Fim de Programa');
gotoxy(28,16); write('Escolha uma opcao ....: ');
readln(OPCAO);
if (OPCAO <> '4') then
case OPCAO of
'1' : Arquivo;
'2' : Cadastra;
'3' : Exibir;
else
gotoxy(27,24); writeln('Opcao invalida - Tecle algo');
OPCAO := readkey;
end;
end;
end.
exemplo de agenda
program AGENDA_TRABALHO;
uses Crt;
var
ARQTXT : text;
NOME : string[40];
TELEFONE : string[8];
TECLA : char;
OPCAO : char;
procedure CENTER(MENSAGEM : string);
var
TAMANHO : integer;
begin
TAMANHO := 40 + length(MENSAGEM) div 2;
writeln(MENSAGEM:TAMANHO);
end;
procedure WRITEXY(X, Y : byte; MENSAGEM : string);
begin
gotoxy(X, Y); write(MENSAGEM);
end;
procedure LINE;
var
I : byte;
begin
for I := 1 to 80 do
write(#205);
end;
procedure ARQUIVO;
begin
clrscr;
line;
center('Criacao de Arquivo');
line;
rewrite(ARQTXT);
gotoxy( 1,12); center('Arquivo foi criado');
writexy(25,24,'Tecle algo para voltar ao menu');
TECLA := readkey;
close(ARQTXT);
end;
procedure CADASTRA;
begin
clrscr;
line;
center('Cadastramento de Registro');
line;
append(ARQTXT);
writexy(10, 5, 'Entre com o Nome ..........: '); readln(NOME);
writexy(10, 6, 'Entre com o Telefone ......: '); readln(TELEFONE);
writeln(ARQTXT, NOME);
writeln(ARQTXT, TELEFONE);
writexy(25,24,'Tecle algo para voltar ao menu');
TECLA := readkey;
close(ARQTXT);
end;
procedure EXIBIR;
var
LINHA : byte;
begin
clrscr;
line;
center('Apresentacao de Registros');
line;
LINHA := 5;
reset(ARQTXT);
while not eof(ARQTXT) do
begin
readln(ARQTXT, NOME);
readln(ARQTXT, TELEFONE);
gotoxy( 5,LINHA); write(NOME);
gotoxy(50,LINHA); write(TELEFONE);
LINHA := LINHA + 1;
end;
writexy(25,24,'Tecle algo para voltar ao menu');
TECLA := readkey;
close(ARQTXT);
end;
begin
OPCAO := '0';
assign(ARQTXT,'AGENDTXT.DAT');
while (OPCAO <> '4') do
begin
clrscr;
line;
center('Menu Principal');
line;
gotoxy(28, 6); write('1 ........ Criar arquivo');
gotoxy(28, 8); write('2 ............ Cadastrar');
gotoxy(28,10); write('3 ..... Exibir registros');
gotoxy(28,12); write('4 ...... Fim de Programa');
gotoxy(28,16); write('Escolha uma opcao ....: ');
readln(OPCAO);
if (OPCAO <> '4') then
case OPCAO of
'1' : Arquivo;
'2' : Cadastra;
'3' : Exibir;
else
gotoxy(27,24); writeln('Opcao invalida - Tecle algo');
OPCAO := readkey;
end;
end;
end.
uses Crt;
var
ARQTXT : text;
NOME : string[40];
TELEFONE : string[8];
TECLA : char;
OPCAO : char;
procedure CENTER(MENSAGEM : string);
var
TAMANHO : integer;
begin
TAMANHO := 40 + length(MENSAGEM) div 2;
writeln(MENSAGEM:TAMANHO);
end;
procedure WRITEXY(X, Y : byte; MENSAGEM : string);
begin
gotoxy(X, Y); write(MENSAGEM);
end;
procedure LINE;
var
I : byte;
begin
for I := 1 to 80 do
write(#205);
end;
procedure ARQUIVO;
begin
clrscr;
line;
center('Criacao de Arquivo');
line;
rewrite(ARQTXT);
gotoxy( 1,12); center('Arquivo foi criado');
writexy(25,24,'Tecle algo para voltar ao menu');
TECLA := readkey;
close(ARQTXT);
end;
procedure CADASTRA;
begin
clrscr;
line;
center('Cadastramento de Registro');
line;
append(ARQTXT);
writexy(10, 5, 'Entre com o Nome ..........: '); readln(NOME);
writexy(10, 6, 'Entre com o Telefone ......: '); readln(TELEFONE);
writeln(ARQTXT, NOME);
writeln(ARQTXT, TELEFONE);
writexy(25,24,'Tecle algo para voltar ao menu');
TECLA := readkey;
close(ARQTXT);
end;
procedure EXIBIR;
var
LINHA : byte;
begin
clrscr;
line;
center('Apresentacao de Registros');
line;
LINHA := 5;
reset(ARQTXT);
while not eof(ARQTXT) do
begin
readln(ARQTXT, NOME);
readln(ARQTXT, TELEFONE);
gotoxy( 5,LINHA); write(NOME);
gotoxy(50,LINHA); write(TELEFONE);
LINHA := LINHA + 1;
end;
writexy(25,24,'Tecle algo para voltar ao menu');
TECLA := readkey;
close(ARQTXT);
end;
begin
OPCAO := '0';
assign(ARQTXT,'AGENDTXT.DAT');
while (OPCAO <> '4') do
begin
clrscr;
line;
center('Menu Principal');
line;
gotoxy(28, 6); write('1 ........ Criar arquivo');
gotoxy(28, 8); write('2 ............ Cadastrar');
gotoxy(28,10); write('3 ..... Exibir registros');
gotoxy(28,12); write('4 ...... Fim de Programa');
gotoxy(28,16); write('Escolha uma opcao ....: ');
readln(OPCAO);
if (OPCAO <> '4') then
case OPCAO of
'1' : Arquivo;
'2' : Cadastra;
'3' : Exibir;
else
gotoxy(27,24); writeln('Opcao invalida - Tecle algo');
OPCAO := readkey;
end;
end;
end.
programa_agenda;
program AGENDA_LISTA;
uses
Crt;
type
LISTA = ^DADOS;
DADOS = record
NOME : string;
{CEP : integer;}
CEP : string;
BAIRRO,
CIDADE,
ENDERECO,
ESTADO : string;
PROX : lista;
end;
var
AGEN_CAD, ATUAL, LIST_CAD : lista;
(*
REGISTRO : dados;
//nao esta sendo usada
*)
ENT_NOME : string;
{ENT_CEP : integer;}
ENT_CEP : string;
ENT_BAIRRO : string;
ENT_CIDADE : string;
ENT_ENDERECO : string;
ENT_ESTADO : string;
I, LINHA : longint;
resposta: char;
begin
I := 1;
AGEN_CAD := nil;
repeat
clrscr;
writeln('AGEN_CAD');
writeln;
new(AGEN_CAD);
writeln('Entre o ',I:4,'o. registro');
writeln;
write('Nome ..............:'); readln(ENT_NOME);
write('Endereco...........:'); readln(ENT_ENDERECO);
write('Bairro ............:'); readln(ENT_BAIRRO);
write('Cep ...............:'); readln(ENT_CEP);
write('Cidade.............:'); readln(ENT_CIDADE);
write('Estado.............:'); readln(ENT_ESTADO);
AGEN_CAD^.NOME := ENT_NOME;
AGEN_CAD^.ENDERECO := ENT_ENDERECO;
AGEN_CAD^.BAIRRO := ENT_BAIRRO;
AGEN_CAD^.CEP := ENT_CEP;
AGEN_CAD^.CIDADE := ENT_CIDADE;
AGEN_CAD^.ESTADO := ENT_ESTADO;
if (LIST_CAD=nil) or (ENT_NOME < LIST_CAD^.NOME) then
begin
AGEN_CAD^.PROX := LIST_CAD;
LIST_CAD := AGEN_CAD;
end
else
begin
ATUAL := LIST_CAD;
while (ATUAL^.PROX <> nil) and (ENT_NOME > ATUAL^.PROX^.NOME) do
ATUAL := ATUAL^.PROX;
AGEN_CAD^.PROX := ATUAL^.PROX;
ATUAL^.PROX := AGEN_CAD;
end;
I := I + 1;
writeln;
writeln('Deseja continuar? [S]im ou [N]ao: '); readln(resposta;
until (UpCase(resposta = 'N');
clrscr;
I := 1;
LINHA := 3;
gotoxy( 1, 1); write('Reg#');
gotoxy( 6, 1); write('Nome');
gotoxy(46, 1); write('Endereco');
gotoxy(61, 1); write('Bairro');
gotoxy(81, 1); write('Cep');
gotoxy(101,1); write('Cidade');
gotoxy(121,1); write('Estado');
while (LIST_CAD <> nil) do
begin
gotoxy( 1,LINHA); write(I:4);
gotoxy( 6,LINHA); write(LIST_CAD^.NOME);
gotoxy(46,LINHA); write(LIST_CAD^.ENDERECO);
gotoxy(61,LINHA); write(LIST_CAD^.BAIRRO);
gotoxy(81,LINHA); write(LIST_CAD^.CEP);
gotoxy(101,LINHA); write(LIST_CAD^.CIDADE);
gotoxy(121,LINHA); write(LIST_CAD^.ESTADO);
LIST_CAD := LIST_CAD^.PROX;
LINHA := LINHA + 1;
I := I + 1;
end;
readln; {pause antes de fechar}
end.
uses
Crt;
type
LISTA = ^DADOS;
DADOS = record
NOME : string;
{CEP : integer;}
CEP : string;
BAIRRO,
CIDADE,
ENDERECO,
ESTADO : string;
PROX : lista;
end;
var
AGEN_CAD, ATUAL, LIST_CAD : lista;
(*
REGISTRO : dados;
//nao esta sendo usada
*)
ENT_NOME : string;
{ENT_CEP : integer;}
ENT_CEP : string;
ENT_BAIRRO : string;
ENT_CIDADE : string;
ENT_ENDERECO : string;
ENT_ESTADO : string;
I, LINHA : longint;
resposta: char;
begin
I := 1;
AGEN_CAD := nil;
repeat
clrscr;
writeln('AGEN_CAD');
writeln;
new(AGEN_CAD);
writeln('Entre o ',I:4,'o. registro');
writeln;
write('Nome ..............:'); readln(ENT_NOME);
write('Endereco...........:'); readln(ENT_ENDERECO);
write('Bairro ............:'); readln(ENT_BAIRRO);
write('Cep ...............:'); readln(ENT_CEP);
write('Cidade.............:'); readln(ENT_CIDADE);
write('Estado.............:'); readln(ENT_ESTADO);
AGEN_CAD^.NOME := ENT_NOME;
AGEN_CAD^.ENDERECO := ENT_ENDERECO;
AGEN_CAD^.BAIRRO := ENT_BAIRRO;
AGEN_CAD^.CEP := ENT_CEP;
AGEN_CAD^.CIDADE := ENT_CIDADE;
AGEN_CAD^.ESTADO := ENT_ESTADO;
if (LIST_CAD=nil) or (ENT_NOME < LIST_CAD^.NOME) then
begin
AGEN_CAD^.PROX := LIST_CAD;
LIST_CAD := AGEN_CAD;
end
else
begin
ATUAL := LIST_CAD;
while (ATUAL^.PROX <> nil) and (ENT_NOME > ATUAL^.PROX^.NOME) do
ATUAL := ATUAL^.PROX;
AGEN_CAD^.PROX := ATUAL^.PROX;
ATUAL^.PROX := AGEN_CAD;
end;
I := I + 1;
writeln;
writeln('Deseja continuar? [S]im ou [N]ao: '); readln(resposta;
until (UpCase(resposta = 'N');
clrscr;
I := 1;
LINHA := 3;
gotoxy( 1, 1); write('Reg#');
gotoxy( 6, 1); write('Nome');
gotoxy(46, 1); write('Endereco');
gotoxy(61, 1); write('Bairro');
gotoxy(81, 1); write('Cep');
gotoxy(101,1); write('Cidade');
gotoxy(121,1); write('Estado');
while (LIST_CAD <> nil) do
begin
gotoxy( 1,LINHA); write(I:4);
gotoxy( 6,LINHA); write(LIST_CAD^.NOME);
gotoxy(46,LINHA); write(LIST_CAD^.ENDERECO);
gotoxy(61,LINHA); write(LIST_CAD^.BAIRRO);
gotoxy(81,LINHA); write(LIST_CAD^.CEP);
gotoxy(101,LINHA); write(LIST_CAD^.CIDADE);
gotoxy(121,LINHA); write(LIST_CAD^.ESTADO);
LIST_CAD := LIST_CAD^.PROX;
LINHA := LINHA + 1;
I := I + 1;
end;
readln; {pause antes de fechar}
end.
program AGENDA_LISTA;
uses
Crt;
type
LISTA = ^DADOS;
DADOS = record
NOME : string;
CEP : integer;
BAIRRO,CIDADE,ENDERECO,ESTADO : string;
PROX : lista;
end;
var
AGEN_CAD, ATUAL, LIST_CAD : lista;
REGISTRO : dados;
ENT_NOME : string;
ENT_CEP : integer;
ENT_BAIRRO : string;
ENT_CIDADE : string;
ENT_ENDERECO : string;
ENT_ESTADO : string;
I, LINHA : longint;
resposta: char;
begin
I := 1;
AGEN_CAD := nil;
repeat
clrscr;
writeln('AGEN_CAD');
writeln;
new(AGEN_CAD);
writeln('Entre o ',I:4,'o. registro');
writeln;
write('Nome ..............:'); readln(ENT_NOME);
write('Endereco........:'); readln(ENT_ENDERECO);
write('Bairro ..........:'); readln(ENT_BAIRRO);
write('Cep ................:'); readln(ENT_CEP);
write('Cidade............:'); readln(ENT_CIDADE);
write('Estado...........:'); readln(ENT_ESTADO);
AGEN_CAD^.NOME := ENT_NOME;
AGEN_CAD^.ENDERECO := ENT_ENDERECO;
AGEN_CAD^.BAIRRO := ENT_BAIRRO;
AGEN_CAD^.CEP := ENT_CEP;
AGEN_CAD^.CIDADE := ENT_CIDADE;
AGEN_CAD^.ESTADO := ENT_ESTADO;
if (LIST_CAD=nil) or (ENT_NOME < LIST_CAD^.NOME) then
begin
AGEN_CAD^.PROX := LIST_CAD;
LIST_CAD := AGEN_CAD;
end
else
begin
ATUAL := LIST_CAD;
while (ATUAL^.PROX <> nil) and (ENT_NOME > ATUAL^.PROX^.NOME) do
ATUAL := ATUAL^.PROX;
AGEN_CAD^.PROX := ATUAL^.PROX;
ATUAL^.PROX := AGEN_CAD;
end;
I := I + 1;
writeln;
writeln('Deseja continuar? [S]im ou [N]ao: '); readln(resposta;
until (UpCase(resposta = 'N');
clrscr;
I := 1;
LINHA := 3;
gotoxy( 1, 1); write('Reg#');
gotoxy( 6, 1); write('Nome');
gotoxy(46, 1); write('Endereco');
gotoxy(61, 1); write('Bairro');
gotoxy(81, 1); write('Cep');
gotoxy(101,1); write('Cidade');
gotoxy(121,1); write('Estado');
while (LIST_CAD <> nil) do
begin
gotoxy( 1,LINHA); write(I:4);
gotoxy( 6,LINHA); write(LIST_CAD^.NOME);
gotoxy(46,LINHA); write(LIST_CAD^.ENDERECO);
gotoxy(61,LINHA); write(LIST_CAD^.BAIRRO);
gotoxy(81,LINHA); write(LIST_CAD^.CEP);
gotoxy(101,LINHA); write(LIST_CAD^.CIDADE);
gotoxy(121,LINHA); write(LIST_CAD^.ESTADO);
LIST_CAD := LIST_CAD^.PROX;
LINHA := LINHA + 1;
I := I + 1;
end;
end.
uses
Crt;
type
LISTA = ^DADOS;
DADOS = record
NOME : string;
CEP : integer;
BAIRRO,CIDADE,ENDERECO,ESTADO : string;
PROX : lista;
end;
var
AGEN_CAD, ATUAL, LIST_CAD : lista;
REGISTRO : dados;
ENT_NOME : string;
ENT_CEP : integer;
ENT_BAIRRO : string;
ENT_CIDADE : string;
ENT_ENDERECO : string;
ENT_ESTADO : string;
I, LINHA : longint;
resposta: char;
begin
I := 1;
AGEN_CAD := nil;
repeat
clrscr;
writeln('AGEN_CAD');
writeln;
new(AGEN_CAD);
writeln('Entre o ',I:4,'o. registro');
writeln;
write('Nome ..............:'); readln(ENT_NOME);
write('Endereco........:'); readln(ENT_ENDERECO);
write('Bairro ..........:'); readln(ENT_BAIRRO);
write('Cep ................:'); readln(ENT_CEP);
write('Cidade............:'); readln(ENT_CIDADE);
write('Estado...........:'); readln(ENT_ESTADO);
AGEN_CAD^.NOME := ENT_NOME;
AGEN_CAD^.ENDERECO := ENT_ENDERECO;
AGEN_CAD^.BAIRRO := ENT_BAIRRO;
AGEN_CAD^.CEP := ENT_CEP;
AGEN_CAD^.CIDADE := ENT_CIDADE;
AGEN_CAD^.ESTADO := ENT_ESTADO;
if (LIST_CAD=nil) or (ENT_NOME < LIST_CAD^.NOME) then
begin
AGEN_CAD^.PROX := LIST_CAD;
LIST_CAD := AGEN_CAD;
end
else
begin
ATUAL := LIST_CAD;
while (ATUAL^.PROX <> nil) and (ENT_NOME > ATUAL^.PROX^.NOME) do
ATUAL := ATUAL^.PROX;
AGEN_CAD^.PROX := ATUAL^.PROX;
ATUAL^.PROX := AGEN_CAD;
end;
I := I + 1;
writeln;
writeln('Deseja continuar? [S]im ou [N]ao: '); readln(resposta;
until (UpCase(resposta = 'N');
clrscr;
I := 1;
LINHA := 3;
gotoxy( 1, 1); write('Reg#');
gotoxy( 6, 1); write('Nome');
gotoxy(46, 1); write('Endereco');
gotoxy(61, 1); write('Bairro');
gotoxy(81, 1); write('Cep');
gotoxy(101,1); write('Cidade');
gotoxy(121,1); write('Estado');
while (LIST_CAD <> nil) do
begin
gotoxy( 1,LINHA); write(I:4);
gotoxy( 6,LINHA); write(LIST_CAD^.NOME);
gotoxy(46,LINHA); write(LIST_CAD^.ENDERECO);
gotoxy(61,LINHA); write(LIST_CAD^.BAIRRO);
gotoxy(81,LINHA); write(LIST_CAD^.CEP);
gotoxy(101,LINHA); write(LIST_CAD^.CIDADE);
gotoxy(121,LINHA); write(LIST_CAD^.ESTADO);
LIST_CAD := LIST_CAD^.PROX;
LINHA := LINHA + 1;
I := I + 1;
end;
end.
Program Agenda;
type
agenda_pessoa = array[1..10] of String;
pessoa_contato= record
nome : agenda_pessoa;
endereco : agenda_pessoa;
tel : agenda_pessoa;
end;
var
contato_agenda : array[1..10] of pessoa_contato;
i:integer;
menu:Char;
{============================ INICIO DO PROCEDIMENTO -------- Criando o Procedimento para cadastro -------------------------------- }
Procedure cad_contato ;
var
nome: agenda_pessoa;
endereco: agenda_pessoa;
tel: agenda_pessoa;
i: integer;
Begin
textcolor( lightcyan );
for i := 1 to 10 do begin
write( '| Entre com o nome do ' , i , ' contato:......| : ' );
read( contato_agenda[i].nome[i] );
WRITELN( '' );
write( '| Entre com o endereco do ' , I , ' contato:..........| : ');
read( contato_agenda[i].endereco[i] );
WRITELN( '' );
write( '| Entre com o telefone do ' , I , ' contato:..........| : ' );
readln( contato_agenda[i].tel[i] );
end;
for i := 1 to 10 do begin
WRITELN( '' );
writeLN( '| Listando o nome do ' , i , ' contato.........................| : ' , contato_agenda[i].nome[i] );
WRITELN( '' );
writeLN( '| Listando o endereco do ' , i , ' contato..................| : ' , contato_agenda[i].endereco[i] );
WRITELN( '' );
writeLN( '| Listando o tel do ' , i , ' contato.....................| : ' , contato_agenda[i].tel[i] );
WRITELN( '' );
//WRITELN( ' TECLE ENTER NEXT REGISTRO ' );
readkey;
end;
//WRITELN( 'ENTER NEXT REGISTRO..... ' );
writeln( ' APÓS LISTAR TODOS OS REGISTRO TECLE ENTER PARA VOLTAR AO MENU. ' );
readkey;
End;
{===================== FIM DO PROCEDIMENTO -------- Criando o Procedimento para cadastro -------------------------------- }
{ INICIO DO PROCEDIMENTO -------- Criando o Procedimento para DELETAR cadastro -------------------------------- }
Procedure deleta_contato ;
{ VARIAVEIS PARA A PESQUISA BINARIA }
var
i,j:integer;
comeco, final, meio:integer;
pesq, resposta x: string;
acha: boolean;
//============================================
nome: agenda_pessoa;
Begin
{INICIANDO A ORDERNAÇÃO}
for i := 1 to 9 do
for j := i+1 to 10 do
if ( contato_agenda[i].nome[i] > contato_agenda[j].nome[j]) then
begin
x := contato_agenda[i].nome[i] ;
contato_agenda[i].nome[i] := contato_agenda[j].nome[j];
contato_agenda[j].nome[j] := x;
end;
{ FIM DA ORDERNAÇÃO }
{ INICIANDO A ALTERACAO }
//inicializando a variavel -- RESP
resposta= 'SIM';
while (resposta= 'SIM')or (resposta= 'sim')do
begin
writeln( ' Entre com o nome que deseja deletar: ' );
readln( pesq );
//INICIALIZANDO AS VARIAVEIS --- COMECO, FINAL , ACHAR;
COMECO:= 1; FINAL:= 10; ACHA:= false;
while (comeco <= final ) and ( acha = false ) do
begin
meio:= (comeco + final ) div 2;
if (pesq = contato_agenda[meio].nome[meio] ) then
acha:= true
else
if (pesq < contato_agenda[meio].nome[meio]) then
final:= meio - 1
else
comeco:= meio + 1;
end;
IF (acha = true) then
begin
contato_agenda[meio].nome[meio] := '';
writeln( ' registro apagado ' );
end
else
writeln( pesq , ' Registro não existe. ' );
WRITELN( '' );
{ROTINA PARA ALTERAR NOVAMENTE}
writeln( ' Deseja deletar outro ocntato: Sim ou Não ? ' );
readln( resposta);
readkey;
end;
{ FINALIZANDO A ALTERAÇÃO }
end;
{ FIM DO PROCEDIMENTO -------- fim do Procedimento para DELETAR cadastro --------------------------------}
{ INICIO DO PROCEDIMENTO -------- Criando o Procedimento para ALTERACAO DE cadastro -----------------------------}
Procedure altera_contato ;
{ VARIAVEIS PARA A PESQUISA BINARIA }
var
i,j:integer;
comeco, final, meio:integer;
pesq, resposta x: string;
acha: boolean;
//================================================
nome: agenda_pessoa;
Perg : Integer;
Begin
{ORDERNAÇÃO}
for i := 1 to 9 do
for j := i+1 to 10 do
if ( contato_agenda[i].nome[i] > contato_agenda[j].nome[j]) then
begin
x := contato_agenda[i].nome[i] ;
contato_agenda[i].nome[i] := contato_agenda[j].nome[j];
contato_agenda[j].nome[j] := x;
end;
{ FIM DA ORDERNAÇÃO }
{ iniciando a pesquisa }
//inicializando a variavel -- RESP
resposta= 'SIM';
while (resposta= 'SIM')or (resposta= 'sim')do
begin
writeln( ' Entre com o nome que deseja alterar: ' );
readln( pesq );
//INICIALIZANDO AS VARIAVEIS --- COMECO, FINAL , ACHAR;
COMECO:= 1; FINAL:= 10; ACHA:= false;
while (comeco <= final ) and ( acha = false ) do
begin
meio:= (comeco + final ) div 2;
if (pesq = contato_agenda[meio].nome[meio] ) then
acha:= true
else
if (pesq < contato_agenda[meio].nome[meio]) then
final:= meio - 1
else
comeco:= meio + 1;
end;
IF (acha = true) then
//***** Alteração de dados***
begin
write ('Para Alterar Informe 1 para contato, 2 para endereço, 3 telefone ou 4 para todos?');
read (perg);
If (perg = 1) or (perg = 10) then
begin
writeln( '| Entre com o novo nome do contato:..........| : ' );
read( contato_agenda[meio].nome[meio] );
WRITELN( '' );
End;
If (perg = 2) or (perg = 10) then
begin
writeln( '| Entre com o endereco do contato:.................| : ' );
read( contato_agenda[meio].endereco[meio] );
WRITELN( '' );
End;
if (perg = 3) or (perg = 10) then
Begin
writeln( '| Entre com o telefone do contato:............| : ' );
readln( contato_agenda[meio].tel[meio] );
end;
end
else
writeln( pesq , ' Não foi localizada. ' );
WRITELN( '' );
{ROTINA PARA PESQUISAR NOVAMENTE}
writeln( ' Deseja Alterar outro contato: Sim ou Não ? ' );
readln( resposta);
readkey;
end;
{ finalizando a pesquisa }
End;
{ FIM DO PROCEDIMENTO -------- Criando o Procedimento para cadastro -------------------------------- }
{ INICIO DO PROCEDIMENTO PARA PESQUISA -------- DESENVOLVIDO POR SIMAO NETO -------------------------------- }
Procedure pesquisa_bin ;
var
{ VARIAVEIS PARA A PESQUISA BINARIA }
i,j:integer;
comeco, final, meio:integer;
pesq, resposta x: string;
acha: boolean;
//=========================
nome: agenda_pessoa;
Begin
{ORDERNAÇÃO}
for i := 1 to 9 do
for j := i+1 to 10 do
if ( contato_agenda[i].nome[i] > contato_agenda[j].nome[j]) then
begin
x := contato_agenda[i].nome[i] ;
contato_agenda[i].nome[i] := contato_agenda[j].nome[j];
contato_agenda[j].nome[j] := x;
end;
{ FIM DA ORDERNAÇÃO }
{ iniciando a pesquisa }
//inicializando a variavel -- RESP
resposta= 'SIM';
while (resposta= 'SIM')or (resposta= 'sim')do
begin
writeln( ' Entre com o nome que deseja pesquisar: ' );
readln( pesq );
//INICIALIZANDO AS VARIAVEIS --- COMECO, FINAL , ACHAR;
COMECO:= 1; FINAL:= 10; ACHA:= false;
while (comeco <= final ) and ( acha = false ) do
begin
meio:= (comeco + final ) div 2;
if (pesq = contato_agenda[meio].nome[meio] ) then
acha:= true
else
if (pesq < contato_agenda[meio].nome[meio]) then
final:= meio - 1
else
comeco:= meio + 1;
end;
IF (acha = true) then
writeln( pesq , ' Foi localizado (a) na posição ' ,meio )
else
// WRITELN( '' );
writeln( pesq , ' Não foi localizada. ' );
{ROTINA PARA PESQUISAR NOVAMENTE}
writeln( ' Deseja Pesquisar Novamente: Sim ou Não ? ' );
readln( resposta);
readkey;
end;
{ finalizando a pesquisa }
End;
{ FIM DO PROCEDIMENTO PARA PESQUISA -------- DESENVOLVIDO POR SIMAO NETO -------------------------------- }
{ INICIO DO PROGRAMA -------- DESENVOLVIDO POR SIMAO NETO -------------------------------- }
BEGIN
//gotoxy(15,10);
textcolor( lightcyan );
textbackground( RED );
menu:='0';
while (menu <> '5') do begin
clrscr;
gotoxy(25,1);writeln('ADS - 11 | ED - Estrutura de Dados');
gotoxy(25, 3); writeln('Equipe de Desenvolvimento');
gotoxy(25, 5); writeln('venico, patricia');
gotoxy(28, 7); write('Menu principal');
gotoxy(28, 7); write('Agenda Eletronica - v0.0.1');
gotoxy(28, 10); write('1.....................Cadastro de Contatos');
gotoxy(28, 12); write('2............Pesquisa de Contatos por nome');
gotoxy(28, 14); write('3......Deleta contato');
gotoxy(28, 16); write('4................Altera contato');
gotoxy(28, 18); write('5..Fim do programa');
gotoxy(28, 20); write('Escolha uma opcao ..........: ');
readln(menu);
IF (menu <> '5') THEN
case menu OF
'1': cad_contato;
'2': Pesquisa_bin;
'3': deleta_contato;
'4': altera_contato;
else
begin
gotoxy(27, 25);
writeln( 'Opcao invalida - tecle algo');
readkey;
end;
end;
end;
End.
type
agenda_pessoa = array[1..10] of String;
pessoa_contato= record
nome : agenda_pessoa;
endereco : agenda_pessoa;
tel : agenda_pessoa;
end;
var
contato_agenda : array[1..10] of pessoa_contato;
i:integer;
menu:Char;
{============================ INICIO DO PROCEDIMENTO -------- Criando o Procedimento para cadastro -------------------------------- }
Procedure cad_contato ;
var
nome: agenda_pessoa;
endereco: agenda_pessoa;
tel: agenda_pessoa;
i: integer;
Begin
textcolor( lightcyan );
for i := 1 to 10 do begin
write( '| Entre com o nome do ' , i , ' contato:......| : ' );
read( contato_agenda[i].nome[i] );
WRITELN( '' );
write( '| Entre com o endereco do ' , I , ' contato:..........| : ');
read( contato_agenda[i].endereco[i] );
WRITELN( '' );
write( '| Entre com o telefone do ' , I , ' contato:..........| : ' );
readln( contato_agenda[i].tel[i] );
end;
for i := 1 to 10 do begin
WRITELN( '' );
writeLN( '| Listando o nome do ' , i , ' contato.........................| : ' , contato_agenda[i].nome[i] );
WRITELN( '' );
writeLN( '| Listando o endereco do ' , i , ' contato..................| : ' , contato_agenda[i].endereco[i] );
WRITELN( '' );
writeLN( '| Listando o tel do ' , i , ' contato.....................| : ' , contato_agenda[i].tel[i] );
WRITELN( '' );
//WRITELN( ' TECLE ENTER NEXT REGISTRO ' );
readkey;
end;
//WRITELN( 'ENTER NEXT REGISTRO..... ' );
writeln( ' APÓS LISTAR TODOS OS REGISTRO TECLE ENTER PARA VOLTAR AO MENU. ' );
readkey;
End;
{===================== FIM DO PROCEDIMENTO -------- Criando o Procedimento para cadastro -------------------------------- }
{ INICIO DO PROCEDIMENTO -------- Criando o Procedimento para DELETAR cadastro -------------------------------- }
Procedure deleta_contato ;
{ VARIAVEIS PARA A PESQUISA BINARIA }
var
i,j:integer;
comeco, final, meio:integer;
pesq, resposta x: string;
acha: boolean;
//============================================
nome: agenda_pessoa;
Begin
{INICIANDO A ORDERNAÇÃO}
for i := 1 to 9 do
for j := i+1 to 10 do
if ( contato_agenda[i].nome[i] > contato_agenda[j].nome[j]) then
begin
x := contato_agenda[i].nome[i] ;
contato_agenda[i].nome[i] := contato_agenda[j].nome[j];
contato_agenda[j].nome[j] := x;
end;
{ FIM DA ORDERNAÇÃO }
{ INICIANDO A ALTERACAO }
//inicializando a variavel -- RESP
resposta= 'SIM';
while (resposta= 'SIM')or (resposta= 'sim')do
begin
writeln( ' Entre com o nome que deseja deletar: ' );
readln( pesq );
//INICIALIZANDO AS VARIAVEIS --- COMECO, FINAL , ACHAR;
COMECO:= 1; FINAL:= 10; ACHA:= false;
while (comeco <= final ) and ( acha = false ) do
begin
meio:= (comeco + final ) div 2;
if (pesq = contato_agenda[meio].nome[meio] ) then
acha:= true
else
if (pesq < contato_agenda[meio].nome[meio]) then
final:= meio - 1
else
comeco:= meio + 1;
end;
IF (acha = true) then
begin
contato_agenda[meio].nome[meio] := '';
writeln( ' registro apagado ' );
end
else
writeln( pesq , ' Registro não existe. ' );
WRITELN( '' );
{ROTINA PARA ALTERAR NOVAMENTE}
writeln( ' Deseja deletar outro ocntato: Sim ou Não ? ' );
readln( resposta);
readkey;
end;
{ FINALIZANDO A ALTERAÇÃO }
end;
{ FIM DO PROCEDIMENTO -------- fim do Procedimento para DELETAR cadastro --------------------------------}
{ INICIO DO PROCEDIMENTO -------- Criando o Procedimento para ALTERACAO DE cadastro -----------------------------}
Procedure altera_contato ;
{ VARIAVEIS PARA A PESQUISA BINARIA }
var
i,j:integer;
comeco, final, meio:integer;
pesq, resposta x: string;
acha: boolean;
//================================================
nome: agenda_pessoa;
Perg : Integer;
Begin
{ORDERNAÇÃO}
for i := 1 to 9 do
for j := i+1 to 10 do
if ( contato_agenda[i].nome[i] > contato_agenda[j].nome[j]) then
begin
x := contato_agenda[i].nome[i] ;
contato_agenda[i].nome[i] := contato_agenda[j].nome[j];
contato_agenda[j].nome[j] := x;
end;
{ FIM DA ORDERNAÇÃO }
{ iniciando a pesquisa }
//inicializando a variavel -- RESP
resposta= 'SIM';
while (resposta= 'SIM')or (resposta= 'sim')do
begin
writeln( ' Entre com o nome que deseja alterar: ' );
readln( pesq );
//INICIALIZANDO AS VARIAVEIS --- COMECO, FINAL , ACHAR;
COMECO:= 1; FINAL:= 10; ACHA:= false;
while (comeco <= final ) and ( acha = false ) do
begin
meio:= (comeco + final ) div 2;
if (pesq = contato_agenda[meio].nome[meio] ) then
acha:= true
else
if (pesq < contato_agenda[meio].nome[meio]) then
final:= meio - 1
else
comeco:= meio + 1;
end;
IF (acha = true) then
//***** Alteração de dados***
begin
write ('Para Alterar Informe 1 para contato, 2 para endereço, 3 telefone ou 4 para todos?');
read (perg);
If (perg = 1) or (perg = 10) then
begin
writeln( '| Entre com o novo nome do contato:..........| : ' );
read( contato_agenda[meio].nome[meio] );
WRITELN( '' );
End;
If (perg = 2) or (perg = 10) then
begin
writeln( '| Entre com o endereco do contato:.................| : ' );
read( contato_agenda[meio].endereco[meio] );
WRITELN( '' );
End;
if (perg = 3) or (perg = 10) then
Begin
writeln( '| Entre com o telefone do contato:............| : ' );
readln( contato_agenda[meio].tel[meio] );
end;
end
else
writeln( pesq , ' Não foi localizada. ' );
WRITELN( '' );
{ROTINA PARA PESQUISAR NOVAMENTE}
writeln( ' Deseja Alterar outro contato: Sim ou Não ? ' );
readln( resposta);
readkey;
end;
{ finalizando a pesquisa }
End;
{ FIM DO PROCEDIMENTO -------- Criando o Procedimento para cadastro -------------------------------- }
{ INICIO DO PROCEDIMENTO PARA PESQUISA -------- DESENVOLVIDO POR SIMAO NETO -------------------------------- }
Procedure pesquisa_bin ;
var
{ VARIAVEIS PARA A PESQUISA BINARIA }
i,j:integer;
comeco, final, meio:integer;
pesq, resposta x: string;
acha: boolean;
//=========================
nome: agenda_pessoa;
Begin
{ORDERNAÇÃO}
for i := 1 to 9 do
for j := i+1 to 10 do
if ( contato_agenda[i].nome[i] > contato_agenda[j].nome[j]) then
begin
x := contato_agenda[i].nome[i] ;
contato_agenda[i].nome[i] := contato_agenda[j].nome[j];
contato_agenda[j].nome[j] := x;
end;
{ FIM DA ORDERNAÇÃO }
{ iniciando a pesquisa }
//inicializando a variavel -- RESP
resposta= 'SIM';
while (resposta= 'SIM')or (resposta= 'sim')do
begin
writeln( ' Entre com o nome que deseja pesquisar: ' );
readln( pesq );
//INICIALIZANDO AS VARIAVEIS --- COMECO, FINAL , ACHAR;
COMECO:= 1; FINAL:= 10; ACHA:= false;
while (comeco <= final ) and ( acha = false ) do
begin
meio:= (comeco + final ) div 2;
if (pesq = contato_agenda[meio].nome[meio] ) then
acha:= true
else
if (pesq < contato_agenda[meio].nome[meio]) then
final:= meio - 1
else
comeco:= meio + 1;
end;
IF (acha = true) then
writeln( pesq , ' Foi localizado (a) na posição ' ,meio )
else
// WRITELN( '' );
writeln( pesq , ' Não foi localizada. ' );
{ROTINA PARA PESQUISAR NOVAMENTE}
writeln( ' Deseja Pesquisar Novamente: Sim ou Não ? ' );
readln( resposta);
readkey;
end;
{ finalizando a pesquisa }
End;
{ FIM DO PROCEDIMENTO PARA PESQUISA -------- DESENVOLVIDO POR SIMAO NETO -------------------------------- }
{ INICIO DO PROGRAMA -------- DESENVOLVIDO POR SIMAO NETO -------------------------------- }
BEGIN
//gotoxy(15,10);
textcolor( lightcyan );
textbackground( RED );
menu:='0';
while (menu <> '5') do begin
clrscr;
gotoxy(25,1);writeln('ADS - 11 | ED - Estrutura de Dados');
gotoxy(25, 3); writeln('Equipe de Desenvolvimento');
gotoxy(25, 5); writeln('venico, patricia');
gotoxy(28, 7); write('Menu principal');
gotoxy(28, 7); write('Agenda Eletronica - v0.0.1');
gotoxy(28, 10); write('1.....................Cadastro de Contatos');
gotoxy(28, 12); write('2............Pesquisa de Contatos por nome');
gotoxy(28, 14); write('3......Deleta contato');
gotoxy(28, 16); write('4................Altera contato');
gotoxy(28, 18); write('5..Fim do programa');
gotoxy(28, 20); write('Escolha uma opcao ..........: ');
readln(menu);
IF (menu <> '5') THEN
case menu OF
'1': cad_contato;
'2': Pesquisa_bin;
'3': deleta_contato;
'4': altera_contato;
else
begin
gotoxy(27, 25);
writeln( 'Opcao invalida - tecle algo');
readkey;
end;
end;
end;
End.
segunda-feira, 28 de junho de 2010
sexta-feira, 25 de junho de 2010
quinta-feira, 24 de junho de 2010
terça-feira, 22 de junho de 2010
Carla Bruni-Sarkozy já é francesa e espera o novo passaporte
A primeira dama lamenta ainda não estar grávida, numa altura em que vai sair o seu terceiro álbum.
A mulher do Presidente da França, Carla Bruni -Sarkozy, declarou que a partir de agora é francesa. "Já não sou mais italiana (...) sou naturalizada francesa e espero pelo meu passaporte", declarou a ex-manequim à Radio France Inter. Actualmente, Carla Bruni é cantora e o seu terceiro álbum intitulado de Comme si de rien n'était, será lançado amanhã no mercado francês e restantes países da Europa. Numa entrevista à revista VSD , integrada na promoção do seu álbum, Carla Bruni -Sarkozy lamentou o facto de ainda não estar grávida, dizendo que é algo que deseja muito: "É mais difícil ficar grávida aos 40 do que aos 25." Carla Bruni , que casou com Nicolas Sarkozy em Fevereiro, nasceu em Turim no seio de uma família de grandes industriais do Norte de Itália, de onde partiu para Paris nos anos 1970. Por ter mudado de país, idioma, amigos e casa aos seis anos, a ex-modelo diz estar habituada a grandes mudanças.
A primeira dama lamenta ainda não estar grávida, numa altura em que vai sair o seu terceiro álbum.
A mulher do Presidente da França, Carla Bruni -Sarkozy, declarou que a partir de agora é francesa. "Já não sou mais italiana (...) sou naturalizada francesa e espero pelo meu passaporte", declarou a ex-manequim à Radio France Inter. Actualmente, Carla Bruni é cantora e o seu terceiro álbum intitulado de Comme si de rien n'était, será lançado amanhã no mercado francês e restantes países da Europa. Numa entrevista à revista VSD , integrada na promoção do seu álbum, Carla Bruni -Sarkozy lamentou o facto de ainda não estar grávida, dizendo que é algo que deseja muito: "É mais difícil ficar grávida aos 40 do que aos 25." Carla Bruni , que casou com Nicolas Sarkozy em Fevereiro, nasceu em Turim no seio de uma família de grandes industriais do Norte de Itália, de onde partiu para Paris nos anos 1970. Por ter mudado de país, idioma, amigos e casa aos seis anos, a ex-modelo diz estar habituada a grandes mudanças.
Keep You Much Longer
Akon
Wish I could keep you much longer
I know you gotta go, cuz you got things to do
Wish I could keep you much longer
Now you're too busy for me girl like I was to you
Wish I could stop by, and maybe say hi
Wish I could stop by, and lay by your side
Wish I could stop by, and maybe say hi
Wish I could stop by, and lay by your side
The tables have turned, and I finally learned
That this is begining for everyday I was gone
And that's why I've concerned, but now it's confirmed
That you spread your wings and learned to fly
But all alone
Darkness in the night, I'll find that light for you
As long as I got eyes, I'll have a sight for you
Long as I'm alive, baby I'll die for you
Wanna be with you
Wish I could keep you much longer (keep you much longer)
I know you gotta go, cuz you got things to do
Wish I could keep you much longer (keep you much longer)
Now you're too busy for me girl like I was to you
Wish I could stop by, and maybe say hi
Wish I could stop by, and lay by your side
Wish I could stop by, and maybe say hi
Wish I could stop by, and lay by your side
You're always on my mind while I'm racing,
While I'm paper chasing,
You were there when I said one day I'll get out of that basement
Playing as my agent, for you there's no replacement
You will always be my girl and poke me on that statement
Darkness in the night, I'll find that light for you(For you)
As long as I got eyes, I'll have a sight for you
Long as I'm alive, baby I'll die for you(For you)
Wanna be with you
Wish I could keep you much longer (keep you much longer)
I know you gotta go, cuz you got things to do
Wish I could keep you much longer (keep you much longer)
Now you too busy for me girl like I was to you(To you yeah)
Wish I could stop by, and maybe say hi
Wish I could stop by, and lay by your side
Wish I could stop by, and maybe say hi
Wish I could stop by, and lay by your side
Baby I know you, and how we do
Doing exactly what I taught you,
Gotta get that money first before you can spend that precious time with your boo
And I know I gotta just take it, even though it's driving me crazy
Always wanting to see my girl make it, Ohh yeaahh
Wish I could keep you much longer (keep you much longer)
I know you gotta go, cuz you got things to do(Things to do)
Wish I could keep you much longer (keep you much longer)
Now you too busy for me girl like I was to you
Wish I could stop by, and maybe say hi
Wish I could stop by, and lay by your side
Wish I could stop by, and maybe say hi
Wish I could stop by, and lay by your side
Wish I could keep you much longer (keep you much longer)
I know you gotta go, cuz you got things to do
Wish I could keep you much longer (keep you much longer)
Now you too busy for me girl like I was to you
(I just wanna keep you longer)Wish I could stop by, and maybe say hi
Wish I could stop by, and lay by your side
(I just wanna keep you longer)Wish I could stop by, and maybe say hi
Wish I could stop by, and lay by your side
I just wanna keep you longer
I just wanna keep you longer
Akon
Wish I could keep you much longer
I know you gotta go, cuz you got things to do
Wish I could keep you much longer
Now you're too busy for me girl like I was to you
Wish I could stop by, and maybe say hi
Wish I could stop by, and lay by your side
Wish I could stop by, and maybe say hi
Wish I could stop by, and lay by your side
The tables have turned, and I finally learned
That this is begining for everyday I was gone
And that's why I've concerned, but now it's confirmed
That you spread your wings and learned to fly
But all alone
Darkness in the night, I'll find that light for you
As long as I got eyes, I'll have a sight for you
Long as I'm alive, baby I'll die for you
Wanna be with you
Wish I could keep you much longer (keep you much longer)
I know you gotta go, cuz you got things to do
Wish I could keep you much longer (keep you much longer)
Now you're too busy for me girl like I was to you
Wish I could stop by, and maybe say hi
Wish I could stop by, and lay by your side
Wish I could stop by, and maybe say hi
Wish I could stop by, and lay by your side
You're always on my mind while I'm racing,
While I'm paper chasing,
You were there when I said one day I'll get out of that basement
Playing as my agent, for you there's no replacement
You will always be my girl and poke me on that statement
Darkness in the night, I'll find that light for you(For you)
As long as I got eyes, I'll have a sight for you
Long as I'm alive, baby I'll die for you(For you)
Wanna be with you
Wish I could keep you much longer (keep you much longer)
I know you gotta go, cuz you got things to do
Wish I could keep you much longer (keep you much longer)
Now you too busy for me girl like I was to you(To you yeah)
Wish I could stop by, and maybe say hi
Wish I could stop by, and lay by your side
Wish I could stop by, and maybe say hi
Wish I could stop by, and lay by your side
Baby I know you, and how we do
Doing exactly what I taught you,
Gotta get that money first before you can spend that precious time with your boo
And I know I gotta just take it, even though it's driving me crazy
Always wanting to see my girl make it, Ohh yeaahh
Wish I could keep you much longer (keep you much longer)
I know you gotta go, cuz you got things to do(Things to do)
Wish I could keep you much longer (keep you much longer)
Now you too busy for me girl like I was to you
Wish I could stop by, and maybe say hi
Wish I could stop by, and lay by your side
Wish I could stop by, and maybe say hi
Wish I could stop by, and lay by your side
Wish I could keep you much longer (keep you much longer)
I know you gotta go, cuz you got things to do
Wish I could keep you much longer (keep you much longer)
Now you too busy for me girl like I was to you
(I just wanna keep you longer)Wish I could stop by, and maybe say hi
Wish I could stop by, and lay by your side
(I just wanna keep you longer)Wish I could stop by, and maybe say hi
Wish I could stop by, and lay by your side
I just wanna keep you longer
I just wanna keep you longer
segunda-feira, 21 de junho de 2010
“Sei que é amor”
NÃO SEI SE CONSIGO RESISTIR AO TEU OLHAR
TENHO VONTADE DE SORRIR COM TEU SORRISO
SINTO QUERER BEM MAIS, QUE SE PODE QUERER DE UM AMIGO
PARO MUITAS VEZES PARA OBSERVAR A TUA BOCA SENSUAL
O QUE ME ENVOLVE, PARECE SER UMA MAGIA, UM RITUAL
É UMA ENERGIA FÍSICA, CHEIA DE EMOÇÃO
É UMA CARGA EMOTIVA, QUE VEM DO MEU CORAÇÃO
NÃO DEIXA DE SER AMOR, NÃO DEIXA DE SER AMIZADE
NÃO ME FAZ MAL ALGUM, CONTRÁRIO, ME DÁ FELICIDADE
SÓ É MEIO COMPLICADO, INCOMPREENSÍVEL
PORQUE SEI QUE PRA MIM É INACESSÍVEL
NÃO É DE NINGUÉM, E A NADA SE NEGA
MAS SE FICAR PRA MIM, MUITA COISA SE QUEBRA
ESSE É O PLATÔNICO, O SENTIMENTO
QUE NOS RETIRA DA ROTINA, QUE NOS SERVE DE ALENTO
ESTE É O MEU AMANTE, IMAGINÁRIO, VIRÍL
QUE SEMPRE VEM APAGAR O MEU FOGO, O MEU ESTADO FEBRIL
QUE ME LEVA A CONHECER NOVOS CAMINHOS
QUE ME COBRE DE ATENÇÃO, DE BEIJOS E CARINHOS
É A FUGA DA REALIDADE !
É A BUSCA DA SAUDADE !
É A LOUCURA DA FANTASIA !
SERÁ QUE É LOUCURA, EU TE QUERER POR UM DIA ?
Autor:Alepf de oliveira silva
para você viviane com carinho!
NÃO SEI SE CONSIGO RESISTIR AO TEU OLHAR
TENHO VONTADE DE SORRIR COM TEU SORRISO
SINTO QUERER BEM MAIS, QUE SE PODE QUERER DE UM AMIGO
PARO MUITAS VEZES PARA OBSERVAR A TUA BOCA SENSUAL
O QUE ME ENVOLVE, PARECE SER UMA MAGIA, UM RITUAL
É UMA ENERGIA FÍSICA, CHEIA DE EMOÇÃO
É UMA CARGA EMOTIVA, QUE VEM DO MEU CORAÇÃO
NÃO DEIXA DE SER AMOR, NÃO DEIXA DE SER AMIZADE
NÃO ME FAZ MAL ALGUM, CONTRÁRIO, ME DÁ FELICIDADE
SÓ É MEIO COMPLICADO, INCOMPREENSÍVEL
PORQUE SEI QUE PRA MIM É INACESSÍVEL
NÃO É DE NINGUÉM, E A NADA SE NEGA
MAS SE FICAR PRA MIM, MUITA COISA SE QUEBRA
ESSE É O PLATÔNICO, O SENTIMENTO
QUE NOS RETIRA DA ROTINA, QUE NOS SERVE DE ALENTO
ESTE É O MEU AMANTE, IMAGINÁRIO, VIRÍL
QUE SEMPRE VEM APAGAR O MEU FOGO, O MEU ESTADO FEBRIL
QUE ME LEVA A CONHECER NOVOS CAMINHOS
QUE ME COBRE DE ATENÇÃO, DE BEIJOS E CARINHOS
É A FUGA DA REALIDADE !
É A BUSCA DA SAUDADE !
É A LOUCURA DA FANTASIA !
SERÁ QUE É LOUCURA, EU TE QUERER POR UM DIA ?
Autor:Alepf de oliveira silva
para você viviane com carinho!
domingo, 20 de junho de 2010
legendário
Você é um Legendário
7.341 Comentários
A TV tem uma força absurda!
Ela entra na casa das pessoas como se fosse um convidado folgado, sabe? Um que entra em todos os cômodos, fala coisas pros seus filhos que vc não quer que eles ouçam, influencia seus funcionários, fala sacanagem na frente da tua mulher, te mostra que não fez bom negócio se precipitando e, por exemplo, comprando um carro antes de esperar o feirão anunciado pelo Britto Junior e que, acima de tudo, pode mudar seus hábitos!
Fazer vc, por exemplo, gravar vídeos pra mandar pra programas onde o apresentador diz que, caso vc seja selecionado, vai aparecer no ar!
O quão cativante é isto?!! Da vontade de gravar um vídeo correndo! E mesmo que fique uma b*sta vc ainda corre o risco de ir parar num programa especial, uma espécie de “repescagem” dos piores vídeos enviados! Ou seja, a TV é tão legal que mesmo vc mandando mal, tem chance de se dar bem!! Juuuuuuááááááá!!!!! Isto motiva qualquer um a se mexer!
Mas e quando vc faz um vídeo sem ninguém pedir?
E quando tua identificação é tão grande com um programa que vc se mobiliza, grava um vídeo na sua casa e coloca no labiríntico e desesperado universo da web onde ele poderia ser um grito no furacão e acabasse nunca sendo visto por ninguém?
Valeria à pena?
E se o objeto do vídeo, o programa que vc gostaria que o vídeo passase, ainda nem estivesse no ar?!! E se tudo que vc soubesse do programa fosse uma chamada como esta:
Pode ser tudo que já fiz na minha historia profissional, podem ser meus 10 anos dedicados a inovar a TV brasileira e tratar o publico jovem com o respeito e a linguagem real que ele merece, pode ser uma grande admiração por um projeto novo, 100% brasileiro e original, como pode ser simplesmente falta do que fazer...mas fato é que o @trouva, conhecido tb como Thalles Viola Trouva, achou que sim, valia a pena jogar esta pedra no meio do lago, sem ter a esperança que ela reverberasse.
Pois bem, ela reverberou!
E chegou até mim!! Eu fiquei passado! Orgulhoso demais por esta organização que estamos criando! Que já motiva pessoas a terem vontade de participar! Pq, prestem atenção, não teremos espectadores, teremos PARTICIPANTES! Afinal, nosso maior conceito é que Legendários não é apenas o grupo que está na TV, Legendários somos TODOS nós! (via @fildzz)
Desde o começo quero cativar com este programa não apenas fãs, mas sim admiradores, pessoas que vão ter orgulho de assistir, pessoas que terão uma pequena parte de suas vidas marcadas pelo projeto, da mesma forma que consigo descrever as épocas da minha vida de acordo com os programas de TV que estava assistindo!
Todos vcs participarão ativamente do Legendários!
E o @trouva já começou! Nós achamos, perdidasso na web, este grito que ele deu no meio do furacão...
E ele já é um @legendario! #fact!
E vc? Ta esperando o que? Se inspire no teaser do @trouva, no do Solari e grave o seu! Seja um Legendário com teaser, pq Legendário vc já é!
sábado, 19 de junho de 2010
aula
Program ex28;
Uses CRT;
Type TDados = Record
Nome:String[20];
CPF:String[11];
Altura:Real;
Peso:Real;
Sexo:Char;
Idade:Integer;
End;
Var Dados:Array[1..20] Of TDados;
I:Integer;
IMC:Array[1..20] Of Real;
AcimaP,QtdObesas:Integer;
MediaP,Perc:Real;
Procedure Entrada;
Begin
For I:=1 To 20 Do
Begin
Clrscr;
Writeln(' - ',I,#166, ' Pessoa - ');
Writeln;
Write('Nome.....: ');Readln(Dados[I].Nome);
Write('CPF......: ');Readln(Dados[I].CPF);
Write('Altura...: ');Readln(Dados[I].Altura);
Write('Peso.....: ');;Readln(Dados[I].Peso);
Write('Sexo M/F.: ');;Readln(Dados[I].Sexo);
Write('Idade....: ');;Readln(Dados[I].Idade);
End;
End;
Procedure Caucula;
var F,AbaixoP:Integer;
Begin
AcimaP:=0;
MediaP:=0;
AbaixoP:=0;
QtdObesas:=0;
For I:=1 To 20 Do
Begin
IMC[I]:=Dados[I].Peso/(SQR(Dados[I].Altura));
MediaP:=MediaP+Dados[I].Peso;
If (IMC[I] >= 25) Then
Begin
AcimaP:=AcimaP+1;
If (Dados[I].Idade >= 20) And (Dados[I].Idade <= 30) Then
QtdObesas:=QtdObesas+1;
End;
Dados[I].Sexo:= UPCASE(Dados[I].Sexo);
If (Dados[I].Sexo='F') And (Dados[I].Peso <= 18.5) Then
Begin
F:=F+1;
AbaixoP:=AbaixoP+1;
End;
End;
MediaP:=MediaP/20;
If (F >= 1) Then
Perc:=(AbaixoP*100)/F
Else
Perc:=0;
End;
Procedure Mostra;
Begin
Caucula;
Clrscr;
Writeln(' * Resultados da Pesquisa * ');
Writeln;
Writeln('Qtd de pessoas com sobrepeso/obesas......: ',AcimaP);
Writeln('Peso medio da populacao..................: ',MediaP:3:2);
Writeln('Percentual de mulheres abaixo do peso....: ',Perc:3:2,'%');
Writeln('Qtd de pessoas entre 20 e 30 anos obesas.: ',QtdObesas);
Readkey;
End;
Begin
Entrada;
Mostra;
End.
Uses CRT;
Type TDados = Record
Nome:String[20];
CPF:String[11];
Altura:Real;
Peso:Real;
Sexo:Char;
Idade:Integer;
End;
Var Dados:Array[1..20] Of TDados;
I:Integer;
IMC:Array[1..20] Of Real;
AcimaP,QtdObesas:Integer;
MediaP,Perc:Real;
Procedure Entrada;
Begin
For I:=1 To 20 Do
Begin
Clrscr;
Writeln(' - ',I,#166, ' Pessoa - ');
Writeln;
Write('Nome.....: ');Readln(Dados[I].Nome);
Write('CPF......: ');Readln(Dados[I].CPF);
Write('Altura...: ');Readln(Dados[I].Altura);
Write('Peso.....: ');;Readln(Dados[I].Peso);
Write('Sexo M/F.: ');;Readln(Dados[I].Sexo);
Write('Idade....: ');;Readln(Dados[I].Idade);
End;
End;
Procedure Caucula;
var F,AbaixoP:Integer;
Begin
AcimaP:=0;
MediaP:=0;
AbaixoP:=0;
QtdObesas:=0;
For I:=1 To 20 Do
Begin
IMC[I]:=Dados[I].Peso/(SQR(Dados[I].Altura));
MediaP:=MediaP+Dados[I].Peso;
If (IMC[I] >= 25) Then
Begin
AcimaP:=AcimaP+1;
If (Dados[I].Idade >= 20) And (Dados[I].Idade <= 30) Then
QtdObesas:=QtdObesas+1;
End;
Dados[I].Sexo:= UPCASE(Dados[I].Sexo);
If (Dados[I].Sexo='F') And (Dados[I].Peso <= 18.5) Then
Begin
F:=F+1;
AbaixoP:=AbaixoP+1;
End;
End;
MediaP:=MediaP/20;
If (F >= 1) Then
Perc:=(AbaixoP*100)/F
Else
Perc:=0;
End;
Procedure Mostra;
Begin
Caucula;
Clrscr;
Writeln(' * Resultados da Pesquisa * ');
Writeln;
Writeln('Qtd de pessoas com sobrepeso/obesas......: ',AcimaP);
Writeln('Peso medio da populacao..................: ',MediaP:3:2);
Writeln('Percentual de mulheres abaixo do peso....: ',Perc:3:2,'%');
Writeln('Qtd de pessoas entre 20 e 30 anos obesas.: ',QtdObesas);
Readkey;
End;
Begin
Entrada;
Mostra;
End.
Program ex28;
Uses CRT;
Type TDados = Record
Nome:String[20];
CPF:String[11];
Altura:Real;
Peso:Real;
Sexo:Char;
Idade:Integer;
End;
Var Dados:Array[1..20] Of TDados;
I:Integer;
IMC:Array[1..20] Of Real;
AcimaP,QtdObesas:Integer;
MediaP,Perc:Real;
Procedure Entrada;
Begin
For I:=1 To 20 Do
Begin
Clrscr;
Writeln(' - ',I,#166, ' Pessoa - ');
Writeln;
Write('Nome.....: ');Readln(Dados[I].Nome);
Write('CPF......: ');Readln(Dados[I].CPF);
Write('Altura...: ');Readln(Dados[I].Altura);
Write('Peso.....: ');;Readln(Dados[I].Peso);
Write('Sexo M/F.: ');;Readln(Dados[I].Sexo);
Write('Idade....: ');;Readln(Dados[I].Idade);
End;
End;
Procedure Caucula;
var F,AbaixoP:Integer;
Begin
AcimaP:=0;
MediaP:=0;
AbaixoP:=0;
QtdObesas:=0;
For I:=1 To 20 Do
Begin
IMC[I]:=Dados[I].Peso/(SQR(Dados[I].Altura));
MediaP:=MediaP+Dados[I].Peso;
If (IMC[I] >= 25) Then
Begin
AcimaP:=AcimaP+1;
If (Dados[I].Idade >= 20) And (Dados[I].Idade <= 30) Then
QtdObesas:=QtdObesas+1;
End;
Dados[I].Sexo:= UPCASE(Dados[I].Sexo);
If (Dados[I].Sexo='F') And (Dados[I].Peso <= 18.5) Then
Begin
F:=F+1;
AbaixoP:=AbaixoP+1;
End;
End;
MediaP:=MediaP/20;
If (F >= 1) Then
Perc:=(AbaixoP*100)/F
Else
Perc:=0;
End;
Procedure Mostra;
Begin
Caucula;
Clrscr;
Writeln(' * Resultados da Pesquisa * ');
Writeln;
Writeln('Qtd de pessoas com sobrepeso/obesas......: ',AcimaP);
Writeln('Peso medio da populacao..................: ',MediaP:3:2);
Writeln('Percentual de mulheres abaixo do peso....: ',Perc:3:2,'%');
Writeln('Qtd de pessoas entre 20 e 30 anos obesas.: ',QtdObesas);
Readkey;
End;
Begin
Entrada;
Mostra;
End.
Uses CRT;
Type TDados = Record
Nome:String[20];
CPF:String[11];
Altura:Real;
Peso:Real;
Sexo:Char;
Idade:Integer;
End;
Var Dados:Array[1..20] Of TDados;
I:Integer;
IMC:Array[1..20] Of Real;
AcimaP,QtdObesas:Integer;
MediaP,Perc:Real;
Procedure Entrada;
Begin
For I:=1 To 20 Do
Begin
Clrscr;
Writeln(' - ',I,#166, ' Pessoa - ');
Writeln;
Write('Nome.....: ');Readln(Dados[I].Nome);
Write('CPF......: ');Readln(Dados[I].CPF);
Write('Altura...: ');Readln(Dados[I].Altura);
Write('Peso.....: ');;Readln(Dados[I].Peso);
Write('Sexo M/F.: ');;Readln(Dados[I].Sexo);
Write('Idade....: ');;Readln(Dados[I].Idade);
End;
End;
Procedure Caucula;
var F,AbaixoP:Integer;
Begin
AcimaP:=0;
MediaP:=0;
AbaixoP:=0;
QtdObesas:=0;
For I:=1 To 20 Do
Begin
IMC[I]:=Dados[I].Peso/(SQR(Dados[I].Altura));
MediaP:=MediaP+Dados[I].Peso;
If (IMC[I] >= 25) Then
Begin
AcimaP:=AcimaP+1;
If (Dados[I].Idade >= 20) And (Dados[I].Idade <= 30) Then
QtdObesas:=QtdObesas+1;
End;
Dados[I].Sexo:= UPCASE(Dados[I].Sexo);
If (Dados[I].Sexo='F') And (Dados[I].Peso <= 18.5) Then
Begin
F:=F+1;
AbaixoP:=AbaixoP+1;
End;
End;
MediaP:=MediaP/20;
If (F >= 1) Then
Perc:=(AbaixoP*100)/F
Else
Perc:=0;
End;
Procedure Mostra;
Begin
Caucula;
Clrscr;
Writeln(' * Resultados da Pesquisa * ');
Writeln;
Writeln('Qtd de pessoas com sobrepeso/obesas......: ',AcimaP);
Writeln('Peso medio da populacao..................: ',MediaP:3:2);
Writeln('Percentual de mulheres abaixo do peso....: ',Perc:3:2,'%');
Writeln('Qtd de pessoas entre 20 e 30 anos obesas.: ',QtdObesas);
Readkey;
End;
Begin
Entrada;
Mostra;
End.
programa
- Program ex28;
- Uses CRT;
- Type TDados = Record
- Nome:String[20];
- CPF:String[11];
- Altura:Real;
- Peso:Real;
- Sexo:Char;
- Idade:Integer;
- End;
- Var Dados:Array[1..20] Of TDados;
- I:Integer;
- IMC:Array[1..20] Of Real;
- AcimaP,QtdObesas:Integer;
- MediaP,Perc:Real;
- Procedure Entrada;
- Begin
- For I:=1 To 20 Do
- Begin
- Clrscr;
- Writeln(' - ',I,#166, ' Pessoa - ');
- Writeln;
- Write('Nome.....: ');Readln(Dados[I].Nome);
- Write('CPF......: ');Readln(Dados[I].CPF);
- Write('Altura...: ');Readln(Dados[I].Altura);
- Write('Peso.....: ');;Readln(Dados[I].Peso);
- Write('Sexo M/F.: ');;Readln(Dados[I].Sexo);
- Write('Idade....: ');;Readln(Dados[I].Idade);
- End;
- End;
- Procedure Caucula;
- var F,AbaixoP:Integer;
- Begin
- AcimaP:=0;
- MediaP:=0;
- AbaixoP:=0;
- QtdObesas:=0;
- For I:=1 To 20 Do
- Begin
- IMC[I]:=Dados[I].Peso/(SQR(Dados[I].Altura));
- MediaP:=MediaP+Dados[I].Peso;
- If (IMC[I] >= 25) Then
- Begin
- AcimaP:=AcimaP+1;
- If (Dados[I].Idade >= 20) And (Dados[I].Idade <= 30) Then
- QtdObesas:=QtdObesas+1;
- End;
- Dados[I].Sexo:= UPCASE(Dados[I].Sexo);
- If (Dados[I].Sexo='F') And (Dados[I].Peso <= 18.5) Then
- Begin
- F:=F+1;
- AbaixoP:=AbaixoP+1;
- End;
- End;
- MediaP:=MediaP/20;
- If (F >= 1) Then
- Perc:=(AbaixoP*100)/F
- Else
- Perc:=0;
- End;
- Procedure Mostra;
- Begin
- Caucula;
- Clrscr;
- Writeln(' * Resultados da Pesquisa * ');
- Writeln;
- Writeln('Qtd de pessoas com sobrepeso/obesas......: ',AcimaP);
- Writeln('Peso medio da populacao..................: ',MediaP:3:2);
- Writeln('Percentual de mulheres abaixo do peso....: ',Perc:3:2,'%');
- Writeln('Qtd de pessoas entre 20 e 30 anos obesas.: ',QtdObesas);
- Readkey;
- End;
- Begin
- Entrada;
- Mostra;
- End.
quarta-feira, 16 de junho de 2010
sexta-feira, 11 de junho de 2010
amor "platônico"
Tão estranho a forma de amar,
amamos e sentimentos ciúmes,
ciúmes bobo, muitas vezes inconveniente.
Amamos e sentimos medo,
um medo de um dia estar só, de que a pessoa amada siga em viagem sem lhe presentear com uma passagem para o mesmo lugar.
Amamos e sentimos raiva,
raiva de não sermos entendidos, como se a pessoa amada tivesse a obrigação de ter o dom da premonição, e pudesse nos compreender pelo menos naquele momento que mais estamos chateados.
Amamos e sentimos muitas vezes rejeição,
pelo simples fato de não ser notado o novo corte de cabelo, a nova roupa, a nova investida.
Amamos e nos tornamos loucos,
loucos pela felicidade a dois, um mundo colorido feito para apaixonados.
Loucos pela vida, como se o hoje fosse um dos dias dos milhões que ainda viveremos.
Tão estranho a forma de amar,
Somos muitos em um só, muitos sentimentos, muitos desejos, muitos planos...
Não quero dominar o amor, quero que o amor nos domine.
Pois amor que é AMOR, é tudo... é certeza, é companhia, é amizade, é paixão, é criança, é eterno.
Tão estranho esta forma de amar,
que me perco até nos versos mais simples de um poema,
pois tem tantas formas de se escrever sobre o amor, algumas simples outras complexas,
mas todas com o mesmo sentido,
que o amor tudo supera.
amamos e sentimentos ciúmes,
ciúmes bobo, muitas vezes inconveniente.
Amamos e sentimos medo,
um medo de um dia estar só, de que a pessoa amada siga em viagem sem lhe presentear com uma passagem para o mesmo lugar.
Amamos e sentimos raiva,
raiva de não sermos entendidos, como se a pessoa amada tivesse a obrigação de ter o dom da premonição, e pudesse nos compreender pelo menos naquele momento que mais estamos chateados.
Amamos e sentimos muitas vezes rejeição,
pelo simples fato de não ser notado o novo corte de cabelo, a nova roupa, a nova investida.
Amamos e nos tornamos loucos,
loucos pela felicidade a dois, um mundo colorido feito para apaixonados.
Loucos pela vida, como se o hoje fosse um dos dias dos milhões que ainda viveremos.
Tão estranho a forma de amar,
Somos muitos em um só, muitos sentimentos, muitos desejos, muitos planos...
Não quero dominar o amor, quero que o amor nos domine.
Pois amor que é AMOR, é tudo... é certeza, é companhia, é amizade, é paixão, é criança, é eterno.
Tão estranho esta forma de amar,
que me perco até nos versos mais simples de um poema,
pois tem tantas formas de se escrever sobre o amor, algumas simples outras complexas,
mas todas com o mesmo sentido,
que o amor tudo supera.
Assinar:
Postagens (Atom)