Raiz
Publicado por Daniel 18/02/2005
[ Hits: 4.181 ]
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);
Nenhum comentário foi encontrado.
Título: tux-gpt - Assistente de IA para o Terminal
Instalação e configuração do Chrony
Programa IRPF - Guia de Instalação e Resolução de alguns Problemas
O Que Fazer Após Instalar Ubuntu 25.04
O Que Fazer Após Instalar Fedora 42
Debian 12 -- Errata - Correções de segurança
Instalando o Pi-Hole versão v5.18.4 depois do lançamento da versão v6.0
Alguém poderia me ajudar a escolher peças pra montar um desktop? (12)
O FIM da minha distro predileta: ARCOLINUX ...que pena (8)