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

public

function GetCode():integer; //получитькодкарты

function GetPassword():integer; //получитьпарольклиента

function GetSum(): real; //получить запрашиваемую сумму

procedure WithdrawMoney(); //снятьденьги

procedure GetBalance(); //получитьбаланссчета

end;

//снятьденьги

function TAccount.WithdrawMoney(Summ: real): real;

begin

//если денег на счете не меньше, чем требует клиент

ifSelf.Sum >= Summthen

//то уменьшить сумму счета

Self.Sum := Self.Sum - Summ;

//вернуть остаток

Result := Self.Sum;

end;

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

function TAccount.GetBalance(): real;

begin

//вернутьсуммусчета

Result := Self.Sum;

end;

//получитькодклиента

function TKlient.GetCode():integer;

begin

//вернуть код клиента

Result := Self.Code;

end;