Контрольная работа: Проектирование программного обеспечения банкомата

TrueKlient := TKlient.Create; //конструктор класса клиент

if Manager.Authenticate(TrueKlient) then //есликлиентаутентифицирован

begin

Summ := Manager.GetSum(); //получаем сумму, запрашиваемую клиентом

if Summ <> 0 then //если введена не 0-вая сумма

begin

Rest1 := TrueKlient.Acct.GetBalance; //получим остаток до снятия денег

Rest2 := TrueKlient.Acct.WithdrawMoney(Summ); //получим остаток после снятия денег

if Rest2 <> Rest1 then exit //если деньги были сняты - выходим из процедуры

else St := 'Операция не может быть выполнена';

end

else St := 'Введитесумму';

Form1.PutMessage(St); //выдатьсообщение

end;

end;

//получитьбаланссчета

Procedure TManager.GetBalance();

var

TrueKlient: TKlient; //клиент

Summ : real; //запрашиваемаяклиентомсумма

St : string; //текстсообщения

begin

TrueKlient := TKlient.Create; //конструкторклассаклиент

if Manager.Authenticate(TrueKlient) then //есликлиентаутентифицирован

begin

Summ := TrueKlient.Acct.GetBalance; //получимостатокнасчете

St := 'Остаток средств на вашем счете: ' + FloatToStr(Summ); //переведем число в строку

Form1.PutMessage(St); //выведемнаэкран

end;