Tin học Làm một chiếc máy tính đơn giản trên Pascal

Thảo luận trong 'Tin học cấp II' bắt đầu bởi duybaophanthanh@gmail.com, 14 Tháng sáu 2021.

Lượt xem: 184

  1. duybaophanthanh@gmail.com

    duybaophanthanh@gmail.com Học sinh mới Thành viên

    Bài viết:
    5
    Điểm thành tích:
    6
    Sở hữu bí kíp ĐỖ ĐẠI HỌC ít nhất 24đ - Đặt chỗ ngay!

    Đọc sách & cùng chia sẻ cảm nhận về sách số 2


    Chào bạn mới. Bạn hãy đăng nhập và hỗ trợ thành viên môn học bạn học tốt. Cộng đồng sẽ hỗ trợ bạn CHÂN THÀNH khi bạn cần trợ giúp. Đừng chỉ nghĩ cho riêng mình. Hãy cho đi để cuộc sống này ý nghĩa hơn bạn nhé. Yêu thương!

    Ưu điểm : Có thể chọn phép tính
    Nhược điểm : Chiếc máy tính này chỉ tính được hai số.

    Mã code :


    program example;
    uses crt;
    var a,b : Real;
    c : char;
    begin
    clrscr;
    write('Viet so dau tien : ');
    readln(a);
    write('Chon phep tinh (+,-,x, : ) = ');
    readln(c);
    write('Viet so tiep theo : ');
    readln(b);
    case c of
    '+' : begin
    writeln('Dap an : ',a+b);
    end;
    '-' : begin
    writeln('Dap an : ',a-b);
    end;
    'x' : begin
    writeln('Dap an : ',a*b);
    end;
    ':' : begin
    writeln('Dap an : ',a/b:4:2);
    end;
    end;
    readln;
    end.
     
    Death Game, quân pro, Tungtom1 other person thích bài này.
  2. trà nguyễn hữu nghĩa

    trà nguyễn hữu nghĩa Mod Vật Lí |Cây bút Thơ|Thần tượng VH Cu li diễn đàn

    Bài viết:
    3,082
    Điểm thành tích:
    719
    Nơi ở:
    Phú Yên
    Trường học/Cơ quan:
    Trường THPT Lương Văn Chánh

    Ý tưởng hay nha :D
    Mình góp ý một chút để phát triển nó tốt hơn nè: Bạn sử dụng vòng lặp while để có thể sử dụng liên tục các phép tính nha.
    Cứ sau khi chọn 2 số và phép tính nó sẽ lưu kết quả lại và mình chọn phép tính tiếp theo thì nó có thể tính được.
    Hóng bản cập nhật :p
    Bạn có thể sử dụng chức năng code của diễn đàn để nó trông đẹp hơn. Ví dụ
    Mã:
    BEGIN
            {Day la code ne}
    END.
     
  3. duybaophanthanh@gmail.com

    duybaophanthanh@gmail.com Học sinh mới Thành viên

    Bài viết:
    5
    Điểm thành tích:
    6

    Hiện tại trình độ mình còn nghiệp dư lắm nên mình vẫn đang học nâng cao về pascal để tạo nhiều chương trình hơn, cám ơn bạn đã đóng góp ý kiến!
     
    trà nguyễn hữu nghĩa thích bài này.
  4. trà nguyễn hữu nghĩa

    trà nguyễn hữu nghĩa Mod Vật Lí |Cây bút Thơ|Thần tượng VH Cu li diễn đàn

    Bài viết:
    3,082
    Điểm thành tích:
    719
    Nơi ở:
    Phú Yên
    Trường học/Cơ quan:
    Trường THPT Lương Văn Chánh

    Người chuyên nghiệp cũng bắt đầu từ nghiệp dư mà...hóng máy tính xịn hơn :D
     
    duybaophanthanh@gmail.com thích bài này.
  5. Khải KIllar

    Khải KIllar Học sinh tiến bộ Thành viên

    Bài viết:
    297
    Điểm thành tích:
    276
    Nơi ở:
    An Giang
    Trường học/Cơ quan:
    Quản Cơ Thành

    em đang thử cho máy tính một dãy số như kiểu này: 1 + 32 - 6 * 3 = .... chẳng hạn nhưng việc lọc số từ mãng khá khó
     
    Ánh 01 thích bài này.
  6. trà nguyễn hữu nghĩa

    trà nguyễn hữu nghĩa Mod Vật Lí |Cây bút Thơ|Thần tượng VH Cu li diễn đàn

    Bài viết:
    3,082
    Điểm thành tích:
    719
    Nơi ở:
    Phú Yên
    Trường học/Cơ quan:
    Trường THPT Lương Văn Chánh

    như vậy cũng được nhưng hơi khó, cứ làm như máy tính trong điện thoại ấy...bấm từng phép tính một
     
    Khải KIllar thích bài này.
Chú ý: Trả lời bài viết tuân thủ NỘI QUY. Xin cảm ơn!

Draft saved Draft deleted

CHIA SẺ TRANG NÀY