seja bem vindo ao forum eof, caso nao seja cadastrado se cadastre para poder visualizar todo o conteudo ^^

Participe do fórum, é rápido e fácil

seja bem vindo ao forum eof, caso nao seja cadastrado se cadastre para poder visualizar todo o conteudo ^^
Gostaria de reagir a esta mensagem? Crie uma conta em poucos cliques ou inicie sessão para continuar.

Você não está conectado. Conecte-se ou registre-se

 » Programação Scripts » Perl » Calcula equacao de segundo grau completa

Calcula equacao de segundo grau completa

Ir para baixo  Mensagem [Página 1 de 1]

1Calcula equacao de segundo grau completa Empty Calcula equacao de segundo grau completa Sáb Nov 10, 2012 10:22 am

mmxm

avatar
avançado
avançado

Código:
#!/usr/bin/perl

# By MMxM
# Calcula equação de segundo grau completa

print "\n\t*Calcula equacao de segundo grau completa*\n\n";
print "By MMxM\n\n";
print "a = ";
$a = <STDIN>;
print "b = ";
$b = <STDIN>;
print "c = ";
$c = <STDIN>;

raiz_delta();
sub raiz_delta(){
$delta = $b**2- 4*$a*$c;
$raiz = sqrt($delta);
x();
}

sub x(){
$s = -$b + $raiz;
$x = $s/2*$a;
xx();
}

sub xx(){
$ss = -$b - $raiz;
$xx = $ss/2*$a;
}

print "\n\nx1 = $x\nx2 = $xx";

Ir para o topo  Mensagem [Página 1 de 1]

 » Programação Scripts » Perl » Calcula equacao de segundo grau completa

Permissões neste sub-fórum
Não podes responder a tópicos