Raiz

Publicado por Daniel 18/02/2005

[ Hits: 4.165 ]

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

Animação com figuras

Corrida de cavalos

Data e Hora em pascal

Calculadora

Operações simples e avançadas com matrizes


  

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