Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > Общие вопросы Delphi
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 21.08.2020, 19:44   #1
beegl
instagram
Участник клуба
 
Аватар для beegl
 
Регистрация: 24.05.2008
Сообщений: 1,453
Лампочка функция тройской унции Delphi (Тройская унция золота)

Привет, помогите создать функцию, т.е. функция тройской унция Delphi (Тройская унция золота)



Тройская унция составляет ровно 31,1034768 граммов, или 480 гран.

«Цены за унцию» золота, серебра и платины, которые мы слышим на товарных рынках и видим на графиках, всегда относятся к тройским унциям.

Тройские унции - это единицы измерения драгоценных металлов, которые используются во всем мире. Сюда входят слитки веса; цена на товарном рынке за унцию золота, серебра, платины (а также других редких металлов Platinum Group Metals - родия, рутения, осмия, палладия и иридия); «спотовая цена» драгоценного металла; и графики, которые отслеживают изменение цен на драгоценные металлы с течением времени.



P.S. стоит помнить и хранить - как королевский символ стандартов чистоты и качества, так и как часть нашей древней наследия: Однако следует учитывать, что в Великобритании использование тройской унции ограничивается драгоценными металлами в соответствии с законом о веса и меры 1985: "Никто не должен использовать для торговли унцийну тройку, за исключением целей ( ENG источник ).



P.P.S. эта (Тройская Унция - создана примерно во времена Карла Великого (8 век)) ... как в фильме "Олигарх", да?))))
Олигарх - Как работает финансовая пирамида
https://www.youtube.com/watch?v=cX64qiJQjiA

Олигарх (фильм) - Логика (лучшие моменты)
https://www.youtube.com/watch?v=FF5xoGTdNJ4

вот, что у меня получилось:

Код:
procedure TForm1.RxGIFAnimator6Click(Sender: TObject);
var
  InputString, ResultFx, ResultEx: string;
  UnciGold: Variant; {Currency, Single , Double};
begin
UnciGold := 31.1034;
InputString := InputBox('Тройская унция золота', 'Введите количество унций', '10');
ResultFx := 1679 * StrToInt(InputString)  / UnciGold;
//ResultEx :=
ShowMessage('  ху**  ' +  ResultFx);
end;
end.
- где // 1679 - цена за один грамм золота

Что-то оно не правильно считает, поправите, в чём ошибка?

такой результат


А должно быть = 52235 за 10 унций, а результат программы: 539, 8123 за 10 унций.

Последний раз редактировалось beegl; 21.08.2020 в 22:21. Причина: add text and add IMG
beegl вне форума Ответить с цитированием
Старый 22.08.2020, 03:15   #2
Black Fregat
Программист
Участник клуба
 
Аватар для Black Fregat
 
Регистрация: 23.06.2009
Сообщений: 1,772
По умолчанию

Цитата:
Сообщение от beegl Посмотреть сообщение
где // 1679 - цена за один грамм золота
Откуда вдруг это число? При Ваших данных цена за грамм всего 171.15

Если Вы вводите унции, то их нужно умножать на 31.1034, а не делить
И округлять 31,1034768 надо бы вверх, до 31.1035

PS. Моя любимая тема, одно время везде её ставил
Black Fregat вне форума Ответить с цитированием
Старый 22.08.2020, 07:52   #3
beegl
instagram
Участник клуба
 
Аватар для beegl
 
Регистрация: 24.05.2008
Сообщений: 1,453
По умолчанию

Цитата:
Сообщение от Black Fregat Посмотреть сообщение
Если Вы вводите унции, то их нужно умножать на 31.1034, а не делить
И округлять 31,1034768 надо бы вверх, до 31.1035
О, да, спасибо за подсказку.

Теперь так верно работает?

Код:
procedure TForm1.RxGIFAnimator6Click(Sender: TObject);
var
  InputString, ResultFx: String;
  UnciGold: Extended {Currency, Single , Double, Variant};
begin
UnciGold := 31.1034;
InputString := InputBox('Тройская унция золота', 'Введите количество унций', '10');
ResultFx := floattostr((1679 * UnciGold) * StrToInt(InputString) / UnciGold);
ShowMessage('так дорого !!!' + #13+ '       ' +  ResultFx + ' грн');
end;

Последний раз редактировалось beegl; 22.08.2020 в 07:54. Причина: add CODE
beegl вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Зубы дороже золота MooNDeaR Свободное общение 33 07.04.2014 18:20
Разработать проект исчисления стоимости золота, которым покрывают шарик радиусом р (Delphi 7) slavik444 Помощь студентам 7 23.09.2012 16:35
Составить Delphi-программу для заполнения таблицы соотношения между такими мерами веса как унция, грамм, карат. Lilit)) Помощь студентам 2 21.02.2012 22:29
Искусственное синтезирование золота и рентгения Alar Свободное общение 4 23.02.2009 19:04