Raiz

Publicado por Daniel 18/02/2005

[ Hits: 4.105 ]

Download raiz.zip




Calcula a raiz quadrada de um número informado.

  



Esconder código-fonte

procedure TForm1.BitBtn1Click(Sender: TObject);
var
  Valor: Double;
  Raiz: SmallInt;
begin
  if (Edit1.Text <> '') and (Edit2.Text <> '') then
  begin
    Valor := StrToFloat(Edit1.Text);
    Raiz := 1;
    while Raiz < StrToInt(Edit2.Text) do
    begin
      Valor := Valor * StrToFloat(Edit1.Text);
      Raiz := Raiz + 1;
    end;
    Edit3.Text := FloatToStr(Valor);
  end
  else
    MessageDlg('Os valores devem ser informados.', mtInformation, [mbOk], 0);

Scripts recomendados

Sistemas númericos

Juros

Transforme em Binários

Corrida de cavalos

Método de eliminação de Gauss com pivotamento parcial


  

Comentários

Nenhum comentário foi encontrado.


Contribuir com comentário




Patrocínio

Site hospedado pelo provedor RedeHost.
Linux banner

Destaques

Artigos

Dicas

Tópicos

Top 10 do mês

Scripts