Bài giảng Tin học Lớp 8 - Bài thực hành 2: Viết chương trình để tính toán

Nội dung text: Bài giảng Tin học Lớp 8 - Bài thực hành 2: Viết chương trình để tính toán

1. 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đ) a c a / + b / ax2 + bx + c b d 1 a 2 3 c / − (b + 2) d /(a +b)(1+ c) x 5
2. 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
3. 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. 10 + 5 18 1/15x4−30 +12 2 / − 3+1 5 +1 2 (10 + 2) (10 + 2)2 − 24 3/ 4/ (3+1) (3+1)
4. Begin1/ 15x4-30+12 → 15*4-30+12 Writeln(‘15*4-30+12=‘, 15*4-30+12); 10 + 5 18 2 / − → (10+5)/(3+1)-18/(5+1) 3+1 5 +1 Writeln(‘(10+5)/(3+1)-18/(5+1)=‘,(10+5)/(3+1)-18/(5+1)); End(.10 + 2)2 3/ → (10+2)*(10+2)/(3+1) b) Khởi(3+động1) Turbo Pascal, gõ chương trình trên. c)Writeln(‘Lưu, dịch(10+2, )*(chạy10+chương2)/(3+1)trình=‘, (10và+2kiểm)*(10tra+2)/(kết3+quả1));. (10 + 2)2 − 24 4/ → ((10+2)*(10+2)-24)/(3+1) (3+1) Writeln(‘((10+2)*(10+2)-24)/(3+1)=‘, ((10+2)*(10+2)-24)/(3+1));
5. 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: 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. Dịch, chạy chương trình quan sát kết quả và cho nhận xét.
6. 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ả.
7. 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.
8. 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); ReadlnEnd.
9. 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.
10. 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
11. 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
12. 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
13. 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