Menu
CoddyTech
Bắt đầu học

Sổ cái ngân hàng

Thuộc phần Lập trình hướng đối tượng trong hành trình R của Coddy. Bài học 57 trên 57.

challenge icon

Thử thách

Khó

Tạo một ngân hàng nhỏ bằng các lớp tham chiếu trong bốn tệp. Tất cả định nghĩa đều được bọc trong suppressMessages(); dùng call. = FALSE trong mọi stop().

  • Account.R: các trường id, owner, balance (bằng 0 lúc bắt đầu). deposit(x) và withdraw(x) dừng với thông báo invalid amount khi x bị thiếu hoặc nhỏ hơn 1; withdraw() dừng với thông báo insufficient funds in 2 nếu số dư giảm xuống dưới lowest(), giá trị này là 0. month_end() không làm gì; line() trả về 1 ada checking: -20 bằng cách dùng kind().
  • Checking.R: loại checking; số dư có thể giảm xuống -100.
  • Savings.R: loại savings; mỗi tháng được rút tối đa 2 lần (withdrawal limit on 2), chỉ tính những lần rút thành công; month_end() cộng lãi suất 1%, làm tròn xuống, rồi đặt lại số lần rút.
  • Bank.R: open_account(kind, id, owner) (account 2 exists), get_account(id) (no account 9), transfer(from, to, amount), không thay đổi gì nếu rút tiền thất bại, month_end() áp dụng cho mọi tài khoản và statement() trả về các dòng của tất cả tài khoản, được sắp xếp theo id.

Code được cung cấp đọc các lệnh open checking 1 ada, dep 1 100, wd 2 30, tr 1 2 50 hoặc month, in ra ok hoặc thông báo lỗi tương ứng cho mỗi lệnh, rồi in bảng kê.

Code của bạn nằm trong Account.R, Checking.R, Savings.R và Bank.R. main.R chứa code đầu vào/đầu ra được cung cấp và bạn không thể chỉnh sửa tệp này.

Tự làm thử

source("Account.R")
source("Checking.R")
source("Savings.R")
source("Bank.R")

# Đoạn code đầu vào/đầu ra đã được cung cấp: giữ nguyên
input <- suppressWarnings(readLines(file("stdin")))
bank <- Bank$new()
for (line in input) {
  p <- strsplit(line, " ")[[1]]
  n <- suppressWarnings(as.numeric(p[-1]))
  msg <- tryCatch({
    switch(p[1],
      open = bank$open_account(p[2], as.numeric(p[3]), p[4]),
      dep = bank$get_account(n[1])$deposit(n[2]),
      wd = bank$get_account(n[1])$withdraw(n[2]),
      tr = bank$transfer(n[1], n[2], n[3]),
      month = bank$month_end())
    "ok"
  }, error = function(e) conditionMessage(e))
  cat(line, ": ", msg, "\n", sep = "")
}
for (l in bank$statement()) cat(l, "\n", sep = "")

Tất cả bài học trong Lập trình hướng đối tượng

1Kiến thức cơ bản về S3

Làm việc với tệpDanh sách với một lớpHàm khởi tạoPhương thức in ra và định dạngTrình xác thực và hàm hỗ trợÔn tập: nhiệt độ

4Tính đóng gói trong R

Closure dưới dạng đối tượngMôi trường dưới dạng đối tượngHàm truy cậpBảo vệ trạng tháiÔn tập: đồng hồ tính phí đỗ xe

7S4 kế thừa

Mở rộng bằng containscallNextMethodLớp ảoKiểm tra kiểu bằng is()Ôn tập: người trông sở thú

10Mẫu thiết kế phần 2

Mẫu DecoratorMẫu BuilderMẫu StateMẫu Iterator

2S3, hàm generic và phương thức

Hàm generic và UseMethodPhương thức mặc địnhPhương thức cho hàm generic cơ sởCơ bản về NextMethodÔn tập: diện tích hình

5Các lớp S4

Định nghĩa lớp S4Slot và quyền truy cậpKiểm tra tính hợp lệPhương thức showÔn tập: Danh mục sản phẩm

8Lớp tham chiếu

Định nghĩa lớp tham chiếuPhương thức và cập nhật trườngNgữ nghĩa sao chépKế thừa và callSuperÔn tập: hàng đợi tác vụ

11Dự án: Quản lý thư viện

Sách và thành viênMượn sáchBài học dự ánTrả sáchBài học dự ánTìm kiếm danh mụcBài học dự ánBáo cáo thư việnBài học dự án

3S3 Tính kế thừa

Vector lớpThứ tự tra cứu phương thứcMở rộng với NextMethodKiểm tra với inherits()Ôn tập, tính lương nhân viên

6S4 Generics và phương thức

Tạo GenericsPhương thức cho kiểu dựng sẵnĐiều phối theo hai đối sốsetValidity và validObjectÔn tập: tiền và tiền tệ

9Các mẫu thiết kế phần 1

Mẫu SingletonMẫu FactoryMẫu ObserverMẫu Strategy

12Thử thách cuối cùng

Bãi đỗ xeLịch sự kiệnSổ cái ngân hàng

Tự luyện tập: Trình biên dịch R online