Programa que calcula uma equação do 2º Grau

[code_master]

Olá galera!

Eu tava aqui na sala com uma turma do curso de TI e resolvi desafiá-los a criar um programa que calculasse uma Equação do 2º Grau, resolvi fazê-la e postar aqui...

Qualquer coisa posta aí...

Bom proveito.

' Err está definido como 0
On Error Resume Next

' Declarando as variáveis
Dim d, a, b, c, x1, x2

' Perguntando ao usuário quais são os termos da equação
a=CDbl(InputBox("Informe o valor do 1º termo [ Somente números ]"))
b=CDbl(InputBox("Informe o valor do 2º termo [ Somente números ]"))
c=CDbl(InputBox("Informe o valor do 3º termo [ Somente números ]"))

If a = "" or b = "" or c = "" Then
    MsgBox    "É preciso informar todos os termos da equação. " & vbCrLf & vbCrLf &_
            "Se a sua equação for do tipo bx + c = 0 ou ax² + bx = 0 " &_
            " coloque 0 [zero] no lugar do termo que falta." & vbCrLf & vbCrLf &_
            "O programa será fechado agora.", 64, "Atenção"
    'Saindo do programa
    WScript.Quit
End If

' Calculando o Discriminante
d = b^2 -4 * a * c

' Verificando se é preciso resolver a equação
If d < 0 Then
    MsgBox    "O discriminante é negativo (" & d & "), portanto a equação não " &_
            "tem solução no conjunto dos Números Reais (IR)." & vbCrLf & vbCrLf &_
            "O programa será fechado agora.", 64, "Atenção"
Else
    x1 = FormatNumber((-b + sqr(d))/(2*a), 2)
    x2 = FormatNumber((-b - sqr(d))/(2*a), 2)
    MsgBox "O resultado da sua equação do segundo grau é: " & vbCrLf & vbCrLf &_
    "x1= " & x1 & vbCrLf &_
    "x2= " & x2 & vbCrLf & vbCrLf &_
    "By @mestrejojo", 64, "Resultado"
End If

If Err <> 0 Then
  ' File operation(s) failed, handle the error
  MsgBox     "Não foi possível executar este programa em seu computador." & vbCrLf &_
            "Tente novamente em outra máquina!" & vbCrLf & vbCrLf &_
            "Código do Erro: " & Err.description, 16, "Erro!"
End If

Eh soh copiar o código acima, colar em um editor de textos (notepad++, bloco de notas, etc.) e salvar com o nome equacao_do_segundo_grau.vbs

Agora eh só executar!

Flw!

[CoderSc]

Valeu , vai me ajudar muito >>> Flw !

[KaiqueHunter]

Uma vez fiz um programa desse em Object Pascal e logo quando está aprendendo C# fiz outro identico em C#.

[itachi kun]

Parabens fikou mt bom, uma vez eu fiz um desse tbm em vb6, na epoca eu programei pra ele escrever em labels o passo a passo da formula, pq o prof pedia pra montar todo o calculo e nao soh o resultado heheh abraços

[KaiqueHunter]

Itachi,tambem fiz assim todo o calculo em Labels,fiz só por fazer mesmo,sendo que ainda falta muito tempo pra min estar na falcudade.