Требуется доработка программы

[zeppelin58]

Помогите подделать программку:

В парке установлен автомат, продающий кофе. Можно выбрать тип кофе: с сахаром, ьез сахара, капучино, глясе (цены на кофе установить самостоятельно). Можно выбрать «налить сл стаканом» или «налить без стакана» (стоимость стакана 70 коп.). В автомат можно опускать монеты по 5, 10 рублей и банкноты по 10, 50 и 100 рублей. Описать работу такого автомата, т.е. сообщать пользователю цену выбранного напитка, принимать деньги и, при необходимости, отсчитывать сдачу.

вот ее код: (с builder 6)

//---------------------------------------------------------------------------
#include <vcl.h>
#pragma hdrstop
#include "Zach.h"
#include <Math.hpp>
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;

float renting, stakan=0.70;
int n=0;

void __fastcall TForm1::step(float x)
{
if  (CheckBox1->Checked)
     {
      stakan = RoundTo(stakan, -2) ;
      renting = RoundTo(n-(x+stakan),-2);
     };

if  (CheckBox2->Checked)
        {
         renting=RoundTo(n-x,-2);
        };
}
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
        : TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button1Click(TObject *Sender)
{
float cost=9.30;
Label2->Caption=RoundTo(cost,-2);
step(cost);
if (renting<0.1)
	{
	 MessageDlg("денег дай!", mtWarning,TMsgDlgButtons()<<mbOK,0);
	 return;
	}
Label1->Caption=RoundTo(renting,-2);
n=0;
Label3->Caption=n;
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button2Click(TObject *Sender)
{
float cost=4.30;
Label2->Caption=RoundTo(cost,-2);
step(cost);
if (renting<0)
	{
	 MessageDlg("денег дай!", mtWarning,TMsgDlgButtons()<<mbOK,0);
	 return;
	}
Label1->Caption=RoundTo(renting,-2);
n=0;
Label3->Caption=n;
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button3Click(TObject *Sender)
{
float cost=14.30;
Label2->Caption=RoundTo(cost,-2);
step(cost);
if (renting<0)
	{
	 MessageDlg("денег дай!", mtWarning,TMsgDlgButtons()<<mbOK,0);
	 return;
	}
Label1->Caption=RoundTo(renting,-2);
n=0;
Label3->Caption=n;
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button4Click(TObject *Sender)
{
float cost=19.30;
Label2->Caption=RoundTo(cost,-2);
step(cost);
if (renting<0)
	{
	MessageDlg("денег дай!", mtWarning,TMsgDlgButtons()<<mbOK,0);
	return;
	}
Label1->Caption=RoundTo(renting,-2);
n=0;
Label3->Caption=n;
}
//---------------------------------------------------------------------------
void __fastcall TForm1::CheckBox2Click(TObject *Sender)
{
 CheckBox1->Checked=false;
}
//---------------------------------------------------------------------------
void __fastcall TForm1::CheckBox1Click(TObject *Sender)
{
 CheckBox2->Checked=false;
}
//---------------------------------------------------------------------------

void __fastcall TForm1::BitBtn1Click(TObject *Sender)
{
    switch (RadioGroup2->ItemIndex)
                {
                 case 0: n+=5; break;
                 case 1: n+=10; break;
                 case 2: n+=50; break;
                 case 3: n+=100; break;
                }
Label3->Caption=n;
}
//---------------------------------------------------------------------------

нужна доработка приема денег и сдачи.

в прикрепленном - сам проект

[zeppelin58]

тему вверх

[zeppelin58]

закройте тему пжл