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

function TKlient.GetPassword(): real;

begin

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

Result := Self.Password;

end;

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

function TKlient.GetAccount(): TAccount;

begin

//вернуть счет клиента

Result := Self.Acct;

end;

//получить информацию о клиенте

procedureTKlient.Get(Code: integer);

begin

//Здесь должен выполняться запрос к платежной системе

//примерно такие данные должны возвращаться:

Self.Code := 12345; //код карты клиента

Self.Password := 54321; //пароль

Self.Acct.Code := 12345; //код счета

Self.Acct.Sum := 111.50; //сумма денег на счете

end;

//получить код карты

function TManager.GetCode():integer;

begin

//Здесь информация должна считываться с банковской карты

Result := 12345;

end;

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

function TManager.GetPassword():integer;