Kiểm tra bài cũ
1/ Nêu các hình thức giao tiếp giữa người và máy tính (6đ)
2/ Viết các biểu thức sau đây dưới dạng biểu thức trong Pascal (4đ)
Tiết 9 Bài Thực Hành 2:
VIẾT CHƯƠNG TRÌNH ĐỂ TÍNH TOÁN
1/ Mục đích yêu cầu:
-Luyện tập soạn thảo, chỉnh sửa chương trình, biên dịch, chạy và xem kết qủa 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.
2/ Nội dung:
Bài Tập 3: Mở lại bài tập 1 và chỉnh sửa ba lệnh cuối (trước từ khóa end.) thành:
Dịch, chạy chương trình quan sát kết quả và cho nhận xét.
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):4:2);
Writeln (‘(10+2)*(10+2)/(3+1)= ‘,(10+2)*(10+2)/(3+1):4:2);
Write (‘((10+2)*(10+2)-24)/(3+1)= ‘,((10+2)*(10+2)-24)/(3+1):4:2);
End.
);
);
);
Bài Tập 2: Tìm hiểu phép chia lấy phần nguyên và phép chia lấy phần dư
a) Viết 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) Lưu, dịch, chạy chương trình xem kết quả và nhận xét kết quả.
Bài Tập 2:
c) Thêm các lệnh Delay(5000) vào sau mỗi câu lệnh Writeln. Dịch, chạy chương trình quan sát kết quả và cho nhận xét.
Uses Crt;
Begin
Clrscr;
Writeln (‘16/3=’,16/3); Delay(5000);
Writeln (’16 div 3 =’,16 div 3); Delay(5000);
Writeln (’16 mod 3 =’, 16 mod 3); Delay(5000);
Writeln (’16 mod 3 =’,16-(16 div 3)*3); Delay(5000);
Writeln (’16 div 3 =’,(16-(16 mod 3))/3); Delay(5000);
End.
BT2:
d) Thêm lệnh readln vào trước từ khóa end. Dịch, chạy chương trình quan sát kết quả và cho nhận xét.
Uses Crt;
Begin
Clrscr;
Writeln (‘16/3=’,16/3); Delay(5000);
Writeln (’16 div 3 =’,16 div 3); Delay(5000);
Writeln (’16 mod 3 =’, 16 mod 3); Delay(5000);
Writeln (’16 mod 3 =’,16-(16 div 3)*3); Delay(5000);
Writeln (’16 div 3 =’,(16-(16 mod 3))/3); Delay(5000);
Readln
End.
Củng cố
Câu 1: Kí hiệu của các phép toán số học trong Pascal là:
a) +, -, x, :, div và mod
b) +, -, *, /, div và mod
c) +, -, *, /, delay và readln
d) +, -, x, :, delay và readln
Củng cố:
Câu 2: Lệnh Delay(x) có tác dụng:
a) Dừng chương trình trong x giây
b) Dừng chương trình trong x/100 giây
c) Dừng chương trình trong x/1000 giây
d) Dừng chương trình cho đến khi người dùng nhấn Enter
Củng cố:
Câu 3: Lệnh read và readln có tác dụng:
a) Dừng chương trình trong 5 giây
b) Dừng chương trình trong 10 giây
c) Dừng chương trình trong 2 giây
d) Dừng chương trình cho đến khi người dùng nhấn Enter