Voyage LS 83

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.

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() - retorna o numero de caracteres da string
concat() - retorna o resultado das concatenações


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 OF
:;
:;
:;
:;
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;