Equação de segundo grau
Publicado por Adson Renato (última atualização em 06/04/2010)
[ Hits: 17.587 ]
Código para resolver equações de segundo grau.
Program Eq2grau ; Var a, b, c :integer; delta, x1, x2 :real; Begin write('Insira o valor de A:'); readln(a); write('Insira o valor de B:'); readln(b); write('Insira o valor de C:'); readln(c); if(a>0) then begin delta:=((sqr(b))-(4*a*c)); x1:=(-b+sqrt(delta)/(2*a)); x2:=((b-(2*b))-sqrt(delta)/(2*a)); writeln('A equacao possui duas raizes reais e distintas, são elas: X´:',x1 , 'e X´´:',x2); end else begin if(a=0) then begin delta:=((sqr(b))-(4*a*c)); x1:=(-b+sqrt(delta)/(2*a)); writeln('A equacao possui apenas uma raiz real, X:', x1); end else writeln('A equacao naum possui raizes reais'); end; End.
Menor número, maior número, soma e multiplicação
ZCodEdit - Editor de textos com sintaxe HTML e Pascal
Atualizando o Passado: Linux no Lenovo G460 em 2025
aaPanel - Um Painel de Hospedagem Gratuito e Poderoso
O macete do Warsaw no Linux Mint e cia
Visualizar arquivos em formato markdown (ex.: README.md) pelo terminal
Dando - teoricamente - um gás no Gnome-Shell do Arch Linux
Como instalar o Google Cloud CLI no Ubuntu/Debian
Mantenha seu Sistema Leve e Rápido com a Limpeza do APT!
Procurando vídeos de YouTube pelo terminal e assistindo via mpv (2025)
Olha que maravilha, Arch no C2D 7400, 2GB de RAM, vídeo onboard e no G... (1)
Mikrotik não abre o webmail-segur... da Locaweb (0)
Jogos baixados na Central de Aplicativos mas que não abrem (1)
debian com wayland, configuracao de teclado. Mudou Tudo! [RESOLVIDO] (1)