Tập thể lớp 8 kính chào quý Thầy Cô giáo đến dự giờ thăm lớp! T R Ư Ơ ØN G T H C S N G U Y Ễ N D U GV Võ Đức Thanh Nhàn Trường THCS Nguyễn Du - Pleiku Tiết 15 tin häc líp 8 Bài 1: Chuyển biểu thức được viết trong pascal (x*x +1)*(x*x +1)/b-a thành biểu thức toán: KIỂM TRA BÀI CŨ A. B. C. D. ( ) 2 2 1x a b + − ( ) 2 2 1x b a + − ( ) 2 2 1x b a + − ( ) 2 2 1x a b + − 17/5 =3; 17 div 5 = 2; 17 mod 5 = 3 Bài 2. Bài 2. : Bốn bạn A, B, C, D đưa ra kết quả của phép chia, : Bốn bạn A, B, C, D đưa ra kết quả của phép chia, phép chia lấy phần nguyên và lấy phần dư của hai số nguyên phép chia lấy phần nguyên và lấy phần dư của hai số nguyên 17 và 5. 17 và 5. Hãy chọn bạn làm đúng: Hãy chọn bạn làm đúng: 17/5 = 3; 17 div 5 = 2; 17 mod 5 = 3 17/5 = 4; 17 div 5 = 3; 17 mod 5 = 2 KIỂM TRA BÀI CŨ 17/5 = 3.4; 17 div 5 = 3; 17 mod 5 = 2 A. B. C. D. Bài 3. Trong Pascal, khai báo nào sau đây Bài 3. Trong Pascal, khai báo nào sau đây đúng ( )Đ đúng ( )Đ ? ? khai báo khai báo nào nào sai (S) sai (S) ? ? var begin: real; A. var diem: integer; B. const a = 30; C. const a: real; D. SĐ Đ S Đ S Đ S KIỂM TRA BÀI CŨ I. Lí thuyết 1. Cú pháp khai báo biến và lệnh gán trong Pascal  Var <tên biến> : <kiểu dữ liệu>;  <tên biến> := <biểu thức> ; 2. Cú pháp khai báo hằng trong Pascal  Const <tên hằng> = <giá trị của hằng> ; 3. Lệnh nhập giá trị cho biến Readln(<danh sách biến>) Hay read(<danh sách biến>) II. Bài tập Bài 1. 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)× − + a. 10 3 5 x x x x + − + + b. 2 (10 2) 1 3 + + c. 2 (10 ) 24 3 1 a+ − + d. a. 15*4 – (30 + 12) b. (10+x)/(3+x) – x/(5+x) c. (10+2)*(10+2)/3+1 d. ((10+a)*(10+a)-24)/(3+1) Các biểu thức toán học được viết dưới dạng biểu thức trong Pascal. Program dudoan; Uses crt; Begin Clrscr; Writeln(‘15 + (8/2-3)*2 = ’, 15 + (8/2- 3)*2:4:2); Writeln(‘(7+5)*2 – 8/2 = ’, (7+5)*2 – 8/2:4:2); Writeln(’15 mod 2 = ’,15 mod 2); Writeln(15 div 2); Readln; End. Bài 2. Dự đoán kết quả xuất ra màn hình của chương trình sau. 15 + (8/2-3)*2 = 17.00 (7+5)*2 – 8/2 = 20.00 15 mod 2 = 1 7 Bài 3. Hãy liệt kê các lỗi (nếu có) trong chương trình dưới đây và sửa lại cho đúng. Program DT_hinh vuong; Var a, S: Integer ; Begin clrscr; writeln(‘nhap do dai canh hinh vuong:) realn(A); S:=a x a; writeln(‘dien tich hinh vuong:’ S); readln End. Program DT_hinh vuong; Var a, S: Integer ; Begin clrscr; writeln(‘nhap do dai canh hinh vuong:) realn(A); S:=a x a; writeln(‘dien tich hinh vuong:’ S); readln End. Program DT_hinh_vuong; Uses crt; Var a, S: Integer ; Begin clrscr; writeln(‘nhap do dai canh hinh vuong:’); readln(A); S:=a * a; writeln(‘dien tich hinh vuong :’,S); readln End. Bài 3. [...]...Bài 4 Viết chương trình nhập hai số nguyên từ bàn phím và hiển thị ra màn hình tổng và tích hai số đó Program Tinh_tong; Var a, b ,Tong, Tich : integer; Begin write (‘Nhap so thu nhat: ’); readln(a); write (‘Nhap so thu hai: ’); readln(b); Tong:= a+b; Tich:=a*b; writeln (‘Tong cua hai so bang:’, Tong); writeln... real; {2} CONST pi = 3.14; {3} BEGIN {4} Write ('Nhap ban kinh duong tron = '); readln (r); {5} Chuvi := 2*r*pi; {6} Dientich := r*r*pi; {7} Writeln ('Chu vi duong tron co ban kinh', r , 'la :', chuvi); {8} Writeln ('Dien tich duong tron ban kinh', r, ' la:', dientich); {9} Readln {10} END {11} . Clrscr; Writeln( 15 + (8/ 2-3)*2 = ’, 15 + (8/ 2- 3)*2:4:2); Writeln(‘(7+5)*2 – 8/ 2 = ’, (7+5)*2 – 8/ 2:4:2); Writeln( 15 mod 2 = ’ ,15 mod 2); Writeln (15 div 2);. Dự đoán kết quả xuất ra màn hình của chương trình sau. 15 + (8/ 2-3)*2 = 17.00 (7+5)*2 – 8/ 2 = 20.00 15 mod 2 = 1 7 Bài 3. Hãy liệt kê các lỗi (nếu có) trong