I made this pseudocode for a currency conversion program. Two things:
1. I would appreciate any feedback on mistakes.
2. I designed this code to convert the U.S. dollar to foreign currencies BUT it's supposed to be the other way around. It's supposed to convert foreign currencies to U.S. dollars. I cant figure it out how to change without starting over please help!!



Process

1. Get user input
2. Multiply Amount in terms of USD with the exchange rate between USD and the other currency involved.
3. Display Answer.

Input:

Exchange rate of US dollars in terms of Japanese yen (real: 0-10000)
Exchange rate of US dollars in terms of Mexican Pesos (real: 0-10000)
Exchange rate of US dollars in terms of Canadian dollars (real: 0-10000)
Exchange rate of US dollars in terms of French Francs (real: 0-10000)
Exchange rate of US dollars in terms of English pounds (real: 0-10000)

var_currency (string: any finite length)

amount_USD (real: 0-1000000)

exchange_rate (real: 0-10000)

amount_var (real: 0-10000)

Option (real: 0-1000)

Output:

Amount in terms of required currency
Design


Main Module

Declare exchange_rate as real

Declare var_currency as string

Declare amount_USD as real

Declare amount_var as real //this is the amount in terms of the variable currency
//type. In other words it is the final answer required

Declare Option as real

Call Input data module //input data module is being called here which is fully described
//below




End Main Module



Input Data Module

Write: “Welcome to the Currency Converter”
Write: “Choose from the available options”
Write: “1.Japanese Yen”
Write: “2.Mexican Pesos”
Write: “3.Canadian Dollars”
Write: “4.French Francs”
Write: “5.English Pounds”
Write: “6.Quit”

Input Option

If Option = 1 Then
Call Japanese Module
Else
If Option = 2 Then
Call Mexican Module
Else
If Option = 3 Then
Call Canadian Module
Else
If Option = 4 Then
Call French Francs Module
Else
If Option = 5 Then
Call English Pounds Module
Else
If Option = 6 Then
End // the program is closed
Else
If Option6 Then
Write:” Wrong option selected. Try again”
Call Input Data Module
End If




End Input Data Module




Japanese Module
var_currency = Japanese Yen
exchange_rate =(NNN) NNN-NNNN
Write: “Enter amount”
Input amount_USD
amount_var = exchange_rate * amount_USD
Write: “The value of the currency is “amount_var” Japanese Yen”

End Japanese Module

Mexican Module
var_currency = Mexican Pesos
exchange_rate = 9.5085
Write: “Enter amount”
Input amount_USD
amount_var = exchange_rate * amount_USD
Write: “The value of the currency is “amount_var” Mexican Pesos”

End Mexican Module

Canadian Module
var_currency = Canadian Dollars
exchange_rate = 1.4680
Write:” Enter amount”
Input amount_USD
amount_var = exchange_rate * amount_USD
Write: “The value of the currency is “amount_var” Canadian Dollars”

End Canadian Module

French Francs Module
var_currency = French Francs
exchange_rate = 6.2561
Write:” Enter amount”
Input amount_USD
amount_var = exchange_rate * amount_USD
Write: “The value of the currency is “amount_var” French Francs”

End French Francs Module


English Pounds Module
var_currency = English Pounds
exchange_rate = 1.6433
Write:” Enter amount”
Input amount_USD
amount_var = exchange_rate * amount_USD
Write: “The value of the currency is “amount_var” English Pounds”