Ctrl+V

http://otakusbrasil.net/t890p60-quarto-do-grind

.-.

[5]

sheryl nome

Stocking (Panty & Stocking with Garterbelt

S.A.X.O.F.O.N.E.

lol

http://www.google.com.br/imgres?imgurl=http://1.bp.blogspot.com/_wazMgP286Q0/SPyos2lXqzI/AAAAAAAABGc/23nGMhm_Y7U/s400/bota.JPG&imgrefurl=http://cuaoleu.blogspot.com/2008_10_01_archive.html&usg=__yUKl8cTv8IWNkvZvCbw-7F7XIq4=&h=287&w=320&sz=15&hl=pt-BR&start=0&sig2=2tsfpVeM4phUqXdeobxnKw&zoom=1&tbnid=g3tCvdZaa8N9XM:&tbnh=148&tbnw=162&ei=aDn9TfjFI8qz0AHWxY2EAw&prev=/search%3Fq%3Dponte%2Bpara%2Bo%2Bc%25C3%25A9u%26um%3D1%26hl%3Dpt-BR%26client%3Dfirefox-a%26rls%3Dorg.mozilla:pt-BR:official%26biw%3D939%26bih%3D572%26tbm%3Disch&um=1&itbs=1&iact=hc&vpx=131&vpy=252&dur=361&hovh=213&hovw=237&tx=186&ty=174&page=1&ndsp=13&ved=1t:429,r:8,s:0&biw=939&bih=572









Ó.Ó

ツ

._.

http://otakusbrasil.net/post?f=21&mode=newtopic

._.

ツ

http://otakusbrasil.net/t890p105-quarto-do-grind

u_u

Maria Ozawa

Ranguren

Eu fiz um transplante de orgão para SergioTubi Porque eu sou o(a) escolhido(a)

program SegmentoDeReta;
var eixox1,eixoy1,eixox2,eixoy2:real;

Function tangente(x1,y1,x2,y2:real):real; {Define o comprimento do segment de reta a ser traçado}
begin
If (x1<>x2) and(y1<>y2)
then tangente:=(sqrt(sqr(x2)+sqr(y2)))-(sqrt(sqr(x1)+sqr(y1)))
else begin
If x1=x2
then tangente:=(y2-y1)
else tangente:=(x2-x1);
end;
end;

Function angulo(x1,y1,x2,y2:real):real;
begin
If sign(x2)=-1
then begin
If sign(y2)=-1
then angulo:=-90-arctan((y2-y1)/(x2-x1))
else angulo:=90-arctan((y2-y1)/(x2-x1));
end
else angulo:=arcsin((y2-y1)/tangente(x1,y1,x2,y2));
end;

Procedure segmento(x1,y1,x2,y2:real);
begin
mudepos(x1,y1);
mudedirecao(90);
pesquerda(angulo(x1,y1,x2,y2));
pfrente(tangente(x1,y1,x2,y2));
end;

Procedure Quadrantes;{Traça as linhas que separarão os quadrantes para melhor vizualização}
var ind,x:integer;
begin
mudepos(0,0);
pdireita(90);
pfrente(1000);
mudepos(0,0);
pfrente(1000);
end;

begin
Quadrantes;
writeln('Digite o valor da coordenada x do ponto inicial');
readln(eixox1);
writeln('Digite o valor da coordenada y do ponto inicial');
readln(eixoy1);
writeln('Digite o valor da coordenada x do ponto final');
readln(eixox2);
writeln('Digite o valor da coordenada y do ponto final');
readln(eixoy2);
segmento(eixox1,eixoy1,eixox2,eixoy2);
dr;
end.

bruno_frh@hotmail.com


-----
GrinD me mata

Suddenly I see (suddenly I see)

This is what I wanna be

Suddenly I see (suddenly I see)

Why the hell it means so much to me (suddenly I see)

This is what I wanna be

Suddenly I see (suddenly I see)

Why the hell it means so much to me

-q

http://otakusbrasil.net

tava colocando em outra aba no MOZZILA