Computação TOP10

Pascal: Recursividade

noreply@blogger.com (Amauri) — Tue, 01 Nov 2011 00:00:00 +0000

program teste;

uses crt;

var
ft:integer;

function fat(n:integer):real;
begin
if(n = 0)then
begin
fat:=1;
end
else
begin
fat:=n*fat(n-1);
end;
end;

begin
clrscr;
write('Digite a fatorial:'); read(ft); writeln;
if(ft < 0)then
begin
writeln('Numero invalido!');
end
else
begin
writeln('Fatorial de ',ft,' = ',fat(ft):1:0);
end;
readkey;
end.

Vamos a explicação.

function fat(n:integer):real;
begin
if(n = 0)
then fat:=1;
else fat:=n*fat(n-1);
end

Fat(5)
5*Fat(4)
4*Fat(3)
3*Fat(2)
2*Fat(1)
1*Fat(0) - iteração não necessária, poderia-se alterar a condição do If para n=1, pois fat(0) e fat(1) tem o mesmo valor.

Observe que na primeira iteração, estou mandando o 5 para a variável N DA função fat, no IF a função verifica que N não é igual a zero, portanto vai para o ELSE, fazendo o seguinte 5*Fat(4) (n*fat(n-1)), isso se repete até o fim, quando a condição do IF for verdadeira, os valores serão devolvidos ao local que foram chamados, começando de baixo para cima

Fat(5) = 120.
5*Fat(4) = 5*24 = 120, envia 120 para a linha de cima
4*Fat(3) = 4*6 = 24, envia 24 para a linha de cima
3*Fat(2) = 3*2 = 6, envia 6 para a linha de cima
2*Fat(1) = 2*1 = 2, envia 2 para a linha de cima
1*Fat(0) = 1, envia 1 para a linha de cima

Microsoft prevê o futuro da tecnologia

noreply@blogger.com (Amauri) — Sat, 29 Oct 2011 22:38:00 +0000

A Microsoft divulgou um vídeo com sua visão de como será o futuro da tecnologia entre os próximos 5 a 10 anos.

Segundo a Microsoft, futuramente qualquer objeto poderá funcionar como uma tela tátil, como o exemplo utilizado com vidros das janelas de táxis que indicam o horário e o local de destino quando o mesmo estivesse à vista.

A empresa também exibe óculos especiais capazes de traduzir informações turísticas ao usuário em tempo real.

No vídeo também é possível observar a evolução imaginada pela Microsoft para os tablets e smartphones. Os aparelhos possuirão telas dobráveis e serão do tamanho de um cartão de crédito.

A funcionalidade desses dispositivos também irá mudar. Eles poderão ser utilizados como ferramentas de gestão de comunicação que interagem com as informações ao redor.

Já para ambientes fechados a Microsoft agregou as tecnologias inteligentes às mesas e geladeiras, além de uma nova forma de escritório, com possibilidade de maior interação entre empresa e funcionários.

A empresa afirma que todas essas ferramentas ainda não estão disponíveis, porém estão em fase de pesquisas e desenvolvimento pela Microsoft e empresas parceiras.

fonte: http://info.abril.com.br

Já estava na hora de termos um regulamento que favoreça os consumidores de banda larga

noreply@blogger.com (Amauri) — Fri, 28 Oct 2011 22:47:00 +0000

Concessionárias de banda larga terão de obedecer velocidade minima e média

Em votação realizada pela Agência Nacional de Telecomunicações (ANATEL), ontem, 27 de outubro, foi aprovada nova medida que estipula metas de qualidade para as concessionárias de conexão de internet banda larga no Brasil. Segundo a proposta, as empresas de telecomunicação que ofereçam serviços de internet agora deverão entregar duas metas - uma sobre velocidade mínima e outra sobre velocidade média. A resolução leva em consideração os momentos de alto tráfego.

O novo regulamento passará a valer a partir de novembro de 2012. Nas linhas abaixo, você confere o que vai mudar na sua velocidade de internet no ano que vem:

Novembro de 2012 - 20% mínimo e média de 60% da velocidade contratada
Até novembro de 2013 - 30% mínimo e média de 70% da velocidade contratada
Até novembro de 2014 - 40% mínimo e média de 80% da velocidade contratada

As novas regras valem para as concessionárias que possuem mais de 50 mil assinantes, estando isentas do regulamento aquelas com numero inferior de clientes. Atualmente, no Brasil, as concessionárias com mais de 50 mil assinantes são Oi/Brasil Telecom, Telefônica, NET, Ajato, Velox, GVT, para telefonia fixa; e Oi, Claro, Vivo e TIM, para telefonia móvel 3G.

A resolução também obrigará as concessionárias a manterem o sinal de conexão estável por 99% do tempo mensal (trocando em miúdos, o usuário só poderá ficar sem internet por até sete horas por mês, independente do motivo), além de as empresas fornecedoras de internet terem que contratar uma entidade de fiscalização - entidade esta que vai operar de forma independente e responderá diretamente à ANATEL.

O não cumprimento do novo regulamento acarretará multa de até R$ 25 milhões para a entidade infratora.

Atualmente, não há regra estabelecida sobre a oferta de qualidade de conexão de internet no país. O que o consumidor tem hoje é a sugestão contratual, vinda da própria concessionária, de que a empresa tem a obrigação de entregar "apenas 10% do que se foi contratado".

fonte: http://olhardigital.uol.com.br

Symbian Belle chega no dia 26 de outubro

noreply@blogger.com (Computação Top10) — Wed, 26 Oct 2011 16:53:00 +0000

Symbian Belle chega no dia 26 de outubro

São Paulo – A Nokia vai liberar no final deste mês, precisamente no dia 26 de outubro, mais uma versão do Symbian. A data não é confirmada pela empresa.
Chamado de Belle, o sistema operacional vai substituir o Anna. O software será liberado via Ovi Suíte e será compatível com os modelos N8, C7, E7, C6-01, E6 e X7. O modelo Nokia 500 pode ganhar a atualização, mas a informação ainda não foi confirmada pela fabricante.

O Belle, pelo que sugere algumas imagens do sistema, trará um pouco dos recursos do Android e do iPhone para os aparelhos Nokia com tela sensível ao toque. Um deles, por exemplo, é a movimentação de widgets pela tela do smartphone. Outro é a barra de notificações na parte superior do telefone.
O Belle, uma atualização do Symbian 3, não deverá ser a última do sistema. Segundo a Nokia, os celulares que rodam Symbian terão atualizações até 2016.

Programa capaz de preencher uma fila sequencial e implementar uma rotina busca que retorna o número de vezes que o elemento x aparece dentro da fila (pascalzim 5.1.2)

noreply@blogger.com (Amauri) — Fri, 21 Oct 2011 19:00:00 +0000

Program Pzim ;
const max = 100;
type Fila = record
dados : array[1..max]of integer;
inicio, fim : integer;
end;
var
f1 : Fila;
num, bus, valor : integer;

procedure criar(var F:Fila);
begin
F.inicio := 1;
F.fim := 1;
end;

function filaVazia(F:Fila):boolean;
begin
if F.inicio = F.fim then
filaVazia := true
else
filaVazia := false;
end;

function filaCheia(F:Fila):boolean;
begin
if F.fim > max then
filaCheia := true
else
filaCheia := false;
end;

procedure enqueue(var F:Fila;s:integer);
begin
if filaCheia(F)then
writeln('A fila tá cheia!')
else
begin
F.dados[F.fim] := s;
F.fim := F.fim + 1;
writeln('Inserção efetuada!');
end;
end;

function dequeue(var F:Fila):integer;
begin
if filaVazia(F)then
writeln('A fila tá vazia!')
else
begin
dequeue := F.dados[F.inicio];
F.inicio := F.inicio + 1;
end;
end;

function busca(F:Fila; x: integer):integer;
var
res: integer;
begin
res := 0;
while not filaVazia(f) do
begin
if (f.dados[f.inicio] = x) then
res := res +1;
f.inicio := f.inicio +1;
end;
busca := res;
end;
Begin
textcolor(white);
criar(f1);
writeln('A fila está vazia? ', filaVazia(f1));
writeln('A fila está cheia? ', filaCheia(f1));
repeat
writeln ('digite o elemento da lista ou "0" para sair');
readln (num);
enqueue (f1, num);
until (num = 0);
writeln (' digite o valor que deseja buscar');
readln (bus);
valor := busca(f1, bus);
writeln (' o valor aparece ', valor, ' na lista');
End.

Lista encadeada com uma função de busca que retorna true se o elemento procurado estiver na lista e false caso contrário (pascalzim 5.1.2)

noreply@blogger.com (Amauri) — Fri, 21 Oct 2011 18:55:00 +0000

program ListaEncadeada;

type
ListEnc = ^No;

No = record
obj: String;
prox: ListEnc;
end;
var
L :ListEnc;
bus : string;

//CRIA LISTA VAZIA
procedure criar(var L:ListEnc);
begin
L := nil;
end;

//INFORMA SE A LISTA ESTÁ VAZIA OU NÃO
function vazia(L: ListEnc):boolean;
begin
if L = nil then
vazia := true
else
vazia := false;
end;

//INSERE UM ELEMENTO NA LISTA
procedure inserir(var L: ListEnc; s: string);
var
N, P: ListEnc;
begin
new(N);
N^.obj := s;
if vazia(L)then
begin
N^.prox := L;
L := N;
end
else
begin
P := L;
while (P^.prox <> nil)do
P := P^.prox;
N^.prox := P^.prox;
P^.prox := N;
end;
end;

//REMOVE UM ELEMENTO DA LISTA
function remover(var L: ListEnc; s: string):boolean;
var
P, Q: ListEnc;
begin
if vazia(L)then
remover := false
else
if (L^.obj = s)then
begin
P := L;
L := L^.prox;
dispose(P);
remover := true;
end
else
begin
P := L;
while ((P^.prox <> nil)and (P^.prox^.obj <> s)) do
begin
P := P^.prox;
end;
if (P^.prox <> nil) and (P^.prox^.obj = s) then
begin
Q := P^.prox;
P^.prox := Q^.prox;
dispose(Q);
remover := true;
end
else
begin
remover := false;
end;
end;
end;

// IMPRIME A LISTA
procedure imprimir(L: ListEnc);
var
P: ListEnc;
begin
if vazia(L)then
writeln('LISTA VAZIA!!!')
else
begin
P := L;
while (P <> nil) do
begin
write(P^.obj,' | ');
P := P^.prox;
end;
end;
end;
function busca(L: ListEnc; x: string):boolean;
var
P: ListEnc;
begin
P := L;
busca := false;
while (P <> nil) do
begin
if P^.obj = x then
busca := true;
P := P^.prox;
end;
end;

//INICIO DO PROGRAMA PRINCIPAL

Begin
criar(L);
writeln(vazia(L));
inserir(L, 'MACACO');
inserir(L, 'CACHORRO');
inserir(L, 'GATO');
inserir(L, 'LEÃO');
inserir(L, 'RATO');
inserir(L, 'CAMELO');
inserir(L, 'CORUJA');
imprimir(L);
writeln;
writeln(remover(L,'RATO'));
writeln('APÓS A REMOÇÃO...');
writeln;
imprimir(L);

writeln ('busca');
readln (bus);
writeln (busca(L, bus));
readln;
End.

Algoritmo para repassar os elementos de uma fila, sendo que no final do processamento, os elementos da fila devem estar disposto em uma lista encadeada (pascalzim 5.1.2)

noreply@blogger.com (Amauri) — Fri, 21 Oct 2011 18:50:00 +0000

Program Pzim ;
const max = 7;
type Fila = record
dados : array[1..max]of string;
inicio, fim : integer;
end;

ListEnc = ^No;

No = record
obj: String;
prox: ListEnc;
end;
var
L :ListEnc;
f1 : Fila;
v: string;

procedure criar(var F:Fila);
begin
F.inicio := 1;
F.fim := 1;
end;

function filaVazia(F:Fila):boolean;
begin
if F.inicio = F.fim then
filaVazia := true
else
filaVazia := false;
end;

function filaCheia(F:Fila):boolean;
begin
if F.fim > max then
filaCheia := true
else
filaCheia := false;
end;

procedure enqueue(var F:Fila;s:string);
begin
if filaCheia(F)then
writeln('A fila tá cheia!')
else
begin
F.dados[F.fim] := s;
F.fim := F.fim + 1;
writeln('Inserção efetuada!')
end;
end;

function dequeue(var F:Fila):string;
begin
if filaVazia(F)then
writeln('A fila tá vazia!')
else
begin
dequeue := F.dados[F.inicio];
F.inicio := F.inicio + 1;
end;
end;

procedure mostrarFila(F:Fila);
begin
if filaVazia(F)then
writeln('A fila tá vazia!')
else
begin
while not filaVazia(F)do
write(dequeue(F),'|');
end;
writeln;
end;
procedure Lcriar(var L:ListEnc);
begin
L := nil;
end;

//INFORMA SE A LISTA ESTÁ VAZIA OU NÃO
function vazia(L: ListEnc):boolean;
begin
if L = nil then
vazia := true
else
vazia := false;
end;

//INSERE UM ELEMENTO NA LISTA
procedure inserir(var L: ListEnc; s: string);
var
N, P: ListEnc;
begin
new(N);
N^.obj := s;
if vazia(L)then
begin
N^.prox := L;
L := N;
end
else
begin
P := L;
while (P^.prox <> nil)do
P := P^.prox;
N^.prox := P^.prox;
P^.prox := N;
end;
end;

//REMOVE UM ELEMENTO DA LISTA
function remover(var L: ListEnc; s: string):boolean;
var
P, Q: ListEnc;
begin
if vazia(L)then
remover := false
else
if (L^.obj = s)then
begin
P := L;
L := L^.prox;
dispose(P);
remover := true;
end
else
begin
P := L;
while ((P^.prox <> nil)and (P^.prox^.obj <> s)) do
begin
P := P^.prox;
end;
if (P^.prox <> nil) and (P^.prox^.obj = s) then
begin
Q := P^.prox;
P^.prox := Q^.prox;
dispose(Q);
remover := true;
end
else
begin
remover := false;
end;
end;
end;

// IMPRIME A LISTA
procedure imprimir(L: ListEnc);
var
P: ListEnc;
begin
if vazia(L)then
writeln('LISTA VAZIA!!!')
else
begin
P := L;
while (P <> nil) do
begin
write(P^.obj,' | ');
P := P^.prox;
end;
end;
end;

Begin
textcolor(white);
criar(f1);
Lcriar(L);
writeln('A fila está vazia? ', filaVazia(f1));
writeln('A fila está cheia? ', filaCheia(f1));
enqueue(f1,'Macaco');
enqueue(f1,'Cachorro');
enqueue(f1,'Gato');
enqueue(f1,'Coruja');
enqueue(f1,'Cobra');
enqueue(f1,'Porco');
while not filaVazia(f1) do
begin
v := dequeue(f1);
inserir(L, v);
end;
writeln ('imprimindo a lista');
imprimir(L);
readln;
End.

Exercício de pilha e fila em Pascal (Dev-Pascal)

noreply@blogger.com (Amauri) — Fri, 21 Oct 2011 02:36:00 +0000

Program filapilha ;

// Autor: Cícero Amauri

{ Escreva um algoritmo que converta uma pilha implementada em:

· Fila, Considerar a lista com no máximo 100 elementos}

const max = 100;

type

pilha = record

obj: array [1..max] of integer;

cont: integer;

end;

fila = record

dados : array [1..max] of integer;

inicio, fim: integer;

end;

function vazia (x: pilha):boolean;

begin

if x.cont = 0 then

vazia := true

else

vazia := false;

end;

procedure criar (var x: pilha);

begin

x.cont := 0;

end;

procedure push(var x: pilha; y: integer);

begin

x.cont := x.cont + 1;

x.obj[x.cont] := y ;

end;

function pop (var x: pilha): integer;

begin

pop := x.obj[x.cont];

x.cont := x.cont - 1;

end;

function fcheia (f: fila): boolean;

begin

if f.fim > max then

fcheia := true

else

fcheia := false;

end;

procedure fcriar (var f: fila);

begin

f.inicio := 1;

f.fim := 1;

end;

function fvazia (f: fila): boolean;

begin

if f.inicio = f.fim then

fvazia := true

else

fvazia := false;

end;

procedure enqueue (var f: fila; w: integer);

begin

if fcheia (f) then

writeln ('fila cheia')

else

begin

f.dados[f.fim] := w;

f.fim := f.fim + 1;

end;

procedure dequeue (var f: fila);

begin

if fvazia(f) then

writeln ('fila vazia')

else

begin

writeln (f.dados[f.inicio]);

f.inicio := f.inicio + 1;

end;

var

p: pilha;

num, res: integer;

f: fila;

Begin

criar(p);

repeat

write ('digite um número ou "0" para sair: ');

readln (num);

if num = 0 then

writeln ('saindo do programa')

else

push (p, num);

until (num = 0);

fcriar (f);

while not vazia(p) do

begin

res:= pop(p);

enqueue (f, res);

end;

writeln ('imprimindo a pilha');

while not fvazia(f) do

dequeue (f);

readln;

End.

Morre Esteve Jobs

noreply@blogger.com (Bruno Teles) — Thu, 06 Oct 2011 23:03:00 +0000

Morre Steve Jobs, cofundador da Apple

De acordo com nota publicada no site da Apple, o ex-CEO da empresa não sobreviveu ao câncer, doença contra a qual lutava desde 2004, e faleceu nesta quarta-feira, aos 56 anos.

Segundo nota publicada no site da Apple, Steve Jobs, cofundador e ex-CEO da empresa, faleceu hoje, quarta-feira, aos 56 anos. Não foram divulgadas as causas exatas de sua morte, porém, é provável que ele não tenha resistido ao câncer, doença contra a qual lutava desde 2004. Segue o texto em tradução livre:

"A Apple perdeu um gênio criativo e visionário, e o mundo perdeu um maravilhoso ser humano. Aqueles de nós que tiveram a sorte de conhecer Steve e trabalhar com ele perderam um grande amigo e um mentor que os inspirava. Steve deixa para trás uma companhia que só ele poderia ter criado. Seu espírito será sempre a base da Apple.

Mensagem da Diretoria da Apple

"É com pesar que anunciamos a morte de Steve Jobs hoje.

O brilho de Steve, sua paixão e energia eram a fonte de diversas inovações que enriqueceram e melhoraram nossas vidas. O mundo está muito melhor por conta do Steve.

Seu maior amor era por sua esposa, Laurene, e sua família. Nossos corações estão com eles e com todos os que foram agraciados com seus dons extraordinários."

Jobs, um visionário

Steve Jobs foi o responsável não só pela criação da empresa de tecnologia mais poderosa da atualidade, mas também por grandes produtos como o iPhone e o iPad. Jobs é tido como um dos grandes gurus da tecnologia e é uma fonte de inspiração para milhares de pessoas em todo o mundo.

(imagem ilustrativa)

fonte:http://www.tecmundo.com.br/steve-jobs/14040-morre-steve-jobs-cofundador-da-apple.htm

Antivírus da Microsoft aponta vírus no Chrome

noreply@blogger.com (Computação Top10) — Mon, 03 Oct 2011 10:58:00 +0000

Atualização liberada na madrugada nesta sexta-feira (30/9) provoca falso positivo; se escolher "Remover", usuário perderá o navegador da Google.

Uma atualização aparentemente liberada nesta sexta-feira (30/9) pela Microsoft para seu antivírus Security Essentials tem feito com que o sistema acuse a existência de vírus no navegador Chrome, da Google.

Segundo o Business Insider, se o usuário escolher a opção "Remover", o computador será reiniciado e o Google Chrome não funcionará mais.

O problema de falso positivo foi reconhecido pela Microsoft nesta sexta-feira. Em nota publicada em seu portal de segurança, a empresa afirma que "em 30 de setembro de 2011, foi identificada uma detecção incorreta para o PWS:Win32/Zbot".

"Em 30 de setembro de 2011, a Microsoft liberou uma atualização que corrige a questão. As versões com assinatura 1.113.672.0 e mais atuais incluem a atualização", completa a nota, sem mencionar o Chrome.

Segundo a Microsoft, o PWS:Win32/Zbot é um trojan que rouba senhas e monitora a visita em certos sites da web, além de permitir o acesso ao sistema por brechas conhecidas como porta dos fundos (backdoors).

Fonte: http://pcworld.uol.com.br/noticias/2011/09/30/antivirus-da-microsoft-aponta-virus-no-chrome/

Redes Wi-Fi podem ser utilizadas para monitoramento respiratório

noreply@blogger.com (Computação Top10) — Wed, 28 Sep 2011 19:11:00 +0000

Estudos da Universidade de Utah mostram que respirações podem interferir em redes sem fio.

Durante testes de novos aparelhos em um hospital, o engenheiro da computação e pesquisador Neal Patwari percebeu que algumas pequenas oscilações no sinal de transmissão wireless. Com um pouco mais de análise, percebeu que o padrão nas interferências era similar ao da respiração das pessoas que estavam na sala. Para ter mais certeza, decidiu fazer testes mais complexos.

Para isso, utilizou uma cama de hospital e instalou 20 transmissores sem fio no quarto. Configurou a rede local para enviar sinais em frequências de 2,4 GHz, mas utilizou a um milésimo da potência de uma placa de rede wireless. Ao final das medições, foi constatado que o pesquisador havia respirado normalmente por quatro vezes, com uma margem de erro muito baixa.

Com os resultados, Patwari chegou à conclusão de que quando alguém inala o ar, o sinal Wi-Fi precisa navegar em uma distância um pouco maior, mas isso é o suficiente para que sejam percebidas pequenas quedas na potência do sinal. Caso novas pesquisas provem a eficiência do método, é possível que em breve hospitais passem a utilizar esse tipo de monitoramento para os pacientes.

A principal justificativa para a implementação do sistema, segundo o New Scientist, seria a diminuição do desconforto que pacientes sentem ao ficarem com tubos e aparelhos conectados. Com redes sem fio, pessoas hospitalizadas por doenças menos graves poderiam ser facilmente monitoradas à distância pelos médicos e enfermeiros.

Fonte: http://www.tecmundo.com.br/medicina/13772-redes-wi-fi-podem-ser-utilizadas-para-monitoramento-respiratorio.htm#ixzz1ZHA8Hp7V

Mudanças no facebook

noreply@blogger.com (Amauri) — Thu, 22 Sep 2011 18:56:00 +0000

São Paulo - O CEO do Facebook, Mark Zuckerberg, anunciou, hoje, durante a f8, conferência da empresa para desenvolvedores que acontece em São Francisco, na Califórnia, uma série de inovações para sua rede social.

A principal delas é uma nova versão para o perfil dos usuários, chamado timeline. Ele irá agregar todas as publicações compartilhadas pelo usuário ao longo dos anos.

“Toda a sua história, todos os seus aplicativos e um novo modo de você expressar quem você é”, definiu o CEO sobre o conteúdo que irá formar a timeline do usuário.

Veja como será o novo perfil do Facebook.

Em suma, o novo modelo funcionará com um diário digital 2.0 do usuário, que terá seu conteúdo dividido por anos. O layout da timeline e seu modo de navegação é similar ao de aplicativos para tablets, como o do Flipboard.

“A primeira versão do perfil do usuário que apresentamos em 2004 significou os primeiros cinco minutos de uma conversa; o news feed, introduzido em 2008, significou os próximos 20. A timeline vai representar todo o resto”, definiu Zuckerberg.

Novos apps vão além dos games sociais

Para gerar conteúdo para a timeline do usuário, o Facebook irá disponibilizar uma série de novos apps, com o objetivo de registrar as atividades do usuário, como os livros que ele leu, as músicas que escutou, os esportes que praticou, lugares onde esteve, pratos que ele cozinhou etc.

Dessa forma, as músicas que o usuário ouvir no Spotify, por exemplo, poderão ser todas registradas em sua timeline.

De acordo com o Facebook, alguns dos aplicativos já estarão disponíveis a partir de agora, porém os novos perfis ainda precisarão de algumas semanas para irem ao ar.

Mark Zuckerberg também anunciou que, atualmente, 500 milhões de pessoas estão acessando a rede social diariamente. Segundo ele, o objetivo agora é, mais do que continuar a crescer, gerar o engajamento dos usuários.

fonte: http://info.abril.com.br/

PILHA EM PASCAL: um procedimento para imprimir todos os elementos de uma pilha

noreply@blogger.com (Amauri) — Thu, 22 Sep 2011 18:39:00 +0000

program exe5;
//Autor: Cícero Amauri
const max = 5;
type
pilha = record
obj: array [1..max] of string;
i: integer;
end;
procedure criar (x: pilha);
begin
x.i := 0;
end;
procedure push(var x:pilha; y: string);
begin
x.i:= x.i +1;
x.obj[x.i] := y;
end;
procedure pop(var x:pilha);
begin
repeat
writeln( x.obj[x.i]);
x.i := x.i - 1;
until (x.i = 0);
end;
var
p: pilha;
elemento: string;
a : integer;
begin
criar(p);
for a := 1 to max do
begin
readln(elemento);
push (p, elemento);
end;
pop(p);
end.

PILHA EM PASCAL: uma função que retorna quantos elementos possui uma pilha

noreply@blogger.com (Amauri) — Thu, 22 Sep 2011 18:19:00 +0000

PROGRAM EXE4;
// AUTOR: CÍCERO AMAURI
TYPE
PILHA = RECORD
OBJ: ARRAY [1..100] OF STRING;
N: INTEGER;
END;
PROCEDURE INIT (VAR X: PILHA);
BEGIN
X.N := 0;
END;
PROCEDURE PUSH ( VAR X: PILHA; Y: STRING);
BEGIN
X.N := X.N + 1;
X.OBJ[X.N] := Y;
WRITELN ('ELEMENTO ADICIONADO');
END;
FUNCTION Q(X: PILHA): INTEGER;
BEGIN
Q:= X.N;
END;
VAR
P: PILHA;
I, QTDE: INTEGER;
ELEMENTO: STRING;
BEGIN
INIT(P);
REPEAT
WRITELN ('ADICIONE OS ELEMENTOS NA PILHA: ');
READLN (ELEMENTO);
PUSH (P, ELEMENTO);
WRITELN ('DIGITE');
WRITELN ( '1 PARA ADICIONAR OUTRO ELEMENTO');
WRITELN ( '2 PARA VERIFICAR QUANTOS ELEMENTOS TEM NA PILHA');
READLN (I);
IF I = 2 THEN
BEGIN
QTDE := Q(P);
WRITELN ('NA PILHA POSSUEM ',QTDE,' ELEMENTOS');
END;
UNTIL (I > 1);
END.

PILHA EM PASCAL: um procedimento para esvaziar uma pilha

noreply@blogger.com (Amauri) — Thu, 22 Sep 2011 17:45:00 +0000

program exe3;
//autor: Cícero Amauri
const max = 5;
type
pilha = record
x: integer;
obj :array [1..max] of string;
end;
procedure init(var n:pilha);
begin
n.x := 0;
end;
procedure push(var n:pilha; o: string);
begin
n.x := n.x + 1;
n.obj[n.x]:= o;
end;
function IsEmpty ( n: pilha):boolean;
begin
if n.x = 0 then
IsEmpty := true
else
IsEmpty := false;
end;
procedure pop (var n:pilha);
begin
writeln (n.obj[n.x]);
n.x:= n.x - 1;
end;
var
p: pilha;
i: integer;
elem: string;
begin
init(p);
for i := 1 to max do
begin
readln (elem);
push (p, elem);
end;
while not IsEmpty (p) do
begin
pop (p);
end;
writeln ('a pilha esta vazia ? ', IsEmpty(p));
end.

PILHA EM PASCAL: um procedimento que informa quantas vezes um dado elemento se encontra em uma pilha.

noreply@blogger.com (Amauri) — Wed, 21 Sep 2011 14:33:00 +0000

program exe2;
// Autor: Cícero Amauri
const max = 5;
type
pilha = record
obj: array [1..max] of string;
i: integer;
end;
procedure criar (x: pilha);
begin
x.i := 0;
end;
procedure push(var x:pilha; y: string);
begin
x.i:= x.i +1;
x.obj[x.i] := y;
end;
procedure pop (var x:pilha; y: string);
var
e, a: integer;
ver: string;
begin
a := 0;
repeat
ver:= x.obj[x.i];
x.i := x.i - 1;
if (x.i = max) then
e := 0;
if (ver = y) then
begin
e:= e + 1;
a:= 1
end;
if (x.i = 0 ) then
begin
writeln ('o elemento ',y,' repete ',e,' vezes na pilha');
end;
if (x.i = 0) and (a <> 1 ) then
writeln ('o elemento não está na pilha');
until (x.i = 0);
end;
var
p: pilha;
elemento,busca: string;
a : integer;
begin
criar(p);
for a := 1 to max do
begin
readln(elemento);
push (p, elemento);
end;
writeln ('digite o elemento que deseja procurar ');
readln (busca);
pop(p, busca);
end.

PILHA EM PASCAL: Um procedimento que verifica se um dado elemento se encontra em uma pilha.

noreply@blogger.com (Amauri) — Wed, 21 Sep 2011 12:09:00 +0000

Program exe1 ;
//autor: Cícero Amauri
const max = 5 ;
type
pilha = record
obj: array [1..max] of string;
cont: integer;
end;
procedure criar (var x: pilha);
begin
x.cont := 0;
end;
procedure push(var x: pilha; y:string);
begin
x.cont := x.cont + 1;
x.obj[x.cont]:= y;
end;
procedure pop(var x: pilha; y:string);
var
v: string;
begin
v := x.obj[x.cont];
x.cont := x.cont - 1;
if (v = y) then
begin
write('o elemento " ',v);
writeln (' " está na pilha');
end;
end;
function vazia(x:pilha):boolean ;
begin
if x.cont = 0 then
vazia := true
else
vazia := false ;
end;
var
c, elemento, busca: string[6];
pi: pilha;
i: integer;
Begin
criar (pi);
for i := 1 to max do
begin
readln(elemento);
push (pi, elemento);
end;
write( 'digite o elemento que deseja procurar: ');
readln (busca);
repeat
pop(pi, busca);
until (vazia(pi)= true);
End.

PILHA EM PASCAL: adicionando e removendo elementos

noreply@blogger.com (Amauri) — Tue, 20 Sep 2011 17:36:00 +0000

Program pilha ;
// autor: Cícero Amauri
const max = 4;
type pilha = record
obj : array[1..max] of string;
j : integer;
end;
var
p1 : pilha;
i: integer;
objeto: string;
procedure criar ( var p: pilha); // cria a pilha
begin
p.j := 0;
end;
procedure push(var p:pilha; ob: string); // adiciona elementos na pilha
begin
p.j := p.j + 1;
p.obj[p.j] := ob;
end;
function pop (var p: pilha):string; // retira os elementos da pilha
begin
pop := p.obj[p.j];
p.j:= p.j-1;
end;
function vazia(var p: pilha):boolean; // indica se a pilha está vazia
begin
if p.j = 0 then
vazia:= true
else
vazia := false;
end;
Begin
criar (p1);
for i:= 1 to max do
begin
readln (objeto);// o usuario informar os elementos para inserir na pilha
push (p1,objeto); // chama o procedimento para colocar os elementos na pilha
end;
writeln ('saída da pilha');
repeat
writeln(pop(p1));
until (vazia(p1)= true); // repete até que a pilha esteja vazia
End.

ICMS deixa banda larga cara demais, diz ONU

noreply@blogger.com (Computação Top10) — Tue, 20 Sep 2011 11:06:00 +0000

Os elevados impostos cobrados pelos governos estaduais, e não pelo governo federal, são a principal razão da banda larga custar caro no Brasil.

A afirmação é do secretário-geral da UIT (União Internacional de Telecomunicações), Hamadoun Touré, que, em visita ao Brasil, defendeu um corte nos impostos dos governos estaduais, como o ICMS, como forma de universalizar o acesso à web no país.

Segundo ele, isso não ocorre por causa do preço cobrado das operadoras nem dos impostos federais, mas pelos impostos estaduais que incidem sobre os serviços.

“O Brasil tem os maiores impostos locais [estaduais] do mundo no setor e isso prejudica a sua imagem”, disse Touré, ao participar de palestra na Agência Nacional de Telecomunicações (Anatel). Ele lembrou casos de outros países como Bangladesh e Paquistão, onde os impostos, que eram considerados muito altos, foram reduzidos, mas a receita não caiu porque o uso dos serviços aumentou.

A UIT é a agência especializada da Organização das Nações Unidas (ONU) para as áreas de Tecnologia da Informação e Comunicação.

Estudo divulgado hoje pela UIT mostra que os brasileiros gastam cerca de 4,8% de sua renda com o pagamento de serviços de comunicação, o que coloca o Brasil em 96º lugar em uma lista que classifica 165 países de acordo com o preço dos serviços de telecomunicações em relação à renda per capita.

O representante da UIT destacou ainda a melhora do Brasil em índices de penetração dos serviços de banda larga e telefonia móvel e o desenvolvimento de tecnologias da informação e comunicação.

Touré também considerou como excelente o anúncio do governo federal de que vai publicar em breve a medida provisória que cria o Regime Especial de Tributação do Programa Nacional de Banda Larga (PNBL).

Fonte: http://info.abril.com.br/noticias/mercado/brasil-lidera-em-impostos-para-ti-diz-onu-19092011-11.shl

Saiba o que é a Maratona de Programação SBC.

noreply@blogger.com (Computação Top10) — Tue, 20 Sep 2011 00:33:00 +0000

A Maratona de Programação é um evento da Sociedade Brasileira de Computação que existe desde o ano de 1996. Desde o ano de 2006 o evento vem sendo realizado em parceria com a Fundação Carlos Chagas. A Maratona nasceu das competições regionais classificatórias para as finais mundiais do concurso de programação da ACM, o ACM International Collegiate Programming Contest, e é parte da regional sulamericana do concurso. Neste ano ocorre a 16a. edição da Maratona.
Ela se destina a alunos de cursos de graduação e início de pós-graduação na área de Computação e afins (Ciência da Computação, Engenharia de Computação, Sistemas de Informação, Matemática, etc). A competição promove nos alunos a criatividade, a capacidade de trabalho em equipe, a busca de novas soluções de software e a habilidade de resolver problemas sob pressão. De ano para ano temos observado que as instituições e principalmente as grandes empresas da área têm valorizado os alunos que participam da Maratona.
Várias universidades do Brasil desenvolvem concursos locais para escolher os melhores times para participar da Maratona de Programação. Estes times competem na Maratona (e portanto na regional sulamericana) de onde os melhores serão selecionados para participar das Finais Mundiais do evento. No ano de 2010, mais de 22 mil estudantes de quase 2000 escolas de mais de 80 países competiram em regionais em todo o planeta, e apenas 100 (cerca de 0.5%) participaram das Finais Mundiais do evento, em Orlando, Estados Unidos. Seis times brasileiros estiveram presentes nas finais mundiais.
Os times são compostos por três alunos, que tentarão resolver durante 5 horas o maior número possível dos 8 ou mais problemas que são entregues no início da competição. Estes alunos têm à sua disposição apenas um computador e material impresso (livros, listagens, manuais) para vencer a batalha contra o relógio e os problemas propostos.
Os competidores do time devem colaborar para descobrir os problemas mais fáceis, projetar os testes, e construir as soluções que sejam aprovadas pelos juízes da competição. Alguns problemas requerem apenas compreensão, outros conhecimento de técnicas mais sofisticadas, e alguns podem ser realmente muito difíceis de serem resolvidos.
O julgamento é estrito. No início da competição os competidores recebem os problemas que devem ser resolvidos. Nos enunciados dos problemas constam exemplos dos dados dos problemas, mas eles não têm acesso às instâncias testadas pelos juízes. A cada submissão incorreta de um problema (ou seja, que deu resposta incorreta a uma das instâncias dos juízes) é atribuída uma penalidade de tempo. O time que conseguir resolver o maior número de problemas (no menor tempo acumulado com as penalidades, caso haja empate) é declarado o vencedor.
fonte: http://maratona.ime.usp.br

Brasília terá internet gratuita para Copa

noreply@blogger.com (Amauri) — Sun, 18 Sep 2011 16:11:00 +0000

São Paulo - O governador do Distrito Federal, Agnelo Queiroz, anunciou que o entorno do Estádio Nacional de Brasília, o Parque da Cidade e a Rodoviária do Plano Piloto serão os primeiros locais da capital atendidos por uma rede gratuita de banda larga sem fio para acesso à internet.

O governo também afirmou que há um projeto para implantar internet gratuita em três regiões administrativas do DF, mas o anúncio deve ser feito em breve, após o prazo de licitação.O sinal terá capacidade de 2 Gbps.

O governo também prevê utilizar uma verba auxiliar de cerca de R$ 80 milhões para implantar o sistema por todo o DF, de forma gradual. Segundo o governo a ideia é disponibilizar a internet banda larga gratuita em locais públicos da área urbana e rural em um prazo de 18 a 24 meses.

“Vai ser a primeira capital a ter cobertura total de banda larga”, disse o governador. Ele quer que a população aproveite a banda larga grátis para testar a velocidade e abrangência das antenas e dos rádios, pois a cidade deseja receber o jogo de abertura da Copa de 2014.

*com informações da Agência Brasil

fonte: http://info.abril.com.br

GVT estreia pacote de banda larga de 35 mega

noreply@blogger.com (Amauri) — Sun, 18 Sep 2011 16:07:00 +0000

São Paulo - A GVT lançará hoje na Futurecom 2011 um pacote de banda larga de 35 mega a R$ 99,00 uma redução em relação ao valor praticado anteriormente de R$ 199.

O presidente da GVT, Amos Genish, afirmou que pelo mesmo preço em 2012 o pacote poderá crescer para 50 mega. "Hoje, 56% das novas vendas da GVT em banda larga são 15 de mega ou mais. Isso significa que, quando se apresenta ao usuário um preço acessível, ele, que tem necessidade, vai comprar", disse o executivo, que falou na abertura do congresso, logo após o presidente da Agência Nacional de Telecomunicações (Anatel), Ronaldo Sardenberg.
Em uma clara crítica à Anatel, o presidente da GVT disse que investimento em Backbone (infraestrutura de rede) é chave e que a agência tem a oportunidade de tornar o preço acessível para a população. "De verdade, ninguém vai acreditar que 1 mega a R$ 35 com garantia mínima de download de só 10% seja o suficiente. Tudo bem para começar, mas não é ideal para o futuro".

fonte: http://info.abril.com.br

YouTube lança editor de vídeos online

noreply@blogger.com (Computação Top10) — Fri, 16 Sep 2011 11:06:00 +0000

O YouTube apresentou ontem uma nova ferramenta para a edição online de vídeos. Dessa forma, o usuário poderá carregar seus vídeos e editá-los sem a necessidade de recorrer a outras plataformas.

Com a ferramenta, o usuário pode realizar cortes, girar o vídeo para a esquerda ou para a direita, remover movimentos instáveis de câmera, ajustar níveis de cores, luz e contraste, adicionar efeitos e trilhas sonoras, entre outros.

Caso não goste das alterações feitas em seu filme, o usuário pode voltar para versão do vídeo.

O botão de acesso à opção já está disponível para clientes brasileiros e aparece logo acima do vídeo a ser editado - é preciso estar logado para ter acesso.

Fonte: http://info.abril.com.br/noticias/internet/youtube-lanca-editor-de-videos-online-15092011-1.shl

Facebook vai permitir seguir usuários

noreply@blogger.com (Computação Top10) — Wed, 14 Sep 2011 18:35:00 +0000

O Facebook anunciou, hoje, que vai adicionar um novo botão de assinaturas, o qual irá permitir aos usuários acompanharem as atualizações de outros contatos sem adicioná-los como amigos.

Essa é mais uma tentativa do Facebook de incorporar ao seu sistema dinâmicas já lançadas pela Google+. Assim como no Twitter, a rede social do Google permite aos seus clientes acompanharem as atualizações de uma conta sem estabelecer uma conexão de amizade.

De acordo com post publicado pelo Facebook, após fazer a “assinatura” de um perfil, o usuário poderá escolher se deseja receber todas as suas postagens ou somente as mais importantes. O recurso seria interessante, principalmente, para contas de personalidades, como artistas, políticos, jornalistas etc., que não possuem uma página para ser curtida.

Pelo outro lado, o usuário poderá escolher quais conteúdos estarão disponíveis para seus seguidores no momento de sua publicação – serão duas opções: aberto para todos ou somente amigos.

Para ativar o botão de assinaturas em seu perfil, basta o usuário ir até o endereçohttp://www.facebook.com/about/subscriptions.

Ontem, o Facebook anunciou que irá sugerir listas de amigos, de familiares, de colegas de escola e de moradores de uma mesma cidade aos seus usuários.

Fonte: http://info.abril.com.br/noticias/internet/facebook-vai-permitir-seguir-usuarios-14092011-22.shl

Tumblr bate Twittter em tempo gasto nos EUA

noreply@blogger.com (Computação Top10) — Tue, 13 Sep 2011 17:19:00 +0000

O serviço de blogs Tumblr superou o Twitter em tempo gasto pelos usuários americanos e ficou com a terceira posição entre os serviços de mídias sociais no país.

Facebook e Blogger aparecem na primeira e segunda posição, respectivamente. O LinkedIn completa o time dos cinco primeiros.

De acordo com um relatório divulgado pela Nielsen, os americanos passaram cerca de 623 minutos no Tumblr contra 565 no Twitter, durante o mês de maio deste ano.

Disparado na frente, o Facebook atingiu a marca de 54,4 mil minutos, enquanto o Blogger obteve 723,7 minutos. O LinkedIn ficou com 325,6 minutos.

Levando em conta todos os serviços online – como notícias, busca, mapas etc – o Facebook manteve a liderança, seguido pelo Yahoo!, Google, AOL e sites da Microsoft (Bing, MSN e Windows Live).

Ainda segundo o relatório, o brasileiro é o segundo povo que mais gasta tempo navegando nos serviços de mídias sociais, ficando atrás somente da Austrália. França, Alemanha e Itália completam o time dos cinco primeiros.

Fonte:http://info.abril.com.br/noticias/internet/tumblr-bate-twittter-nos-eua-em-tempo-gasto-13092011-8.shl