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
terça-feira, 28 de setembro de 2010
segunda-feira, 12 de julho de 2010
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.
segunda-feira, 5 de julho de 2010
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.
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.
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.
domingo, 4 de julho de 2010
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.
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.
segunda-feira, 28 de junho de 2010
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.
quinta-feira, 24 de junho de 2010
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
OBS: Os produtos necessários para esta esperiência estão a venda no site: www.pugetsystems.com