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

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

Result := 12345;

end;

//получитьзапрашиваемуюсумму

function TManager.GetSum(): real;

begin

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

Result := 100;

end;

//проверитьподлинность

function TManager.Authenticate(out TrueKlient: TKlient): boolean;

var

KlientCode: integer;

KlientPass: integer;

begin

Result := false;

KlientCode := Manager.GetCode();//получаемкодкартыклиента

KlientPass := Manager.GetPassword();//получаем пароль, введенный клиентом

TrueKlient.Get(KlientCode);//получаем данные клиента из платежной системы

if TrueKlient.Password = KlientPass then//еслипаролисовпадают

Result := true;

end;

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

Procedure TManager.WithdrawMoney();

var

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

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

Rest1, Rest2 : real; //остаток на счете до и после операции

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