1 / 14

Control Structures

add 1 to counter. $counter = $counter + 1;. $total = $total + $grade;. add grade to total. Control Structures. print “Earned bonus!”. print “You did not earn your bonus.”. sales >= 50. sales >= 50. if selection structure. true. $total = $total + grade;. false.

vanbuskirk
Download Presentation

Control Structures

An Image/Link below is provided (as is) to download presentation Download Policy: Content on the Website is provided to you AS IS for your information and personal use and may not be sold / licensed / shared on other websites without getting consent from its author. Content is provided to you AS IS for your information and personal use only. Download presentation by click this link. While downloading, if for some reason you are not able to download a presentation, the publisher may have deleted the file from their server. During download, if you can't get a presentation, the file might be deleted by the publisher.

E N D

Presentation Transcript


  1. add 1 to counter $counter = $counter + 1; $total = $total + $grade; add grade to total Control Structures

  2. print “Earned bonus!” print “You did not earn your bonus.” sales >= 50 sales >= 50 if selection structure true $total = $total + grade; false unless selection structure false $counter = $counter + 1; true

  3. print “You did not earn your bonus.” print “Earned bonus!” $sales >= 50 false true print “You did not earn your bonus.” print “Earned bonus!” Fig. 3.3 Flowcharting the double-selection if/else control structure.

  4. $product = 2 * $product true $product <= 1000 $product = 2 * $product $product <= 1000 false Fig. 3.4 Flowcharting the while repetition structure.

  5. 1 #!/usr/bin/perl 2 # Fig. 3.5: fig03_05.pl The do/while repetition structure repeatedly prints the value of value of variable $counter while the variable is less than or equal to 10. 3 # Using the do/while repetition structure 4 5 $counter = 1; After the each execution of the body of the loop, the control variable $counter is pre-incremented. 6 7 do { 8 print "$counter "; 9 } while ( ++$counter <= 10 ); 10 11 print "\n"; 1 2 3 4 5 6 7 8 9 10

  6. 1 #!/usr/bin/perl 2 # Fig. 3.6: fig03_06.pl 3 # Using the do/until repetition structure The do/until repetition structure repeatedly prints the value of variable $counter until the variable is equal to 0. 4 5 $counter = 10; 6 After the each execution of the body of the loop, the control variable $counter is pre-decremented. 7 do { 8 print "$counter "; 9 } until ( --$counter == 0 ); 10 11 print "\n"; 10 9 8 7 6 5 4 3 2 1

  7. print “$counter “; true ++counter <= 10 false print "$counter "; --$counter == 0 Fig. 3.7 Flowcharting the do/while repetition structure.

  8. print "$counter "; --$counter == 0 print “$counter “; false --counter == 0 true Fig. 3.7 Flowcharting the do/until repetition structure.

  9. 1 #!/usr/bin/perl 2 # Fig. 3.10: fig03_10.pl 3 # Average-sales problem with counter-controlled repetition 4 Displays a prompt to the user for the next sales amount. 5 # initialization phase The value the user inputs is stored in variable $sales. Function chomp immediately removes the newline character from the input value. 6 $total = 0; # clear total The while structure executes while $weekCounter is less than or equal to 10. 7 $weekCounter = 1; # prepare to loop 8 The program updates $total with the new $sales value entered by the user. 9 # processing phase Assigns the result of the averaging calculation to variable average. Adds 1 to variable $weekCounter so the condition in the while structure will eventually become false. 10 while ( $weekCounter <= 10 ) { # loop 10 times 11 12 # prompt for input and input a sales value 13 print "Enter sales for week $weekCounter: "; 14 chomp( $sales = <STDIN> ); 15 16 $total += $sales; # add sales to total 17 ++$weekCounter; # increment counter 18 } 19 20 $average = $total / 10; # divide to find average 21 print "\nSales averaged $average computers per week\n";

  10. Enter sales for week 1: 56 Enter sales for week 2: 52 Enter sales for week 3: 64 Enter sales for week 4: 72 Enter sales for week 5: 56 Enter sales for week 6: 58 Enter sales for week 7: 62 Enter sales for week 8: 63 Enter sales for week 9: 48 Enter sales for week 10: 52 Sales averaged 58.3 computers per week

  11. 1 #!/usr/bin/perl 2 # Fig. 3.12: fig03_12.pl 3 # Average-sales problem with sentinel-controlled repetition The until structure executes until the user enters the sentinel value. Receive input from user before entering until structure. 4 5 $total = 0; The if/else structure determines whether any values have been entered by the user. The program updates $total with the new $sales value entered by the user. 6 $weekCounter = 0; The next value is entered by the user before the end of the until structure’s body. 7 8 print "Enter sales for week or enter quit: "; If variable $weekCounter is 0, a string is output indicating that no values have been entered. 9 chomp( $sales = <STDIN> ); If values have been entered, the program calculates and outputs the average of all values. 10 11 until ( $sales eq 'quit' ) { 12 $weekCounter++; 13 $total += $sales; 14 print "Enter sales for week or enter quit: "; 15 chomp( $sales = <STDIN> ); 16 } 17 18 if ( $weekCounter != 0 ) { 19 $average = $total / $weekCounter; 20 print "\nSales averaged $average computers per week.\n"; 21 } 22 else { 23 print "\nNo sales figures were entered.\n"; 24 }

  12. Enter sales for week or enter quit: 57 Enter sales for week or enter quit: 86 Enter sales for week or enter quit: 52 Enter sales for week or enter quit: 48 Enter sales for week or enter quit: quit Sales averaged 60.75 computers per week

  13. 1 #!/usr/bin/perl 2 # Fig. 3.14: fig03_14.pl 3 # Analysis of sales results 4 The while structure executes while variable $employeeCounter is less than or equal to 10. 5 # initialize loop variables 6 $metQuota = 0; # employees who met quota 7 $didNotMeetQuota = 0; # employees who did not meet quota The conditional operator increments variable $metQuota if the user has entered yes. Variable $didNotMeetQuota is incremented if the user has entered no. 8 $employeeCounter = 1; # employee counter If variable $metQuota’s value is greater than 8, a string is output to the user indicating that holiday bonuses should be raised. 9 10 # process 10 employees; counter-controlled loop 11 while ( $employeeCounter <= 10 ) { 12 print "Enter quota result, (yes or no): "; 13 chomp( $result = <STDIN> ); 14 15 # conditional operator nested in while 16 $result eq 'yes' ? ++$metQuota : ++$didNotMeetQuota; 17 18 $employeeCounter++; 19 } 20 21 # termination phase 22 print "\nMet quota: $metQuota\n"; 23 print "Failed to meet quota: $didNotMeetQuota\n"; 24 25 if ( $metQuota > 8 ) { 26 print "Raise holiday bonuses!\n"; 27 }

  14. Enter quota result, (yes or no): yes Enter quota result, (yes or no): yes Enter quota result, (yes or no): no Enter quota result, (yes or no): yes Enter quota result, (yes or no): yes Enter quota result, (yes or no): yes Enter quota result, (yes or no): yes Enter quota result, (yes or no): yes Enter quota result, (yes or no): yes Enter quota result, (yes or no): yes Met quota: 9 Failed to meet quota: 1 Raise holiday bonuses! Enter quota result, (yes or no): no Enter quota result, (yes or no): no Enter quota result, (yes or no): no Enter quota result, (yes or no): no Enter quota result, (yes or no): yes Enter quota result, (yes or no): yes Enter quota result, (yes or no): no Enter quota result, (yes or no): no Enter quota result, (yes or no): yes Enter quota result, (yes or no): no Met quota: 3 Failed to meet quota: 7

More Related