
Olá a todos, é com muita alegria que venho lhes dizer que agora estou motorizado. Depois de muito tempo guardando minha graninha, consegui em fim comprar meu primeiro carro. Claro que não é novo, mas está em ótimas condições. Aproveitar este post para agradecer meus pais, que me incentivaram e principalmente a Deus =) é isso.
Em breve fotos do nene =)
abraço a todos.
Voyage LS 83
Novo Layout
Olá a todos...
...bom, depois de um bom tempo sem postar, estou voltando a atualizar este blog, agora com novo Layout, novos conteúdos, e em breve novidades. Estarei dando mais foco a Programação, mas continuarei a postar assuntos em gerais, nos quais eu tenha interesse de repassar a informação. O Blog agora está com poucos adcenses, mas logo colocarei mais alguns, mas nada escandaloso.
espero que gostem do novo caminho do Blog: Web Do Jason.
Grande abraço, El. Jason...
Noções Básicas em Object Pascal
Ola Galerinha, hoje 07/03/09 praticamente as 10:41, estou postando um pequeno texto com exemplos de noções básicas de pascal. Espero que poça dar uma ajuda a vocês.
Grande Abraço.
Váriaveis:
shortint - 8bits -128 a 127
integer - 16bits -32768 a 32767
longint - 32bits -2147483648 a 2147483647
byte - 8bits 0 a 255
word - 16bits 0 a 65535
comp - 64bits -2e63+1 a 2e63-1
real - 6bytes
single - 4bytes
double - 8bytes
extended - 10bytes
bool - true or false
char - ocupa 1byte por caracter
Operadores:
* (multiplicação - inteiro e real)
/ (divisão - real)
div (divisão inteira - inteiro)
mod (resto da divisão inteira - inteiro)
+ (adição - inteiro e real)
- (subtraçao - inteiro e real)
Atribuição:
Atribuição é feita por := exemplo:
a := 10;
Expreções Lógicas:
Igaual a ( = )
Diferente de ( <> )
Maior que ( > )
Menor que ( < )
Maior Igual ( >= )
Menor Igual ( <= )
Not - Inverte valor lógico
And - Somente se dois valores logicos forem verdadeiros
OR - Se um dos valores logicos forem verdadeiros
Ex:
(A>0) And (B>3)
(A>0) OR (B>3)
Estruturas de Controle:
if (a>b) then
begin
showMessage('isto e verdadeiro');
end {sempre antes do else nao vai ;}
else
begin
showMessage('isto e falso');
end;
Astruturas de Repetição:
for
while
repeat
exemplo de for:
for i:1 to 10 do
begin
{lista de comandos}
end;
exemplo while:
while i<10 do
begin
i := i+1;
end;
exemplo repeat:
repeat
begin
i := i+1;
end;
until i<10;
Arrays:
vetor:array[1..10] of integer
matriz:array[1..10,1..10] of integer
Strings:
nome:string[255];
Funções de strings:
length(
concat(
Procedures:
str() - converte valor numerico em string
val() - converte string em valor numerico
Processos:
PROCEDURE
begin
end;
Funções:
FUNCTION
begin
end;
chamando a função:
switch case:
CASE
END;
ex:
CASE escolha OF
'V':showMassage('vermelho');
'A':showMassage('Amarelo');
'L':showMassage('Laranja');
END;
RECORDS (Structs em c++):
VAR cliente:RECORD
numCliente:integer;
tipoCliente:char;
saldoCliente:real;
END;

