Equação de segundo grau
Publicado por Adson Renato (última atualização em 06/04/2010)
[ Hits: 17.663 ]
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
Crivo de Eratóstenes Simples em Pascal
cadastro de multiplos clientes com registro
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)
Visualizar câmeras IP ONVIF no Linux sem necessidade de instalar aplicativos
Autologin: praticidade ou não?
Instalação do Onion OS no Miyoo Mini e Miyoo Mini Plus
Proteja seu Linux Mint com o Timeshift: Restaure o sistema mesmo que ele não inicie!
Alguém pode me recomendar um editor de textos? [RESOLVIDO] (10)
Problemas com Go-Global AppController no Ubuntu 24.04.3 (2)
Jogos baixados na Central de Aplicativos mas que não abrem (2)