Raiz
Publicado por Daniel 18/02/2005
[ Hits: 4.017 ]
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);
Operações simples e avançadas com matrizes
Método de eliminação de Gauss com pivotamento parcial
Nenhum comentário foi encontrado.
Atenção a quem posta conteúdo de dicas, scripts e tal (2)
Aprenda a criar músicas com Inteligência Artificial usando Suno AI
Entendendo o que é URI, URL, URN e conhecendo as diferenças entre POST e GET
Ativando o Modo Noturno via Linha de Comando no GNOME/Wayland
Manutenção de sistemas Linux Debian e derivados com apt-get, apt, aptitude e dpkg
Como criar um robot em NTSL (Nelogica Trading System Language) para Profitchart
Use o Google PageSpeed Insights para verificar um site
filtrar só as pastas onde tem arquivo (5)
Sistema da Coréia do Norte - Red Star OS (29)
Como adicionar módulo de saúde da bateria dos notebooks Acer ao kernel... (31)
Instalacao Manjaro em notebook com placa de video hibrida [RESOLVIDO] (2)