Howdy, Stranger!

It looks like you're new here. If you want to get involved, click one of these buttons!

Categories

Welcome to the new platform of Programmer's Heaven! We apologize for the inconvenience caused, if you visited us from a broken link of the previous version. The main reason to move to a new platform is to provide more effective and collaborative experience to you all. Please feel free to experience the new platform and use its exciting features. Contact us for any issue that you need to get clarified. We are more than happy to help you.

URGENT help required - Pascal ATM Project

ClaireBClaireB Posts: 1Member
[b][red]This message was edited by ClaireB at 2005-5-30 13:58:50[/red][/b][hr]
[b][red]This message was edited by ClaireB at 2005-5-30 13:54:49[/red][/b][hr]
Hi,

Helping me with this problem will literally save my life.

For a part of my coursework this year i have a project which has to be coded in pascal. Ive left it too late to learn pascal from the ground up and so if anyone could provide some sort of template which i can modify it would be greatly appreciated. This is my last week of college and so i have 3, maybe 4 days to complete this task.

Here is the project brief:

A college campus is to introduce its own banking system into the college. so that students can easily access cash, made available from autotellers (ATM's) located at various points throughout the college.

The ATM Banking system must perform the basic operations that any other regular ATM does:

1. Present a Menu Based System
2. Provide an admin facility to let users set up thier account.
3. Give the user the option of depositing the cash.
4. Give the user the option of withdrawing cash (in multiples of 10)
5. Give the user the option of viewing thier account detials (balance etc)
6. Give the user the option of printing a statement of thier account details.

I know this is a long shot but can someone please advise where i should start or even create a template for me to work from. Even an msn address where i can contact you for guidance.

Thank you in advance

Claire




Comments

  • zibadianzibadian Posts: 6,349Member
    : [b][red]This message was edited by ClaireB at 2005-5-30 13:58:50[/red][/b][hr]
    : [b][red]This message was edited by ClaireB at 2005-5-30 13:54:49[/red][/b][hr]
    : Hi,
    :
    : Helping me with this problem will literally save my life.
    :
    : For a part of my coursework this year i have a project which has to be coded in pascal. Ive left it too late to learn pascal from the ground up and so if anyone could provide some sort of template which i can modify it would be greatly appreciated. This is my last week of college and so i have 3, maybe 4 days to complete this task.
    :
    : Here is the project brief:
    :
    : A college campus is to introduce its own banking system into the college. so that students can easily access cash, made available from autotellers (ATM's) located at various points throughout the college.
    :
    : The ATM Banking system must perform the basic operations that any other regular ATM does:
    :
    : 1. Present a Menu Based System
    : 2. Provide an admin facility to let users set up thier account.
    : 3. Give the user the option of depositing the cash.
    : 4. Give the user the option of withdrawing cash (in multiples of 10)
    : 5. Give the user the option of viewing thier account detials (balance etc)
    : 6. Give the user the option of printing a statement of thier account details.
    :
    : I know this is a long shot but can someone please advise where i should start or even create a template for me to work from. Even an msn address where i can contact you for guidance.
    :
    : Thank you in advance
    :
    : Claire
    :
    :
    :
    :
    :
    Here is a good start:
    [code]
    program ATM_Machine;

    uses
    Crt, Objects;

    type
    PTransfer = ^TTransfer;
    TTransfer = object(TObject)
    private
    public
    Transferred: Currency;
    Date: TDateTime;
    Next: PTransfer;
    constructor CreateDeposit(AmountDeposited: Currency);
    constructor CreateWithdrawal(AmountWithdrawn: Currency);
    procedure LoadFromFile(var f: text);
    procedure SaveToFile(var f: text);
    procedure ScreenReport;
    procedure PaperReport;
    end;

    PAccount = ^TAccount;
    TAccount = object(TObject)
    private
    public
    User: string;
    Password: string;
    Transfers: PTransfer;
    Next: PAccount;
    function CurrentBalance: Currency;
    constructor Create(StartingAmount: Currency);
    procedure LoadFromFile(var f: text);
    procedure SaveToFile(var f: text);
    procedure ScreenReport;
    procedure PaperReport;
    end;

    var
    Accounts: PAccount;

    {
    procedure/Method implementation here
    }
    var
    i: integer;
    begin
    PerformLoad;
    repeat
    writeln('1: Deposit');
    writeln('2: Withdraw');
    writeln('3: Show Report');
    writeln('4: Print Report');
    writeln('5: Exit');
    write('Make a selection');
    readln(i);
    case i of
    1: PerformDeposit;
    2: PerformWithdraw;
    3: PerformShowReport;
    4: PerformPrintReport;
    end;
    until i = 5;
    PerformSave;
    end.
    [/code]
Sign In or Register to comment.