Калькулятор расчета процента (для ломбарда)

@ikage · Регистрация: 26.06.2012

Студворк — интернет-сервис помощи студентам

на днях понадобилась программа которая рассчитывает процент по отношению к доллару.порылся в инете ,но ничего нужного не нашел.вот решил сам наваять и выложить ,мож кому пригодится.я не профи ,поэтому сильно не пинайте.кому надо легко можете переделать и наворотить.что делает прога:
прога переводит рубли (ну или другую валюту) в доллары рассчитывает процент (какой вы укажете) и полученную сумму переводит опять в рубли.как работает:
1.вводим курс покупки и продажи в соответствующие ячейки
2.вводим сумму(рублей) которую получили в ячейку "сумма"
3.вводим в соотв. ячейку процент который хотим получить с данной суммы
4.нажимаем "выщитать"

в мемо мы увидим
1.сколько будет баксов с введённой суммы
2.сумма процента (в баксах) которую клиент должен переплатить при окончательном расчёте
3.та-же сумма процента только в рублевом эквиваленте

Delphi

procedure TForm1.Button2Click(Sender: TObject);
var
a,b,c,d,usd,proc,gel:double;
begin
 a := strtofloat(edit1.text);
 b:= strtofloat(edit2.text);
 c:= strtofloat(edit3.text);
 d:= strtofloat(edit4.text);
 
usd := c/a;
usd :=RoundTo(usd,-2) ;
 
 
proc:= (d*usd)/100;
proc :=RoundTo(proc,-2) ;
//memo1.Lines.Text :=' '+floattostr(proc)+ ' %USD';
 
gel:=proc*b;
gel :=RoundTo(gel,-2) ;
memo1.Lines.Text :='USD:=  '+floattostr(usd)+ ' '+#13#10+'USD"%":= '+floattostr(proc)+ ' '+#13#10+ 'RUB:=  '+floattostr(gel)+ ' ';
end;
 
procedure TForm1.FormDestroy(Sender: TObject);
var
ini:TiniFile;
begin
Ini:=TiniFile.Create(extractfilepath(paramstr(0))+'Myproc.ini');//îòêðûâàåì ini ôàéë
Ini.WriteString('Valuta','USDk',edit1.Text);
  Ini.WriteString('Valuta','RUBp',edit2.Text);
  Ini.Free;
end;
 
procedure TForm1.FormCreate(Sender: TObject);
var
ini:TiniFile;
begin
Ini:=TiniFile.Create(extractfilepath(paramstr(0))+'Myproc.ini');//îòêðûâàåì ini ôàéë
edit1.Text:=Ini.ReadString('Valuta','USDk','0');
 edit2.Text:=Ini.ReadString('Valuta','RUBp','0');
   Ini.Free;
 
 end;

@ikage · 15.04.2013, 22:31 **[ТС]**

да и ещё.создаём текстовый документ и обзываем его Myproc.ini .там хранятся курсы (ну для тех кто не знал)

DenNik · 16.04.2013, 10:31

выступлю в качестве бета-тестера-копирайтера

пишется раСЧета

@ikage · 17.04.2013, 18:09 **[ТС]**

согласен ,с орфографией не очень (пофиг).

@ikage 5 / 5 / 0 Регистрация: 26.06.2012 Сообщений: 78
	15.04.2013, 22:31 [ТС]	2
	да и ещё.создаём текстовый документ и обзываем его Myproc.ini .там хранятся курсы (ну для тех кто не знал) 0

DenNik Житель Земли 3002 / 3002 / 391 Регистрация: 26.07.2011 Сообщений: 11,463 Записей в блоге: 1
	16.04.2013, 10:31	3
	выступлю в качестве бета-тестера-копирайтера пишется раСЧета 0

@ikage 5 / 5 / 0 Регистрация: 26.06.2012 Сообщений: 78
	17.04.2013, 18:09 [ТС]	4
	согласен ,с орфографией не очень (пофиг). 0

Опции темы