Tập thể lớp 8 kính chào quý Thầy Cô giáo đến dự giờ thăm lớp!
TRƯỜNG THCS NGUY?N DU
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.
17/5 =3; 17 div 5 = 2;
17 mod 5 = 3
Bài 2. : 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
17 và 5. 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 đúng (D)?
khai báo nào 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 : ;
:= ;
2. Cú pháp khai báo hằng trong Pascal
Const = ;
3. Lệnh nhập giá trị cho biến
Readln()
Hay read()
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.
a.
b.
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 (‘Tich cua hai so bang:’, Tich);
End.
Dặn dò
Học lí thuyết SGK
Xem lại các bài tập SGK
Chuẩn bị kiểm tra 1 tiết

PROGRAM DUONG_TRON; {1} VAR Chuvi, Dientich, r : 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}
Bài 5. Giải thích từng dòng lệnh trong chương trình.