Equação de segundo grau
Publicado por Adson Renato (última atualização em 06/04/2010)
[ Hits: 17.406 ]
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
diferença entre o maior e o menor numero
média dos numeros informados em posiçoes pares em um vetor
Passkeys: A Evolução da Autenticação Digital
Instalação de distro Linux em computadores, netbooks, etc, em rede com o Clonezilla
Título: Descobrindo o IP externo da VPN no Linux
Armazenando a senha de sua carteira Bitcoin de forma segura no Linux
Enviar mensagem ao usuário trabalhando com as opções do php.ini
Como configurar posicionamento e movimento de janelas no Lubuntu (Openbox) com atalhos de teclado
Máquinas Virtuais com IP estático acessando Internet no Virtualbox
Instalar o Microsoft Edge no Slackware 15
Instalando Brave Browser no Linux Mint 22
vídeo pra quem quer saber como funciona Proteção de Memória:
Interface gráfica não funciona (3)
Programa duplicado no "Abrir com" e na barra de pesquisa do ... (2)