Tiết 19
BÀI TẬP
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
BÀI TẬP
Const = ;
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.
BÀI TẬP
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 TẬP
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.
BÀI TẬP
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.
BÀI TẬP
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.
BÀI TẬP