Raiz

Publicado por Daniel 18/02/2005

[ Hits: 4.120 ]

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

Calculadora Oppensource

Juros

Forca

Corrida de cavalos

Criando Objetos


  

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