Equação de segundo grau
Publicado por Adson Renato (última atualização em 06/04/2010)
[ Hits: 17.680 ]
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
Ordenando um vetor sem utilização de variáveis de contagem ou auxiliar
cadastro de um cliente com registro
O que é o THP na configuração de RAM do Linux e quando desabilitá-lo
Comparação entre os escalonadores BFQ e MQ-Deadline (acesso a disco) no Arch e Debian
Conciliando o uso da ZRAM e SWAP em disco na sua máquina
Servidor de Backup com Ubuntu Server 24.04 LTS, RAID e Duplicati (Dell PowerEdge T420)
Como unir duas coleções de ROMs preservando as versões traduzidas (sem duplicatas)
Como instalar o Telegram Desktop no Ubuntu 24.04
Overclocking Permanente para Drastic no Miyoo Mini Plus
Problemas de chaves (/usr/share/keyrings) no Debian
Converter os repositórios Debian para o novo formato com as chaves
Problema com audio apos upgrade (8)
Instalação automatizada do Debian 12 em UEFI (2)
Programa simples pra cortar vídeos [RESOLVIDO] (7)