|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
Опции темы | Поиск в этой теме | Опции просмотра |
#1
|
|||
|
|||
Помогите сделать программу в Delphi
Калькулятор валют должен обеспечивать пересчет в гривневый эквивалент любой валюты.
Кроме того, калькулятор валют должен обеспечивать пересчет выбранной валюты в эквивалент любой другой. Подскажите, как это реализовать на delphi 7... |
#2
|
|||
|
|||
Цитата:
APPLICATION.TERMINATOR |
#3
|
|||
|
|||
Тебе надо где-то зранить курсы.
Выбираем базовую валюту. Пусть это будут твои гривны. Т.е. храним выражение любой валюты в гривнах. Когда у нас идет пересчет, то нам надо сначала перевести из одной валюты в гривны, в потом из гривен в другую валюту (если надо). Код:
function FindBaseXRate(ACurr : String) : Currency; begin // Ищем курс валюты ACurr в гривнах // Зависит от того, как ты их хранишь end; function XRate(AFrom, ATo : String; AValue : Currency) : Currency; begin If AFrom = ATo Then Result := AValue Else If AFrom = 'UAH' Then Result := AValue / FindBaseXRate(ATo) Else If ATo = 'UAH' Then Result := AValue * FindBaseXRate(AFrom) Else Result := XRate('UAH',ATo,XRate(AFrom,'UAH',AValue)); end; |