Equação de segundo grau
Publicado por Adson Renato (última atualização em 06/04/2010)
[ Hits: 16.889 ]
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
armazenar o nome de um aluno e suas notas
Atenção a quem posta conteúdo de dicas, scripts e tal (1)
Manutenção de sistemas Linux Debian e derivados com apt-get, apt, aptitude e dpkg
Melhorando o tempo de boot do Fedora e outras distribuições
Como instalar as extensões Dash To Dock e Hide Top Bar no Gnome 45/46
Como Atualizar Fedora 39 para 40
Instalar Google Chrome no Debian e derivados
Consertando o erro do Sushi e Wayland no Opensuse Leap 15
Instalar a última versão do PostgreSQL no Lunix mantendo atualizado
Flathub na sua distribuição Linux e comandos básicos de gerenciamento
[Shell Script] Script para desinstalar pacotes desnecessários no OpenSuse
[Shell Script] Script para criar certificados de forma automatizada no OpenVpn
[Shell Script] Conversor de vídeo com opção de legenda
[C/C++] BRT - Bulk Renaming Tool
[Shell Script] Criação de Usuarios , Grupo e instalação do servidor de arquivos samba