Raiz
Publicado por Daniel 18/02/2005
[ Hits: 4.325 ]
Calcula a raiz quadrada de um número informado.
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);
Programa para Cálculo Vetorial
Nenhum comentário foi encontrado.
IA Turbina o Desktop Linux enquanto distros renovam forças
Como extrair chaves TOTP 2FA a partir de QRCODE (Google Authenticator)
Linux em 2025: Segurança prática para o usuário
Desktop Linux em alta: novos apps, distros e privacidade marcam o sábado
IA chega ao desktop e impulsiona produtividade no mundo Linux
Como instalar o repositório do DBeaver no Ubuntu
Como instalar o Plex Media Server no Ubuntu
Digitando underscore com "shift" + "barra de espaços"
Como ativar a lixeira e recuperar aquivos deletados em um servidor Linux
Como mudar o nome de dispositivos Bluetooth via linha de comando
Assinador JNLP do Site Portal da Nota Fiscal Eletrônica (4)
Warcraft II Remastered no Linux? (3)









