Programa Exemplo 1

Aqui Vai um programa-exemplo com tudo o que aprendemos com os tutoriais de pascal até agora, vamos colocar na prática o que aprendemos.

__________

Program Exemplo;
uses crt;
var porcentagem,num,resultado:real;

begin
clrscr;
writeln('Este programa calcula a porcentagem de um numero');
write('Digite o numero : ');
readln(num);
write('Digite a porcentagem a ser encontrada do numero Anterior : ');
readln(porcentagem);
writeln; {este comando adiciona uma linha em branco}

clrscr;

resultado:=(num/100)*porcentagem; {este ‚ o processamento}

{Nota: A porcentagem Y de X ‚ (X/100)*Y }

writeln( porcentagem:3:2,' % de ', num:3:2,' ‚ ', resultado:3:2);
readkey;

end.

__________

Dica: Você pode ter dificuldades de colar este código em seu editor, já que o editor não conta com o recurso de copiar e colar, faça o seguinte: Cole este programa em um arquivo do bloco de notas (.TXT) e depois renomeie para .PAS e abra o com o seu editor.

Obrigado por acessarem o blog

Novo Template

Olá a todos, como podem ver instalei hoje este novo template para o blog ter uma melhor aparência, a muito tempo estava procurando um bom tamplate.

LEGO Digital

Se você gostava de brincar com as pecinhas de ecaixar da lego, agora você vai poder construir coisas íncriveis com esse software.
O LEGO Digital Designer é um programa no qual você pode montar o que quiser com TODAS as peças da empresa, além de serem ilimitadas.
O programa é parecido até com softwares de engenharia, como AUTOCAD e SOLIDWORKS.
Muito Bom, Recomendo.

Clique aqui para ter + informações e para baixar

Tutorial Pascal 3 - Variáveis

As variáveis são "Caixinhas" que podem guardar um determinado número, carácter, palavara...
Os programas precisão de variáveis para armazenarem informações.

Situação: Um programa recebe dois valores, e soma os, após isso ele os exibe.
X+Y, sendo que X é uma variável e Y também, mas como o programa vai exibir o resultado? Precisamos então de uma nova variável para armazenar o resultado, RESUL:=X+Y, assim a variável RESUL vai ter o valor X+Y, então só precisaremos exibir o seguinte: O valor da soma é RESUL.

As variáveis precisam ser declaradas para poderem ser usadas, no tutorial anterior aprendemos a usar o comando VAR, que declara as variáveis, as variáveis têm que ser declaradas como:

Caracter, sendo eles
STRING - Armazena vários caracteres, como palavras, e também números.
CHAR - Armazena 1 caracter.

Numérico, sendo eles
INTEGER - Armazena números inteiros positivos ou negativos.
REAL - Armazena números inteiros reais positivos ou negativos.

Com váriáveis do tipo caracter não podemos fazer operações numéricas, já com os numéricos podemos, porém com o numérico REAL não podemos fazer divisões.

Exemplo aplicado:

program exemplo;
uses crt;
var X,Y,RESUL:REAL; {as três variáveis serão reais}

Begin
write('Digite o 1º número');
readln(X);
write('digite o 2º número');
readln(Y);
RESUL:=X+Y;
write(' O resultado é ',RESUL:3:2);
readkey;
end;

Para exibição de números utilizamos :3:2 para o número a ser exibido ter 3 algarismos e 2 decimais.

Tutorial Pascal 2 - Operações com variáveis

Na programação temos 2 tipos de operadores, os lógicos e os númericos.

Lógicos - São comparadores, eles são: ">" (maior), "<" (menor), ">=" (maior ou igual), "<=" (menor ou igual) Numéricos - São os operadores que trabalham com números, e estamos acostumados a vê-los, e eles são: "+", "-", "/" (divisão),"*"(multiplicação), e ainda temos a expoênciação, raiz, e resto da divisão. Iremos ver mais sobre operadores lógicos após aprendermos o comando IF (SE). Empregando operadores numéricos: É fácil aplicar um operador numérico na programação, veja: VAR1:=VAR2+1; Neste exemplo a variável VAR1 recebe a variável VAR2 + 1, simples, o mesmo vale para a subtração e para multiplicação, porém no caso da divisão temos uma pequena preocupação, veja: VAR1:=100/VAR2; Neste caso a variável VAR2 terá de ser maior que zero (VAR2>0) pois se ela for zero o seu programa terá um erro: Divisão por Zero (Division by zero).

Pessoal, vimos que é muito simples aplicarmos operadores numéricos, até mais.

Burlando páginas de cadastramento de celulares

Hoje em dia os sites de downloads estão hospedando seus arquivos nos Hospedeiros de arquivos (Rapidshare, Megaupload, Easyshare entre outros), e para fazer download desse arquivo o site disponibiliza o link, porém ao invés desse link ir direto a página do hospedeiro ele passa por um anúncio publicitário que pode barrar seu download se você não assinar o produto.
Esta página publicitária pede o numero do celular e a operadora, após isso ela te envia uma mensagem sms com o código, então aparece um novo campo na página publicitária pedindo o código que foi enviado para o celular, e só após isso ele libera o link, porém isso assinará serviços de celular que custarão créditos.

Existem dois Modos de Burlar esta página:

1º : Coloque um nº de celular qualquer e o botão de download será liberado, se este não funcionar tente o 2º método.

2º:Na barra de endereço do navegador você encontrará um link do mesmo tipo desse:

http://www.redirecionamentodeurl.com/download/?rar.2trap.rb_moc_ainaMegA_www_CT_KOA/086884841/selif/moc.erahsdipar//:ptth

Observe que a parte azul do link é a pagina de download, porém foi codificado ao contrário, veja o que realmente está escondido:

http:\\rapidshare.com\files\148488680\AOK_TC_www.AgeMania_com_br.part2.rar

agora é só colar o link anterior na barra de endereços e seguir os procedimentos do hospedeiro.

tá ai a screenshot, clique para amplia-la.


*As páginas publicitárias podem variar.

Casemod a base de óleo

Esse video mostra algo surpreendente, um computador mergulhado num líquido, e o computador continua funcionando, este é um modo de resfriar o computador e fazer Casemod ( O tuning dos PCS). O líquido que está sendo usado é o óleo mineral, que não é um condutor de energia, e por isso não causa um curto circuito no hardware.




OBS: Os produtos necessários para esta esperiência estão a venda no site: www.pugetsystems.com