I complete an exercise about input,calculate and output student GPA and CGPA to file.
Now my problem is the proceeded exercise wants me to record more than 1 student's GPA and calculate the CGPA from file. Need student to login using their ID. no only, check, change and add their GPA according to which semester.
My current read and output to file can't helps me to proceed the certain exercises.
So i need some helps here.
Here's my previous program.
# calculate the GPA for student.
while()
{
print("\n********************************************************\n");
print("* NO. Content *\n");
print("********************************************************\n");
print("* 1 Calculate GPA/CGPA *\n");
print("* 2 View GPA/CGPA *\n");
print("* 3 Quit *\n");
print("********************************************************\n");
print("Enter the number : ");
chomp($n =<STDIN>);
if($n == 1)
{
print("Enter student's ID : ");
chomp($ID =<STDIN>);
print(" \nEnter the total number of semester to calculate : ");
chomp($s =<STDIN>);
for($count=1 ; $count <=$s ; $count++)
{
print ("\n\nPlease key in your semester $count subject information and press 0 to stop");
print ("\n\nPlease key in your subject grade:");
$grade = <STDIN>;
chomp($grade);
while($grade ne 0)
{
print ("\nPlease key in the subject unit:");
$unit = <STDIN>;
chomp($unit);
if (($grade eq "A")||($grade eq "a"))
{$g = 4.00;}
elsif (($grade eq "A-")||($grade eq "a-"))
{$g = 3.67;}
elsif(($grade eq "B+")||($grade eq "b+"))
{$g = 3.33;}
elsif(($grade eq "B")||($grade eq "b"))
{$g = 3.00;}
elsif(($grade eq "B-")||($grade eq "b-"))
{$g = 2.67; }
elsif(($grade eq "C+")||($grade eq "c+"))
{$g = 2.33;}
elsif(($grade eq "C")||($grade eq "c"))
{$g = 2.00;}
elsif (($grade eq "C-")||($grade eq "c-"))
{$g = 1.67;}
elsif (($SG eq "D+")||($grade eq "d+"))
{$g = 1.33;}
elsif (($SG eq "D")||($grade eq "d"))
{$g = 1.00;}
elsif (($SG eq "D-")||($grade eq "d-"))
{$g = 0.67;}
elsif (($SG eq "F")||($grade eq "f"))
{$g = 0.00;}
$gp = $g * $unit;
$t_unit += $unit;
$t_gp += $gp;
print ("\nPlease key in your subject grade:");
$grade = <STDIN>;
chomp($grade);
}
$gpa = $t_gp / $t_unit;
print ("\nYour GPA of semester $count is = $gpa\n");
$pa += $gpa ;
if ($count == 1)
{
$cgpa = $gpa;
$ocgpa = "c:/J/Sem$count.txt";
open (OCGPA, ">$ocgpa") or die "cannot open $out for write: $!";
print OCGPA "\n#ID GPA CGPA\n";
print OCGPA "\n$ID $gpa $cgpa\n";
close OCGPA;
print ("\nYour CCGPA of semester 1 is = $cgpa\n");
}
elsif ( $count != 1)
{
$cgpa = $pa/$count;
$ocgpa = "c:/J/Sem$count.txt";
open (OCGPA, ">$ocgpa") or die "cannot open $out for write: $!";
print OCGPA "\n#ID GPA CGPA\n";
print OCGPA "\n$ID $gpa $cgpa\n";
close OCGPA;
print ("\nYour CGPA of semester $count is = $cgpa\n");
}
$t_gp = 0.00;
$t_unit = 0.00;
} # end for
$pa = 0.00;
} #end if
elsif($n == 2)
{
print "Choose the semester :";
chomp($cho = <STDIN>);
$view = "c:/J/Sem$cho.txt";
open VIEW, $view or die "cannot open $out for write: $!";
while(<VIEW>){
print " $_";
}
}
elsif($n == 3)
{
exit(0);
}
} #end while
If reprograming is necessary plz go ahead.
Thanks in advance.
06-Aug-2007, 21:05
Toyota - 2008 August Promotion by Nihal
Similar Threads
