Main Module // This program displays the sum of Declare sum as float Declare PositiveNumber as Integer Declare Number as Integer Call input module Call calculations module Call output module End Program Input Module Write " Enter number please:" Input Number Calculations Module Loop while Number = 1 If Number > 1 Then Set Sum = PositiveNumber + Number Get Number End Loop Output Module Write "The sum of all numbers is:" + Number
This post has been edited by GunnerInc: 22 June 2012 - 08:57 PM
Reason for edit:: fixed broken end code tag

New Topic/Question
Reply



MultiQuote




|