Jump to content

Help Translating perl to php


Recommended Posts

I was tasked out with converting perl subroutines to php, I'm not even a novice I have no clue how to even code this properly. I was given a four hour deadline please help.

 

print "Enter any amount of test scores to find the average, median and standard deviation\nEnter your numbers below, Press Enter after each set, your last set of digits\nPress CTRL-D to receive your information or CTRL-C to cancel.\n";

 

@gnom = <STDIN>;

 

sub avg {

 

$tot = 0;

foreach $num (@gnom) {

$tot += $num;

$mean =  $tot/(scalar @gnom);

}

print "This the average of your grade are: $mean\n";

 

}

avg;

 

sub med {

@gnom = sort(@gnom);

if(@gnom % 2 == 0 or 1){

$sum = @gnom[(@gnom/2)-1] + @gnom[(@gnom/2)];

$med = $sum/2;

print "The median grade is: $med\n";

}

    

}

med;

sub stdv {

$tot = 0;

$tot1 = $tot;

foreach $num (@gnom) {

$tot += $num;

$m =  $tot/(scalar @gnom);

$tot1 +=($mean-$num)**2;

}

$n2 = $tot1 / (scalar @gnom);

$stderd = sqrt($n2);

print "The standard deviation of your grade is: $stderd\n"

}

stdv;

Link to comment
Share on other sites

This thread is more than a year old. Please don't revive it unless you have something important to add.

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

Guest
Reply to this topic...

×   Pasted as rich text.   Restore formatting

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

×
×
  • Create New...

Important Information

We have placed cookies on your device to help make this website better. You can adjust your cookie settings, otherwise we'll assume you're okay to continue.