[SourceDelphi7] Resolver Teorema de Tales e Hipotenusa.

[bidoow 0]

Resolver Teorema de Tales e Hipotenusa.

 

Estarei botando a source de um programinha que resolve o teorema de tales e a hipotenusa, para os iniciantes é bom que baixem, pois esse codigo é bem utilzinho!

 

Download Source |

É necessário se cadastrar para acessar o conteúdo.

• Entre
• ou
• Cadastre-se

|

É necessário se cadastrar para acessar o conteúdo.

• Entre
• ou
• Cadastre-se

|

É necessário se cadastrar para acessar o conteúdo.

• Entre
• ou
• Cadastre-se

(Virus Suspecious = Não faz mal.

 

 

 

Para quem não quiser baixar, eis o codigo. (repare nos Edits.Text, mude de acordo com seus edits.)

 

Calcular Hipotenusa

 

procedure TForm1.Button1Click(Sender: TObject);

var

hip , cat1 , cat2, x2 : real;

begin

 

cat1 := StrToFloat(Edit2.Text);

cat2 := StrToFloat(Edit3.Text);

 

x2 := cat1*cat1+cat2*cat2;

 

hip := (sqrt(x2));

Edit1.Text := FloatToStr(hip);

end;

 

EDIT1 = RESULTADO

EDIT2 = CATETO

EDIT3 = CATETO

 

Calcular Teorema de Tales , incognita X

 

procedure TForm1.Button2Click(Sender: TObject);

var

x , x1 , x2, ef, efgh, xy : real;

begin

 

ef := StrToFloat(Edit5.Text);

xy := StrToFloat(Edit6.Text);

efgh := StrToFloat(Edit7.Text);

 

x1 := ef * xy;

x2 := efgh;

 

x := x1/x2;

Edit4.Text := FloatToStr(x);

end;

 

EDIT4 = RESULTADO X

EDIT5 = VALOR EF

EDIT6 = VALOR XY

EDIT7 = VALOR EFGH

 

Calcular Teorema de Tales, incognita Y

 

procedure TForm1.Button3Click(Sender: TObject);

var

y , y1 , y2, gh, efgh, xy : real;

begin

 

gh := StrToFloat(Edit9.Text);

xy := StrToFloat(Edit10.Text);

efgh := StrToFloat(Edit11.Text);

 

y1 := gh * xy;

y2 := efgh;

 

y := y1/y2;

Edit8.Text := FloatToStr(y);

end;

 

EDIT8 = RESULTADO

EDIT9 = VALOR GH

EDIT10 = VALOR XY

EDIT11 = VALOR EFGH

 

Esse programa foi usado mais para resolver a equação que eu criei, mais só você modificar e adptar as suas necessidades.

 

Bom, oque eu tenho a dizer... esse programa já deu resultado pra mim olha:

 

 

ASUHASUASH, vlw galera :)

 

duvidas Ask Ask Askk.

 

[matheusguerra 3]

cara, vc tinha que posta isso quando eu tava na 7º serie, kkkkkk

brinks

fico bom, dapra tira umas ideias :D ^^

[DragonBoss 8]

mtoooo bom mesmo cara, merece tanks =D

 

falto calcula seno,cosseno, tangente, cotangente, secante e cossecante, mas ta valendo...dkoaspda, zuera...

agora interajo esse programa com uma calculadora pra equaçao de segundo grau, uma calculadora cientifica e completo meu kit de nerd matematiko =D ( lol )...

 

 

flw, abraçoss

[bidoow 0]

vlw ai, clica em agradeçer ^^ asuihasuhasu :D

 

vlw

[DragonBoss 8]

net caiu, dkpasokdpka nao deu tempo de agradecer, voltou agora >..<

 

agradecido emo =D

 

flw, abraços

[Surfistinha£ 20]

Nossa adorei gostei de ver utilizando a coordenadas realmente e mas facil xyz muito bom

 

Parabens

[bidoow 0]

É bem facil mesmo, bem simplesazinho de manusia.

[Leonardodag 2]

legal vai ajudar na minha dominacao mundial como um nerd! huashuashuashuashuashuashaushasuahsuashuahsuahs

 

nah nem tenho utilidade pra isso, nem quero ter *-*

[Lilith! 13]

gostei intendi muito e eu tinha muita dificuldade com isso