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

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

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

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

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

Ответ
 
Опции темы Поиск в этой теме
Старый 15.04.2014, 10:52   #1
Viktorionchik
 
Регистрация: 29.03.2014
Сообщений: 5
По умолчанию Приложение пересчета денежной суммы

3. Создайте приложение пересчета денежной суммы в рублях в другую валюту. Для этого создайте:
• Таблицу с добавлением в нее и удалением из нее строк
• Текстовые поля для ввода суммы в рублях и курса рубля к доллару.
• Кнопку “Расчет”, при нажатии на которую, происходит пересчет денежной суммы.
• Меню с информацией о разработчике и возможностью сохранения данных таблицы и рассчитываемых данных в текстовый файл.

//имеются небольшие наработки, но необходимо довести до ума//Выручайте!
Вложения
Тип файла: rar конвертер.rar (210.3 Кб, 34 просмотров)
Viktorionchik вне форума Ответить с цитированием
Старый 15.04.2014, 17:02   #2
AnryKZKZ
Пользователь
 
Регистрация: 15.04.2014
Сообщений: 62
По умолчанию

Удалось решить задачку??
AnryKZKZ вне форума Ответить с цитированием
Старый 17.04.2014, 05:48   #3
Viktorionchik
 
Регистрация: 29.03.2014
Сообщений: 5
По умолчанию

нет, не знаю как сделать, чтоб она рассчитывала денежную сумму
Viktorionchik вне форума Ответить с цитированием
Старый 17.04.2014, 14:52   #4
-=Virus=-
Форумчанин
 
Аватар для -=Virus=-
 
Регистрация: 03.07.2009
Сообщений: 246
По умолчанию

А поточнее можно:
Цитата:
чтоб она рассчитывала денежную сумму
Общию сумму? Или сколько получиться валюты?


Код:
procedure TForm1.Button1Click(Sender: TObject);
var
  i: integer;
  s, b :Variant;
begin

   for i:=1 to StringGrid1.RowCount-1 do
   begin
     b:=StringGrid1.Cells[1,i];
     s:=StringGrid1.Cells[2,i];

     showmessage(FloatToStr(s / b));
   end;
end;

Последний раз редактировалось -=Virus=-; 17.04.2014 в 14:56.
-=Virus=- вне форума Ответить с цитированием
Ответ


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

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

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


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Pascal.Дано массивы,Результаты денежной лотереи Cortez35 Помощь студентам 2 26.12.2012 12:31
Задача - для пересчета веса из фунтов в килограммы в разных странах мира (Delphi) Mel2118 Помощь студентам 1 30.01.2012 22:35
Баг - невозможность пересчета листа Saladin Microsoft Office Excel 0 14.01.2012 11:52
написать программу пересчета величин временного интервала rom6520 Паскаль, Turbo Pascal, PascalABC.NET 3 19.01.2011 18:19
ВКЛ и ВЫКЛ пересчета формул sasha_prof Microsoft Office Excel 2 27.04.2010 11:50