A:

Preview: ... ain Module<br><br>Declare selection as integer<br>Declare currencyType as Integer<br>Declare internationalValue as real<br>Declare USValue as real<br><br>Do While user wants to continue<br> Display Menu<br>Get International Value<br>Convert Currency<br>Display Results<br>End loop<br>Print exit message<br>End Main Module<br><br>Display Menu<br><br> Declare continue as Boolean<br> Set continue = true<br> While continue = true<br>Display "Welcome to the international currency conversion program"<br>Display "Please make a selection"<br>Display "International Currency Types:" <br>Display "1: Canadian Dollars" <br>Display "2: Mexican Pesos" <br>Display "3: English Pounds" <br>Display "4: Japanese Yen" <br>Display "5: French Francs" <br>Display "6: Quit" <br>Display "Enter a selection: ";<br><br>Input currencyType<br><br>If currencyType >= 1 AND currencyType <= 5 then<br> Set continue = false<br>else if currencyType = 6<br> Display “Quitting Currency Conversion”<br> continue = false<br>else<br> Display “"Error 4: Invalid menu selection."<br> continue = true<br>end if<br><br> end While<br><br>End Display Menu<br><br>Get International Value<br><br>Declare value as integer<br>Declare continue as Boolean<br>Set continue = true<br>While continue = true<br>Display "Enter a currency value (positive number):"<br>Input internationalValue<br>if internationalValue > 0 AND internationValue <= 1000000 then<br>continue = false<br> else<br> Display "Error 1: Invalid input--Negative Number"<br> continue = true<br> end if <br> end while<br><br>End Get International Value<br><br>Convert Currency<br><br>Declare rate as real<br>Select Case of currencyType<br> case 1:<br> Set rate = 1.4680<br> case 2:<br> Set rate = 9.5085<br> case 3:<br> Set rate = .6085<br> case 4:<br> Set rate = 104,9; ...

The full tutorial is about 1117 words long plus attachments.

Attachments:
Currency Conversion - Final - Solution.doc (355K)