|
Here is what I have so far, I have a loop missing though i do not know what to put there as of yet. Any help would be greatful!Main Module
Declare Currency Type as Integer
Declare Foreign Currency as Real
Declare US Dollar as real
Do while User continues
Call Display Menu Module
Call Get Foreign Currency Value Module
Call Convert Currency Module
Call Display Results Module
End Loop
End Main Module
Display Menu Module
Loop goes here Not sure about it though??
Display "Currency Converter"
Display "Select a Currency"
Display "1 Canadian Dollars"
Display "2 Mexican Pesos"
Display "3 English Pounds"
Display "4 Japanese Yen"
Display "5 French Francs"
Display "6 Done"
Input Foreign Currency Type
if Foreign currency type ≤ 5 continue to Calculate Rate
Else
display "Invalid Data Type Please Select again"
End if
End Display Menu Module
Get Foreign Currency Value Module
Display " Enter a Currency value (0-100,000)"
Input Foreign Currency value
if Foreign Currency Value <0 or Foreign Currency Value >100,000
Else Display "Invalid Entry, Please try again"
End Get Foreign Currency Value Module
Convert Currency Module
Select Foreign Currency Type
Case 1: Canadian
Set Rate= 1.4680
Case 2: Mexican
Set Rate= 9.5085
Case 3: English
Set Rate=1.6433
Case 4: Japanese
Set Rate = 104.9200
Case 5: French
Set Rate = 6.2561
US Dollar Value=Foreign Currency Value*Rate
End Convert Currency
Display Results
Declare Currency as String
Case 1: Canadian
Currency="Dollars"
Case 2: Mexican
Currency="Pesos"
Case 3: English
Currency="Pounds"
Case 4: Japanese
Currency="Yen"
Case 5: French
Currency="Francs"
Display" The Value of Foreign Currency Value" is "US Dollar Value" "Dollars"
End Display Results
|
14 May, 2008 - 10:17 AM
| 