Bankacılık Sistemi

İki tür hesaba sahip bir banka oluştur. Her işlem bir sonuç sözlüğü {"ok": bool, "message": String} döndürür; sağlanan kod bunu OK: MESSAGE veya Failed: MESSAGE olarak yazdırır. Tüm tutarlar float türündedir ve bir mesajdaki her tutar, $ işaretinden sonra iki ondalık basamakla gösterilir.

transaction.gd içindeki Transaction: kurucu kind ("deposit", "withdrawal" veya "interest") ve amount parametrelerini alır. _to_string(), türü ilk harfi büyük olacak şekilde ve ardından tutarı döndürür: Deposit - $200.00. Bir işlem, hesabını saklamaz.

account.gd içindeki Account, bir @abstract sınıfıdır:

• Kurucu account_number, owner_name ve initial_balance parametrelerini alır. Para, özel _balance içinde tutulur; balance, alıcısı _balance döndüren salt okunur bir özelliktir. _history, bir Array[Transaction] dizisidir ve get_history() bu diziyi döndürür.
• İki soyut yöntem: account_type() -> String ve para çekme işleminin neden reddedildiğini, ya da "" değerini döndüren withdrawal_error(amount: float) -> String.
• deposit(amount): 0 veya daha düşük bir tutar, Deposit amount must be positive mesajıyla başarısız olur. Aksi takdirde parayı ekler, bir deposit işlemi kaydeder ve Deposited $A. New balance: $B döndürür.
• withdraw(amount): 0 veya daha düşük bir tutar, Withdrawal amount must be positive mesajıyla başarısız olur; boş olmayan bir withdrawal_error() değeri de bu metinle başarısız olur. Aksi takdirde parayı çeker, bir withdrawal işlemi kaydeder ve bakiye artık 0 değerinin altındaysa sonuna (Overdraft) ekleyerek Withdrew $A. New balance: $B döndürür.
• _to_string(), TYPE NUMBER (OWNER): $BALANCE döndürür.

savings_account.gd içindeki SavingsAccount, Account sınıfını genişletir ve INTEREST_RATE = 0.02 ile MIN_BALANCE = 100.0 sabitlerine sahiptir. Türü Savings değeridir. Bakiyeyi MIN_BALANCE değerinin altına düşürecek bir para çekme işlemi Cannot withdraw below minimum balance of $100.00 mesajıyla reddedilir. apply_interest(), balance * INTEREST_RATE değerini ekler, bir interest işlemi kaydeder ve Applied interest: $I. New balance: $B döndürür.

checking_account.gd içindeki CheckingAccount, Account sınıfını genişletir ve OVERDRAFT_LIMIT = 200.0 sabitine sahiptir. Türü Checking değeridir. Bakiye -200.00 değerine kadar düşebilir; daha da düşmesine neden olacak bir para çekme işlemi Cannot exceed overdraft limit of $200.00 mesajıyla reddedilir.

bank.gd içindeki Bank, hesapları hesap numarasına göre anahtarlanan özel bir sözlükte tutar:

• Kurucu bank_name parametresini alır.
• create_account(kind, account_number, owner_name, initial_balance) bir fabrika yöntemidir: kind, harf büyüklüğü fark etmeksizin savings veya checking değeridir. Account number already exists veya Invalid account type mesajıyla başarısız olur; aksi takdirde Savings account created successfully (veya Checking) döndürür.
• get_account(account_number) -> Account hesabı veya null değerini döndürür.
• transfer(from_number, to_number, amount): One or both accounts not found mesajıyla başarısız olur; ilk hesaptan para çeker ve bu işlem başarısız olursa Transfer failed: metnini, para çekme işleminin mesajıyla birleştirerek döndürür. Aksi takdirde ikinci hesaba para yatırır ve Transferred $A from FROM to TO döndürür.
• total_holdings() -> float tüm bakiyelerin toplamını döndürür.

Sağlanan kod, banka adını ve ardından komutları okur. Bu girdi için:

First Bank
open savings|S1|Alice|1000
open checking|C1|Bob|50
withdraw S1|950
transfer S1|C1|300
withdraw C1|400
history C1
total

çıktı şöyledir:

OK: Savings account created successfully
OK: Checking account created successfully
Failed: Cannot withdraw below minimum balance of $100.00
OK: Transferred $300.00 from S1 to C1
OK: Withdrew $400.00. New balance: $-50.00 (Overdraft)
History of C1:
1. Deposit - $300.00
2. Withdrawal - $400.00
Total held by First Bank: $650.00

Kodunu transaction.gd, account.gd, savings_account.gd, checking_account.gd ve bank.gd dosyalarına yaz. main.gd, sağlanan girdi/çıktı kodunu içerir ve düzenlenemez.