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

[duybaophanthanh@gmail.com]

[TẶNG BẠN] TRỌN BỘ Bí kíp học tốt 08 môn
Chắc suất Đại học top - Giữ chỗ ngay!!

ĐĂNG BÀI NGAY để cùng trao đổi với các thành viên siêu nhiệt tình & dễ thương trên diễn đàn.

Ư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.

 

[trà nguyễn hữu nghĩa]

Ư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.

Ý tưởng hay nha
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
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ụ

BEGIN
        {Day la code ne}
END.

 

[duybaophanthanh@gmail.com]

Ý tưởng hay nha
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
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ụ

BEGIN
        {Day la code ne}
END.

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]

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!

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

 

[Khải KIllar]

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

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ó

 

[trà nguyễn hữu nghĩa]

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ư 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