##

#!/usr/bin/perl
use CGI ':standard';

$g1=param('g1');
$g2=param('g2');
$g3=param('g3');
$g4=param('g4');
$g5=param('g5');
$g6=param('g6');
$letter;
$average;
$div;

$total=($g1 + $g2 + $g3 + $g4 + $g5 + $g6);


sub div{

if($g1 ne ''){$div++;}
if($g2 ne ''){$div++;}
if($g3 ne ''){$div++;}
if($g4 ne ''){$div++;}
if($g5 ne ''){$div++;}
if($g6 ne ''){$div++;}





	   }


$average=($g1 + $g2 + $g3 + $g4 + $g5 + $g6) / $div;

sub letter{

if ($average > 100) {print "illegal average, check your grades";}

if($average > 92.5){$letter="A";
}
elsif($average > 89.5){$letter="A-";
}
elsif($average > 87.5){$letter="B+";
}
elsif($average > 82.5){$letter="B";
}
elsif($average > 79.5){$letter="B-";
}
elsif($average > 76.5){$letter="C+";
}
elsif($average > 72.5){$letter="C";
}
elsif($average > 69.5){$letter="C-";
}
elsif($average > 66.5){$letter="D+";
}
elsif($average > 62.5){$letter="D";
}
elsif($average < 62.4){$letter="F";
}
print "		the letter grade is $letter 


";





	  }
Grade Calculator

How to's

Attitude
