_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đ)
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:
*BT1: Luyện tập gõ các biểu thức số học trong Pascal
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:
*2/ Nội dung:
*BT1: Luyện tập gõ các biểu thức số học trong Pascal *a) Viết các biểu thức toán học sau đây dưới dạng biểu thức trong Pascal.
* 15*4-30+12
* 1/ 15x4-30+12
* (10+5)/(3+1)-18/(5+1)
* (10+2)*(10+2)/(3+1)
* ((10+2)*(10+2)-24)/(3+1)
*Writeln('(10+5)/(3+1)-18/(5+1)=',(10+5)/(3+1)-18/(5+1));
*Writeln('15*4-30+12=', 15*4-30+12);
*Writeln('(10+2)*(10+2)/(3+1)=', (10+2)*(10+2)/(3+1));
*Writeln('((10+2)*(10+2)-24)/(3+1)=', ((10+2)*(10+2)-24)/(3+1));
*Begin
*End.
*b) Khởi động Turbo Pascal, gõ chương trình trên.
*c) Lưu, dịch , chạy chương trình và kiểm tra kết quả.
*BT3: 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.
*);
*);
*);
*BT2: 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ả.
*BT2:
*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.

Bài tập thêm: Viết chương trình tính chu vi hình chữ nhật với chiều dài 25,67 cm; chiều rộng 23,45 cm.
*Begin * Write('Chu vi hinh chu nhat co chieu dai * 25.67 cm va chieu rong 23.45 cm la: * (25.67+23.45)*2 =',(25.67+23.45)*2 :6:2,' cm'); * 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 dế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 dến khi người dùng nhấn Enter
*Củng cố:
*Câu 4: Lệnh writeln(:n:m) dùng để:
*a) Điều khiển cách in các số thực trên màn hình
*b) Điều khiển cách in các số nguyên trên màn hình
*c) Điều khiển cách in xâu kí tự trên màn hình
*d) Cả a, b, c đều đúng