Final Project - Main Module Declare Currency Type as...

Info iconThis preview shows pages 1–4. Sign up to view the full content.

View Full Document Right Arrow Icon
Main Module Declare Currency Type as integer Declare selection as integer Declare Foreign Currency Value as real Declare US Dollar as real Declare result as integer Declare Boolean Do while user wants to continue Display menu Call get Foreign Currency value Call Convert Currency Display results End while Display exit message End Main Module Display Menu Declare continue as Boolean Set continue = True While continue = True Display “Foreign Currency Converter Program” Display “Please select from the following options” Display “1 Canadian Dollars” Display “2 French Francs”
Background image of page 1

Info iconThis preview has intentionally blurred sections. Sign up to view the full version.

View Full DocumentRight Arrow Icon
Display “3 Japanese Yen” Display “4 English Pounds” Display “5 Mexican Pesos” Display “6 Quit” Repeat Input Foreign Currency If Foreign Currency < 1 Display “Invalid Foreign Currency Selection. Please make a new selection” If Foreign Currency > 6 Display “Invalid Foreign Currency Selection. Please make a new selection” Repeat Input Foreign Currency If Foreign Currency < 1 or Foreign Currency > 6 Display “Error: Invalid Foreign Currency Selection. Please make a new selection” Valid Entry = False Until Valid Entry = True If Foreign Currency >= 1 or Foreign Currency <=5 Valid Entry = True Elseif Foreign Currency = 6 Display “Quit Currency Conversion” Continue = False Else Display “Error: Invalid Foreign Currency Selection. Please make a new selection” End If End Display Menu
Background image of page 2
Get Foreign Currency Values Declare Boolean as a valid value Display “Enter a Currency Amount (0-1,000,000)” Repeat Input Foreign Currency Amount If Foreign Currency < 0 or Foreign Currency Value > 1,000,000 Then Display “Invalid Entry. Please Reduce the Amount.” Valid Value = False Else Valid Value = True Until Valid Value = True If Foreign Currency Value = 0 Then Continue = False Else Continue = True End If End Get Foreign Currency Value Convert Foreign Currency Declare rate as real Select Case of Currency Case 1: Set Rate = 1.0324 Case 2: Set Rate = 0.7429
Background image of page 3

Info iconThis preview has intentionally blurred sections. Sign up to view the full version.

View Full DocumentRight Arrow Icon
Image of page 4
This is the end of the preview. Sign up to access the rest of the document.

This note was uploaded on 10/04/2010 for the course IT 210 taught by Professor Josephpillera during the Summer '10 term at University of Phoenix.

Page1 / 19

Final Project - Main Module Declare Currency Type as...

This preview shows document pages 1 - 4. Sign up to view the full document.

View Full Document Right Arrow Icon
Ask a homework question - tutors are online