18.7: Loop Examples
selected template will load here
This action is not available.
Function Main Call WhileLoop Call DoLoop Call ForLoop End Function WhileLoop Declare Real fahrenheit Declare Real celsius Assign fahrenheit = 0 Call DisplayHeading() While fahrenheit <= 100 Assign celsius = CalculateCelsius(fahrenheit) Call DisplayResult(fahrenheit, celsius) Assign fahrenheit = fahrenheit + 10 End End Function DoLoop Declare Real fahrenheit Declare Real celsius Call DisplayHeading() Assign fahrenheit = 0 Loop Assign celsius = CalculateCelsius(fahrenheit) Call DisplayResult(fahrenheit, celsius) Assign fahrenheit = fahrenheit + 10 Do fahrenheit <= 100 End Function ForLoop Declare Real fahrenheit Declare Real celsius Call DisplayHeading() For fahrenheit = 0 to 100 step 10 Assign celsius = CalculateCelsius(fahrenheit) Call DisplayResult(fahrenheit, celsius) End End Function DisplayHeading Output "F° C°" End Function CalculateCelsius (Real fahrenheit) Declare Real celsius Assign celsius = (fahrenheit - 32) * 5 / 9 Return Real celsius Function DisplayResult (Real fahrenheit, Real celsius) Output fahrenheit & " = " & celsius End
F° C° 0 -17.7777777777778 10 -12.2222222222222 20 -6.66666666666667 30 -1.11111111111111 40 4.44444444444444 50 10 60 15.5555555555556 70 21.1111111111111 80 26.6666666666667 90 32.2222222222222 100 37.7777777777778 F° C° 0 -17.7777777777778 10 -12.2222222222222 20 -6.66666666666667 30 -1.11111111111111 40 4.44444444444444 50 10 60 15.5555555555556 70 21.1111111111111 80 26.6666666666667 90 32.2222222222222 100 37.7777777777778 F° C° 0 -17.7777777777778 10 -12.2222222222222 20 -6.66666666666667 30 -1.11111111111111 40 4.44444444444444 50 10 60 15.5555555555556 70 21.1111111111111 80 26.6666666666667 90 32.2222222222222 100 37.7777777777778