Болдин / Банкомат Клешнин / cards

// Класс TCard - работа с пластиковой карточкой
//
unit cards;

interface

type
TCard = class
procedure init;
function getPIN : string;
function getMoney : integer;
function withdraw( howmuch : integer ) : boolean;
constructor Create;
private
pin : string; // персональный код
money : integer; // остаток на счете
end;

implementation


// установить PIN и остаток на счете случайными
procedure TCard.init;
var i : integer;
begin
pin := '';
for i := 1 to 4 do begin
pin := pin + char(ord( '0' )+random( 10 ));
end;
money := 100 + random( 5000 );
end;

// получить остаток на счете
function TCard.getMoney : integer;
begin
getMoney := money;
end;

// получить персональный код
function TCard.getPIN : string;
begin
getPIN := pin;
end;

// снять деньги
function TCard.withdraw( howmuch : integer ) : boolean;
begin
if howmuch > money then
withdraw := false
else begin
money := money - howmuch;
withdraw := true;
end;
end;

// конструктор
constructor TCard.Create;
begin
init;
end;

end.