User Tag List

+ Trả lời chủ đề
Hiện kết quả từ 1 tới 8 của 8

Chủ đề: {kHẨN CẤP} THÊM MẬT KHẨU VÀO CHƯƠNG TRÌNH RÚT TIỀN NGÂN HÀNG :((

  1. #1
    svBK's Newbie
    Tham gia ngày
    Mar 2012
    Bài gửi
    1

    Mặc định {kHẨN CẤP} THÊM MẬT KHẨU VÀO CHƯƠNG TRÌNH RÚT TIỀN NGÂN HÀNG :((

    Mình đang lập trình 1 chương trình rút tiền ngân hàng bằng pascal giờ mình đã viết xong phần tính toán ,gửi rút cả rồi , bây giờ muốn thêm phần password để đăng nhập vào hệ thống rút tiền nhưng làm mãi ko xong ai pro giúp mình với . Nói cho dễ hiểu là ví dụ nhập mật khẩu : 123456 , nhập đúng thì tiếp tục được phép rút tiền chương trình rút tiền , còn nhập sai pass thì yêu cầu nhập lại .
    đây là phần code mình đã viết đc các bạn giúp mình thêm phần password nhé cảm ơn nhiều
    =====================
    USES crt;
    VAR sd,gui,rut,pi,a: REAL; chon2,chon: CHAR;
    BEGIN
    clrscr;
    sd:= 0;
    pi:= 5000;
    writeln('Chuong trinh rut tien tu dong ban phai dang nhap moi co the thuc hien dc');
    readln;
    Writeln('Chon cac de muc sau, an 1 hoac 2');
    Writeln('1.Huong Dan');Writeln('2.Dang nhap ma so TK');
    Readln(chon2);
    CASE chon2 OF
    '1': Writeln('LE PHI RUT TIEN 5000VND SO TIEN TOI THIEU DE NAP TAI KHOAN PHAI LA 11000 VND ');
    '2': BEGIN Writeln('Ban phai nhap dung ma so tai khoan');
    readln(a);
    Textcolor(red);
    Writeln('DANG NHAP TAI KHOAN THANH CONG !!!!!!!!!!');
    END;
    END;

    Textcolor(Green);
    REPEAT WRITELN('-------------------------------…
    Textcolor(Green);
    Writeln('X.Xem Tai khoan'); Writeln('G.Gui Tai Khoan');
    Writeln('R.Rut Tai khoan'); Writeln('K.Ket Thuc');
    WRITELN('-------------------------------…
    Textcolor(yellow);
    write('Chon chuc nang: '); readln(chon);
    CASE chon OF
    'X','x': Writeln('So tien hien tai cua quy khach la : ',sd:1:2);
    'G','g': BEGIN REPEAT write('Gui vao bao nhieu tien : ');
    readln(gui);
    UNTIL gui>10000;
    sd := sd + gui;
    TEXTCOLOR(10);
    writeln('TAI KHOAN CUA QUY KHACH LA : ',sd:1:2);
    END;
    'R','r': BEGIN REPEAT write('Rut ra bao nhieu tien : ');
    readln(rut);
    UNTIL sd-rut >= 0;
    sd := sd - rut - pi;
    TEXTCOLOR(12);
    writeln('BAN VUA RUT TIEN TRONG TK ,TAI KHOAN CUA BAN LA : ',sd:1:2);
    END;
    END;
    UNTIL upcase(chon)='K';
    END.
    ======================================
    MỌI NGƯỜI GIÚP MÌNH THỨ 6 MÌNH PHẢI NỘP RỒI HUHU

  2. #2
    .:: Grumpy svBKer ::. Avatar của 1973
    Tham gia ngày
    Mar 2010
    Bài gửi
    3.793

    Mặc định Re: {kHẨN CẤP} THÊM MẬT KHẨU VÀO CHƯƠNG TRÌNH RÚT TIỀN NGÂN HÀNG :((

    Thời buổi nào mà vẫn còn dùng pascal thế này, thế này thì ai mà giúp được bạn đây
    Contact me:
    Email: sangnd [at] svBK.vn
    Personal website: My Blog | Chat với người lạ
    Facebook Page của Bách Khoa Forum: http://www.facebook.com/svbk.vn

  3. #3
    svBK's Member
    Tham gia ngày
    Feb 2012
    Bài gửi
    26

    Mặc định Re: {kHẨN CẤP} THÊM MẬT KHẨU VÀO CHƯƠNG TRÌNH RÚT TIỀN NGÂN HÀNG :((

    bạn nên viết thành các procedure và function để tiện theo dõi và chỉnh sửa @@

  4. #4
    svBK's Member
    Tham gia ngày
    Feb 2012
    Bài gửi
    26

    Mặc định Re: {kHẨN CẤP} THÊM MẬT KHẨU VÀO CHƯƠNG TRÌNH RÚT TIỀN NGÂN HÀNG :((

    Quote Nguyên văn bởi 1973 Xem bài viết
    Thời buổi nào mà vẫn còn dùng pascal thế này, thế này thì ai mà giúp được bạn đây
    vẫn dùng pascal mà bạn, bên fsoft vẫn tuyển lập trình viên pascal đó

  5. #5
    .:: Grumpy svBKer ::. Avatar của 1973
    Tham gia ngày
    Mar 2010
    Bài gửi
    3.793

    Mặc định Re: {kHẨN CẤP} THÊM MẬT KHẨU VÀO CHƯƠNG TRÌNH RÚT TIỀN NGÂN HÀNG :((

    Quote Nguyên văn bởi pain Xem bài viết
    vẫn dùng pascal mà bạn, bên fsoft vẫn tuyển lập trình viên pascal đó
    Ồ thế à, thế họ tuyển lập trình viên pascal để làm gì vậy bạn?

  6. #6
    1111 Avatar của ktuan
    Tham gia ngày
    Nov 2011
    Bài gửi
    52

    Mặc định Re: {kHẨN CẤP} THÊM MẬT KHẨU VÀO CHƯƠNG TRÌNH RÚT TIỀN NGÂN HÀNG :((

    @darktuan
    Cái này thì chỉ cần sử dụng câu lệnh lặp thôi
    2': BEGIN Writeln('Ban phai nhap dung ma so tai khoan');
    repeat
    readln(a);
    Textcolor(red);
    until checkmatkhau(a)=false;
    Writeln('DANG NHAP TAI KHOAN THANH CONG !!!!!!!!!!');
    END;
    Cậu viết thêm 1 hàm dùng để kiểm tra mật khẩu là được
    Lần sửa cuối bởi ktuan; 05-04-2012 lúc 07:48 PM Lý do: 1111
    1111

  7. #7
    1111 Avatar của ktuan
    Tham gia ngày
    Nov 2011
    Bài gửi
    52

    Mặc định Re: {kHẨN CẤP} THÊM MẬT KHẨU VÀO CHƯƠNG TRÌNH RÚT TIỀN NGÂN HÀNG :((

    Quote Nguyên văn bởi 1973 Xem bài viết
    Ồ thế à, thế họ tuyển lập trình viên pascal để làm gì vậy bạn?
    pascal ít dùng chứ không phải là hoàn toàn không có tác dụng gì. Còn tùy thuộc là ai sử dụng pascal

  8. #8
    Điều hành viên Avatar của Infoboy
    Tham gia ngày
    Aug 2008
    Bài gửi
    472

    Mặc định Re: {kHẨN CẤP} THÊM MẬT KHẨU VÀO CHƯƠNG TRÌNH RÚT TIỀN NGÂN HÀNG :((

    pascal vẫn sống mà , cộng đồng nc ngoài vẫn còn số ít phát triển cho pascal để có thể lập trình đạng window form nữa
    nhưng mình đoán răng họ tuyển ng lập trình pascal là để sau này làm code delphi cơ , vì delphi khá giống pascal
    delphi là ngôn ngữ mạnh lắm , ở VN thì ko mấy ng dùng chứ nước ngoài nó chả kém gì C và C++ đâu
    Chúa trao cơ hội cho người đã chuẩn bị

+ Trả lời chủ đề

Thông tin chủ đề

Users Browsing this Thread

Hiện có 1 người đọc bài này. (0 thành viên và 1 khách)

Chủ đề tương tự

  1. Tuyển CỘNG TÁC VIÊN,SINH VIÊN LÀM THÊM
    Gửi bởi quynhanh8300 trong mục Việc tìm người
    Trả lời: 0
    Bài cuối: 11-08-2011, 03:30 PM
  2. HỎi VỀ SỐ HỌc TrÌnh NĂm ThỨ 3 K48 (Đtvt)
    Gửi bởi Hoc-Hoi trong mục Diễn đàn Học tập và Nghiên cứu KH Sinh viên
    Trả lời: 1
    Bài cuối: 04-03-2006, 11:43 AM

Từ khóa (Tag) của chủ đề này

Quyền viết bài

  • Bạn không thể gửi chủ đề mới
  • Bạn không thể gửi trả lời
  • Bạn không thể gửi file đính kèm
  • Bạn không thể sửa bài viết của mình


About svBK.VN

    Bách Khoa Forum - Diễn đàn thảo luận chung của sinh viên ĐH Bách Khoa Hà Nội. Nơi giao lưu giữa sinh viên - cựu sinh viên - giảng viên của trường.

Follow us on

Twitter Facebook youtube