Average-sales problem with counter-controlled repetition : While « Statement « Perl






  1. Perl
  2. Statement
  3. While

Average-sales problem with counter-controlled repetition

    


$total = 0;                       
$weekCounter = 1;                 


while ( $weekCounter <= 5 ) {    

   print "Enter sales for week $weekCounter: ";
   chomp( $sales = <STDIN> );     

   $total += $sales;              
   ++$weekCounter;                
}

$average = $total / 5;           
print "\nSales averaged $average computers per week\n";








Related examples in the same category

1.A program that demonstrates the while statement.
2.A program that loops using a single-line conditional statement.
3.A while loop is often used to read from a file until there is no more data available.
4.Analysis of sales results
5.Conditional operator: The unless Modifier and while loop and __DATA__
6.Count 10 with while loop
7.Loop with label
8.Looping Modifiers: The while Modifier
9.Looping While
10.The while Loop
11.The while command
12.The while, until, and do Statements
13.Use while loop to read console input
14.Use while loop to read console input and replace
15.Using while and for statement to check if you had typed in four letter words
16.Using while loop to calculate the number of lines in a file
17.Using while loop with each
18.Using while statement to check the entered value from keyboard
19.Using while statement to read from keyboard
20.While loop and counter
21.While loop counter
22.While statement and scalar control value
23.while and until loop
24.while data section
25.while statement to read input
26.while/until Loop
27.Using While loop the output the elements in an array