Chương trình máy tính là một trong những nhiệm vụ lập trình điển hình. Một ứng dụng như vậy có thể được thực hiện bằng hầu hết mọi ngôn ngữ lập trình. Một trong những ngôn ngữ lập trình phổ biến nhất là Delphi, có thể được sử dụng để viết mã máy tính đơn giản và hiệu quả.
Cần thiết
Môi trường lập trình Delphi
Hướng dẫn
Bước 1
Khởi động môi trường lập trình Delphi mà bạn đang sử dụng. Lập kế hoạch giao diện cho ứng dụng của bạn. Sẽ có 26 nút trên biểu mẫu, 10 trong số đó chịu trách nhiệm về số và phần còn lại dành cho các chức năng. Ngoài ra, sẽ có một thành phần TPanel mà kết quả của hành động sẽ được hiển thị.
Bước 2
Thêm 4 biến vào mã sẽ lưu trữ các số do người dùng nhập và xác định chế độ. Ví dụ:
var
a, b, c: real; // số mà người dùng nhập vào
d: số nguyên; // hành động của máy tính
Bước 3
Các biến đã tạo có thể được thêm vào cả bảo vệ và riêng tư. Bây giờ xử lý sự kiện OnClick cho mỗi nút số. Đối với tất cả các chữ số, mã sẽ giống hệt nhau:
thủ tục TForm1. Button1Click (Người gửi: TObject);
bắt đầu
Panel1. Caption: = Panel1. Caption + 'số'
chấm dứt;
Thay thế “số” bằng tên nút (nếu là số 0 thì Panel1. Caption + '0').
Bước 4
Biến d ở định dạng số nguyên và sẽ chứa giá trị số tương ứng của bất kỳ hành động nào. Nếu phép nhân sẽ được thực hiện, thì bạn có thể đặt hành động thành giá trị 1, nếu phép chia - giá trị 2, nếu phép cộng - giá trị 3, v.v. Đối với hành động nhân, mã sẽ giống như sau:
thủ tục TForm1. ButtonMultiplyClick (Người gửi: TObject); // nhân hành động
bắt đầu
a: = StrToFloat (Panel1. Caption); // sau khi nhấn nút, giá trị của biến a được lưu
d: = 1; // biến hành động được đặt thành giá trị tương ứng
Panel1. Caption: = '';
chấm dứt;
Bước 5
Thực hiện các phép toán tương tự cho phép chia (ButtonDivClick), phép cộng (ButtonPlusClick), phép trừ (ButtonMinusClick) và lũy thừa (ButtonPowerClick).
Bước 6
Để xử lý giá trị `` = '', bạn cần đặt một điều kiện trường hợp và lần lượt xem xét từng hành động:
thủ tục TForm1. ButtonClick (Người gửi: TObject);
bắt đầu
trường hợp d của
1: begin // nếu d = 1, tức là nút nhân được nhấn, thì hành động tương ứng sẽ xảy ra
b: = StrToFloat (Panel1. Caption);
c: = a * b;
Panel1. Caption: = FloatToStr (c);
chấm dứt;
2: bắt đầu
a: = StrToFloat (Panel1. Caption);
c: = a / b;
Panel1. Caption: = FloatToStr (c);
Bước 7
Xử lý các phép tính cộng, trừ và lũy thừa theo cùng một cách. Máy tính đã sẵn sàng.
