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

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

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

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.

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.

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.

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.

Morre Steve Jobs, cofundador da Apple

Mensagem da Diretoria da Apple

Jobs, um visionário

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