Blog literacki, portal erotyczny - seks i humor nie z tej ziemi
print "podaj wsp. a rownania";
$a =
chomp ($a);
print "podaj b";
$b =
chomp ($b);
print "podaj c";
$c =
chomp ($c);
if ($a == 0)
{
print "to nie jest rownanie kwadr.";
}
else
{
$delta = $b**2 - (4 * $a * $c) ;
if ( $delta < 0 )
{
print "nie ma rozw. "
}
else
{
if ( $delta == 0 )
{
$x1 = - $b / (2 * $a) ;
print " x = $x1" ;
}
else
{
$pierw = sqrt($delta) ;
$x = ( -$b - $pierw ) / (2 * $a);
$xdrugi = ( -$b + $pierw ) / (2 * $a);
print "sa 2 pierwiastki : $x i $xdrugi " ;
}
}
}
$w =