|
Hooray! It works!
Well sort of. The answer it shows for the (1,4) m=2.5 equation is
y=2.5x-6.5, which is wrong. It's y=2.5x-1.5. Any idea on how I can change that? Like change the $yvpxxs to a negative number?
Ok, so I deleted to "" signs, didnt work, but I put 'my' in front of the variable things and it worked..
Here's the working script:
#!/usr/bin/perl
use warnings;
use strict;
print "You can solve the y-y=m(x-x) equation with this program. \n";
print "Enter y variable. \n";
my $yval = [STDIN];
print "Enter slope. \n";
my $slpe = [STDIN];
print "Enter x variable. \n";
my $xval = [STDIN];
my $xvxsl= $xval * $slpe ;
my $yvpxxs= $yval + $xvxsl ;
print "Step one: y-$yval=$slpe x-$xvxsl \n";
print "Step two: y-$yval+$yval=$slpe x-$yvpxxs \n";
print "Answer: y= $slpe x-$yvpxxs \n";
|