Calcula a raiz quadrada de um número informado.

• Download raiz.zip
• Enviar nova versão

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);

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

Calculadora

GTK em (Free)Pascal

Crivo de Eratóstenes Simples em Pascal

Sistemas númericos

Nenhum coment�rio foi encontrado.