BTH2 viet chuong trinh de tinh toan tin hoc 8

Kiểm tra cũ 1/ Nêu hình thức giao tiếp người máy tính (6đ) 2/ Viết biểu thức sau dạng biểu thức Pascal (4đ) a c a/ + b d a c / − (b + 2) x b / ax + bx + c d /(a + b)(1 + c) BTH2: 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 xem kết qủa hoạt động chương trình môi trường Turbo Pascal -Thực hành với biểu thức số học chương trình Pascal 2/ Nội dung: BT1: Luyện tập gõ biểu thức số học Pascal BTH2: 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õ biểu thức số học Pascal a) Viết biểu thức toán học sau dạng biểu thức Pascal / 15 x − 30 +12 10 + 18 2/ − 3+1 5+1 (10 + 2) 3/ (3 + 1) (10 + 2) − 24 4/ (3 + 1) 2 Begin 1/ 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) +1 +1 Writeln(‘(10+5)/(3+1)-18/(5+1)=‘,(10+5)/(3+1)-18/(5+1)); End.(10 + 2) 3/  (10+2)*(10+2)/(3+1) b) Khởi (3 +động 1) Turbo Pascal, gõ chương trình c) Lưu, dịch , chạy chương trình kiểm tra kết Writeln(‘ (10+2)*(10+2)/(3+1) =‘, (10+2)*(10+2)/(3+1) ); (10 + 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)); BT3: Mở lại tập 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 cho nhận xét BT2: Tìm hiểu phép chia lấy phần nguyên 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 =’,16 div 3); Writeln (’16 mod =’, 16 mod 3); Writeln (’16 mod =’,16-(16 div 3)*3); Writeln (’16 div =’,(16-(16 mod 3))/3); End b) Lưu, dịch, chạy chương trình xem kết nhận xét kết BT2: c) Thêm lệnh Delay(5000) vào sau câu lệnh Writeln Dịch, chạy chương trình quan sát kết cho nhận xét Uses Crt; Begin Clrscr; Writeln (‘16/3=’,16/3); Delay(5000); Writeln (’16 div =’,16 div 3); Delay(5000); Writeln (’16 mod =’, 16 mod 3); Delay(5000); Writeln (’16 mod =’,16-(16 div 3)*3); Delay(5000); Writeln (’16 div =’,(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 cho nhận xét Uses Crt; Begin Clrscr; Writeln (‘16/3=’,16/3); Delay(5000); Writeln (’16 div =’,16 div 3); Delay(5000); Writeln (’16 mod =’, 16 mod 3); Delay(5000); Writeln (’16 mod =’,16-(16 div 3)*3); Delay(5000); Writeln (’16 div =’,(16-(16 mod 3))/3); Delay(5000); End Readln Củng cố: Câu 1: Kí hiệu phép toán số học Pascal là: a) +, -, x, :, div mod b) +, -, *, /, div mod c) +, -, *, /, delay readln d) +, -, x, :, delay readln Củng cố: Câu 2: Lệnh Delay(x) có tác dụng: a) Dừng chương trình x giây b) Dừng chương trình x/100 giây c) Dừng chương trình x/1000 giây d) Dừng chương trình cho dến người dùng nhấn Enter Củng cố: Câu 3: Lệnh read readln có tác dụng: a) Dừng chương trình giây b) Dừng chương trình 10 giây c) Dừng chương trình giây d) Dừng chương trình cho dến 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 số thực hình b) Điều khiển cách in số nguyên hình c) Điều khiển cách in xâu kí tự hình d) Cả a, b, c