Divisão de fração em delphi. Como posso fazer?!

Delphi

06/07/2004

Olá, gostaria de saber como faço para fazer uma conta de fração no delphi? Por que eu estou com uma Puta ? na minha cabeça...
eu estou usando este raciocinio.

1/a = 1/b + 1/c
1/c = 1/b - 1/a
1/c = ????

onde a,b e c são variaveis reais.
mas, no delphi eu não sei proceder a terceira linha acima.

estou usando está programação.

a:=floattostr(E1.text);
a:= 1 / a;
b:=floattostr(E2.text);
b:= 1 / b;
c:= a - b;
E3.text:=floattostr(c);

só que a conta não da no esperado, devido o resultado feito em conta no papel. peço ajuda. Muito obrigado responderem.


Gollum

Gollum

Curtidas 0

Respostas

Rômulo Barros

Rômulo Barros

06/07/2004

procedure TForm1.Button1Click(Sender: TObject);
Var
  a,b,c : real;           // 1/2 + 1/2  = 1
begin
   a := 1;
   b := 1/2;
   c := 1/2;

   ShowMessage(´1/a = 1/b + 1/c ->> ´+ FloatToStr(a) + ´ = ´ + FloatToStr(b + c)  );
   ShowMessage(´1/c = 1/a - 1/b ->> ´+ FloatToStr(c) + ´ = ´ + FloatToStr(a - b)  );
   ShowMessage(´1/b = 1/a - 1/c ->> ´+ FloatToStr(b) + ´ = ´ + FloatToStr(a - c)  );
end;

end.



GOSTEI 0
POSTAR