%The "Currency" Program
var name : string
var answer,answer1: string
var CAD,USD,EUR,AUD,Total,Money: real
put "Hello, please enter your name"
get name:*
put "Hello " ..
put name ..
put ", Choose the Currency your converting from"
put "American [USD]"
put "European [EUR]"
put "Australian [AUS]"
get answer
put "Enter the amount of ", answer
get Money
if answer=USD
Total := Money * 1.1235
put Total
elsif answer=EUR
Total := Money * 1.5693
put Total
elsif answer=AUS
Total := Money * 0.8771
put Total
end if
|