Bài thực hành 2. Viết chương trình để tính toán

ViẾT CHƯƠNG TRÌNH ĐỂ TÍNH TOÁN
BÀI THỰC HÀNH 2
BÀI 1
BÀI 2
BÀI 3
VỀ NHÀ
MỤC ĐÍCH – YÊU CẦU
MỤC ĐÍCH - YÊU CẦU
Luyện tập sọan thảo, chỉnh sửa chương trình, biên dịch, chạy và xem kết quả hoạt động của chương trình trong môi trường Turbo Pascal.
Thực hành với các biểu thức số học trong chương trình Pascal.
ViẾT CHƯƠNG TRÌNH ĐỂ TÍNH TOÁN
BÀI THỰC HÀNH 2
Bài 1: Luyện gõ các biểu thức số học trong môi trường Pascal.

Viết các biểu thức sau dưới dạng biểu thức trong Pascal (làm trên giấy).

Lưu ý: chỉ sử dụng dấu ngoặc đơn để nhóm các phép toán.
b. Khởi động Pascal và gõ chương trình sau để tính các biểu thức trên.
Begin
writeln (’15*4 – 30 + 12 =‘ , 15*4-30+12);
writeln (‘(10+5)/(3+1)-18/(5+1) =‘ , (10+5)/(3+1)-18/(5+1));
writeln (‘(10+2)*(10+2)/(3+6) =‘ , (10+2)*(10+2)/(3+6));
End.

Lưu ý: các biểu thức Pascal được đặt trong câu lệnh writeln để in ra kết quả. Em sẽ có cách viết khác sau khi làm quen với khái niệm biến ở bài 4.
c. Lưu chương trình với tên CT2.pas. Dịch, chạy chương trình và kiểm tra kết quả nhận được trên màn hình.
ViẾT CHƯƠNG TRÌNH ĐỂ TÍNH TOÁN
BÀI THỰC HÀNH 2
BÀI 2
BÀI 3
VỀ NHÀ
Bài 2: Tìm hiểu các phép chia lấy phần nguyên, chia lấy phần dư với số nguyên. Sử dụng các câu lệnh tạm ngừng chương trình.
Mở tệp mới và gõ chương trình sau:
Uses crt;
Begin
clrscr;
writeln (’16/3 = ‘ , 16/3);
writeln (’16 div 3 = ‘ , 16 div 3);
writeln (’16 mod 3 = ‘ , 16 mod 3);
writeln (’16 mod 3 = ‘ , 16 - (16 div 3)*3);
writeln (’16 div 3 = ‘ , (16-(16 mod 3))/3);
End.
Bài 2: Tìm hiểu các phép chia lấy phần nguyên, chia lấy phần dư với số nguyên. Sử dụng các câu lệnh tạm ngừng chương trình.
Dịch, chạy chương trình. Quan sát các kết quả nhận được và cho nhận xét về các kết quả đó.
Thêm các câu lệnh tạm dừng màn hình sau mỗi câu lệnh writeln để xem kết quả.
Thêm câu lệnh Readln vào trước từ khóa end, chạy và kiểm tra kết quả hoạt động của chương trình.
ViẾT CHƯƠNG TRÌNH ĐỂ TÍNH TOÁN
BÀI THỰC HÀNH 2
BÀI 3
VỀ NHÀ
BÀI 3
Mở tệp CT2.pas và sửa 3 dòng lệnh cuối (trước từ khóa end) như bên dưới. Sau đó dịch, chạy lại chương trình xem kết quả.


writeln (’15*4 – 30 + 12 =‘ , 15*4-30+12 : 4 : 2);
writeln (‘(10+5)/(3+1)-18/(5+1) =‘ , (10+5)/(3+1)-18/(5+1) :4 : 2);
writeln (‘(10+2)*(10+2)/(3+6) =‘ , (10+2)*(10+2)/(3+6) : 4 : 2);
ViẾT CHƯƠNG TRÌNH ĐỂ TÍNH TOÁN
BÀI THỰC HÀNH 2
VỀ NHÀ
TỔNG KẾT - VỀ NHÀ
Các kí hiệu của các phép toán số học trong Pascal là: +, -, *, /, mod. Div.
Lệnh tạm dừng chương trình:
+ Delay(x): tạm ngừng chương trình trong x phần nghìn giây, sau đó chạy tiếp.
+ read hoặc readln tạm ngừng chương trình cho tới khi nhấn phím enter
* Câu lệnh writeln(