procedure TForm1.Button1Click(Sender: TObject);
var
A,B,C,D,R1,R2:double;
begin
try
A := strtofloat(edta.Text);
B := strtofloat(edtB.Text);
C := strtofloat(edtC.Text);
if A <> 0 then
begin
D := (B*B)-(4*A*C);
if D >= 0 then
begin
R1 := ((-1*B)+SQRT(D))/(2*A);
R2 := ((-1*B)-SQRT(D))/(2*A);
EDTR.Text := FloatToStr(R1);
EDTR2.Text := FloatToStr(R2);
{ // exibir resultado em outro form
final.Edit1.Text := FloatToStr(R1);
final.Show;
} end else
begin
ShowMessage('Erro na operação!! Delta menor que zero.');
end;
end else
begin
ShowMessage('Valor de A deve ser diferente de zero (0).');
end;
except on e:exception do
ShowMessage(e.message);
end;
end;
terça-feira, 11 de maio de 2010
Baskara Delphi
Programinha pra calcular Baskara no Delphi, tarefa de aula, vale compartilhar :D.
Assinar:
Postar comentários (Atom)
Nenhum comentário:
Postar um comentário