[DELPHi7] Calculando o Perimetro de um Circulo !

[bidoow 0]

Calculando o Perimetro de um Circulo !

Mais um programa nerd matematico!

 

 

Crie 2 Edits (aba Standard) e 1 Button (mesma aba).

 

Clique 2 vezes no button, apague tudo e coloque isso:

 

procedure TForm1.Button1Click(Sender: TObject);

var

p ,r : real;

begin

 

r := StrToFloat(Edit1.Text);

 

p := 2*3.14*r;

 

p := p;

 

Edit2.Text := FloatToStr(p);

end;

 

end.

 

Explicando :

 

No Edit1 você vai colocar o RAIO, e no Edit2 vai sair o resultado !

 

Espero que tenham intendido, e que saibam o que é raio ¬¬'.

 

ASUUHAS, abraços

[Ryokusei 21]

Para um resultado mais preciso utilize a constante "pi" (não sei se precisa declarar a unit Math).

 

p := 2*pi*r;

 

Para um resultado mais preciso utilize a constante "pi" (não sei se precisa declarar a unit Math).

 

p := 2*pi*r;

[bidoow 0]

Para um resultado mais preciso utilize a constante "pi" (não sei se precisa declarar a unit Math).

 

p := 2*pi*r;

 

malz não intendi, mas esse que eu fiz já da o resultado bem certinho!

[Surfistinha£ 20]

O Ryokusei ele declaro que o falor de p e igual a 2*3.14 veja o code

p := 2*3.14*r;

 

Nao preciza de const n

 

Pq o calculo de p e r e real

 

Isso que se falo esta errado no meu intendimento o artigo do bidoow está claramente correto

 

vlw

[Ryokusei 21]

O Ryokusei ele declaro que o falor de p e igual a 2*3.14 veja o code

p := 2*3.14*r;

 

Nao preciza de const n

 

Pq o calculo de p e r e real

 

Isso que se falo esta errado no meu intendimento o artigo do bidoow está claramente correto

 

vlw

 

Acho que vocês dois que não entenderam .-.

Eu quis dizer pra usar a constante "pi" que dá o valor de pi (3.14159265358979), isso vai gerar um resultado mais preciso. Mas se for pra cálculos de dever de casa e não algo industrial de trivial precisão 3.14 tá sim de bom tamanho.

[Surfistinha£ 20]

ata agora sim eu entendi com esse conteudo o resultado sai mas preciso

 

@topic

 

Gostei ta de parabens

Obrigado por postar

[bidoow 0]

atá, valeu pelo apoio ai galear :D

esse tá bom pra dever de casa mesmo!

[DragonBoss 8]

mto bom mesmo cara, mais um programinha simples e bem util =D

mereceu tanks xD

 

(( agora cria um ke calcule tangente, cotangente e secante xD ))

 

flw, abraços

[Ryokusei 21]

mto bom mesmo cara, mais um programinha simples e bem util =D

mereceu tanks xD

 

(( agora cria um ke calcule tangente, cotangente e secante xD ))

 

flw, abraços

 

A unit Math já tem essas funções prontas.

[bidoow 0]

mto bom mesmo cara, mais um programinha simples e bem util =D

mereceu tanks xD

 

(( agora cria um ke calcule tangente, cotangente e secante xD ))

 

flw, abraços

 

eu não lembro como calcula essas bagaças ! ASUHUAS :p

 

vlw

[DarkSj 0]

isso pode ajudar pra qem joga pangya

 

mais ou menos

 

:s

 

vlw!