Formula no delphi

Question

Tenho que fazer uma sequencia de programas de fisica e uma delas � a seguinte.

[img:fdb4023114]http://www.cyberterrorismo.kit.net/formula.jpg[/img:fdb4023114]

como fa�o pra colocar essa formula no delphi???

Grato[/url][/list][/list]

Deus · Answer

Bem, eu fiz isso em 10 minutos.. acho que voc� estava com um pouco de pregui�a, hein? ;) Assumindo que voc� tem um form com 4 componentes: 2 edits (para a entrada da massa em gramas e da largura em cm), 1 bot�o (para o evento OnClick) e um label (para ser exibido o resultado), ficar�amos ent�o com:

procedure TForm1.Button1Click(Sender: TObject);

   function ftDensidade(m, v: Real): Real;
   begin
     m := m * 0.001; 
     v := (v * v * v) * 0.000001;

     Result := m / v;
   end;

var
  tmpStr: String;
begin
  tmpStr := FloatToStrF(ftDensidade(StrToFloat(edMassaemGramas.Text),
                                    StrToFloat(edArestaemcm.Text)),
                                    ffExponent, 2, 2);

  if (Pos(�+�, tmpStr) > 0) then
    tmpStr := Copy(tmpStr, 1, Pos(�E�, tmpStr)  - 1) + � * 10^� +
              Copy(tmpStr,    Pos(�+�, tmpStr)  + 1, Length(tmpStr) - Pos(�+�, tmpStr)) + � kg/m3�
  else
    tmpStr := Copy(tmpStr, 1, Pos(�E�, tmpStr)  - 1) + � * 10^-� +
              Copy(tmpStr,    Pos(�-�, tmpStr)  + 1, Length(tmpStr) - Pos(�+�, tmpStr)) + � kg/m3�

  Label1.Caption := tmpStr ;
end;

Eu criei a vari�vel tmpStr s� para guardar temporariamente o resultado da fun��o ftDensidade, e transformo do formato ffExponent para um formato mais leg�vel. Por exemplo, ao inv�s de 0.12E+02 voc� teria 0.12 * 10^2. Melhor, n�?

Abra�os, dEUS.

F�rum Formula no delphi #198551